Discussion :

[cjay974]

Bonjour à tous

Je sais que ce que je vais demander n'est pas très recommandé sur Access mais mon bosse me demande de le faire.
J'ai une table "T_LISTE_JOINTE" avec 3 champs "CODE", "LIB" et "CRITERE"

Je voudrais scinder cette table en plusieurs table en fonction de "CRITERE"

J'ai trouver sur un site un code qui me renvoi une erreur 3067
l'erreur se trouve sur la ligne CurrentDb.Execute (ligne15 du code)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Function SplitTable()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSQL As String
Dim sCRITERE As String
 
sSQL = "SELECT CRITERE FROM T_LISTE_JOINTE GROUP BY CRITERE ORDER BY CRITERE;"
 
Set db = CurrentDb
Set rs = db.OpenRecordset(sSQL)
If Not rs.EOF Then
Do Until rs.EOF
sCRITERE = rs!CRITERE
CurrentDb.Execute "Select T_LISTE_JOINTE.* INTO " & "T_LJ_" & rs!CRITERE & " From T_LISTE_JOINTE Where [CRITERE]='" & sCRITERE & "';"
rs.MoveNext
Loop
Else
MsgBox "Pas de données"
End If
 
rs.Close
Set rs = Nothing
Set db = Nothing
End Function

Je vous souhaite une bonne soirée en attendant vos réponses

[cjay974]

Bonjour a tous

Complément d'information : J'ai essayé également la méthode de CLAUDELELOUP et PHILIPPE
https://www.developpez.net/forums/d1...critere-champ/

Même message d'erreur sur la partie du code ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

db.Execute "SELECT * INTO " & strTable & "_" & Replace(rstChamp(strChamp), " ", "_") & " FROM " & strTable & " WHERE " & strSqlWhere

Dans ma première méthode, le code me génère 1 seule table puis message erreur
Dans la méthode de CLAUDELELOUP et PHILIPPE, le code me génère 5 tables puis message d'erreur

Peut-être que ce complément d'information pourra vous éclairer sur mon interrogation

Bonne journée à tous

[cjay974]

Re bonjour

J'ai trouver l'erreur, dans mon champ [CRIETRE] il y avait des caractères des apostrophes et des points, ce qui posait problème au niveau de la création des tables

Bonne continuation