Discussion :

[djibysadji]

Bonsoir à tous
Je voudrais savoir s'il y a un moyen de vider simultanément toutes les tables d'une base de leurs enregistrements. Si c'est possible me dire comment procéder s'il vous plait.

djibysadji

[loufab]

Bonjour,

Des DELETE successifs.

On peut les mettre dans une boucle.

Comme ceci :

Code :

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

1
2
3
4
5
6
7
8
 
    Dim tbl As TableDef
 
    For Each tbl In currentdb.TableDefs
        If (tbl.Attributes And dbSystemObject) = 0 Then
            currentdb.execute "DELETE FROM " &  tbl.name & ";"
        End If
    Next

Cordialement,

[djibysadji]

ça a fonctionné

Merci beaucoup