Discussion :

[yaya54]

Bonjour à tous,

Je voudrais créér une requête Init qui vide toutes les tables locales.

Pour l'instant j'en suis là

Code :

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

1
2
DELETE *
FROM Table1, Table2, Table3;

mais ça ne fonctionne pas...

Comment faire ? Merci !

[Invité]

Salut,

Il faudrait faire une boucle sur la collection TableDefs (voir DAO), récupérer les noms de tables dans une variable et mettre cette variable dans ta requête SQL.
ATTENTION au tables systèmes qui commencent par "Msys".

Je ne peux te donner de code, je n'ai pas cela sous la main, mais le principe est là

Starec

[gripoil]

Ne pas oublier de cocher la référence Microsoft DAO 3.6 Object Library.

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
Sub VidageTable()
 
Dim db As DAO.Database
Dim tdf As DAO.TableDef
 
Set db = CurrentDb()
 
DoCmd.SetWarnings False
 
For Each tdf In db.TableDefs
 
    If (tdf.Attributes And dbSystemObject) = 0 Then
        CurrentDb.Execute "DELETE * FROM [" & tdf.Name & "];"
    End If
 
Next
 
DoCmd.SetWarnings True
 
Set db = Nothing
 
MsgBox "Table(s) vidée(s)."
 
End Sub