Discussion :

[patbeautifulday1]

Bonjour

J'aimerais faire une copie de la struture de ma base, c'est-à-dire les tables et les relations, mais sans les données. J'ai cherché en vain un utilitaire pour ce faire.
D'autre part j'ai fais une copie de mon fichier .mdb, et j'ai voulu faire une petite procédure pour vider toutes les tables, mais elle ne marche pas, il me dit : "erreur dans la clause from". Voici le 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
Sub delete()
 
Dim db As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field
Dim strDescription As String
 
Set db = CurrentDb
 
For Each tdf In db.TableDefs
 
For Each fld In tdf.Fields
    If MsgBox("Voulez-vous supprimer toutes les données de la table '" & tdf.Name & "'?", vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
    DoCmd.RunSQL ("delete * from " & tdf.Name)
    End If
Next tdf
 
End Sub

j'ai essayé aussi:

Code :

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

DoCmd.RunSQL ("delete * from '" & tdf.Name & "'")

mais rien n'y fait
Du coup je suis un peu Québlo.
Merci d'avance à tout bon samaritain qui voudrait m'éclairer

[Oleff]

Bonjour,
Si tes noms de table comportent des espaces tu dois les encadrer par des [ ].

[patbeautifulday1]

C'était çà le problème
mais où avais-je donc la tête ? Je le fais systématiquement en SQL et je n'y avais pas pensé en VBA.
Merci Oleff