Discussion :

[snoopy69]

Bonjour à tous ...

Je suis en train de décelopper une base de données sous Access 2003 et j'ai une vingtaine de table qui contiennent divers enregistrements.

J'aimerais effacer toutes les données de la base par code, es ce que cela est possible avec une requête ou alors en VBA ???

Et ce que j'aimerais aussi c'est que dès que j'efface des données que mes clé qui sont générées en NuméroAuto se remettent à 1 ... es ce que cela est possible ???

Merci de vos réponses ...



A tout bientôt

[random]

en vba

Code :

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

1
2
3
4
5
6
 
dim z as dao.database
Set z = CurrentDb()
For Each y In z.TableDefs
If Left(y.Name, 4) <> "MSys" Then docmd.RunSQL("delete * from" & y.name & " ;")
next y

puis compactage

[snoopy69]

Merci Random pour ton aide ...

Cela fonctionne parfaitement ... C'est ce que je voulais ...

A tout bientôt ...