Discussion :

[Cantalou]

Bonjour,

Comment puis-je vider une table avec une instruction en VBA lorsque je quitte un formulaire?

Merci de votre aide

[Invité]

Bonjour

Code :

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

1
2
3
4
 
  DoCmd.SetWarnings False 'empêche les messages d'alerte
    DoCmd.RunSQL "DELETE * FROM MaTable "
  DoCmd.SetWarnings True

[marot_r]

Autre solution possible :

créer une requête de suppression (ex : rViderMaTable) et l'appeler à partir du code suivant :

Code :

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

1
2
3
dim db as dao.database:set db=currentdb
db.querydefs("NomTaRequeteSuppression").execute
db.close:set db=nothing

A+

[Cantalou]

OK !!

Merci à tous les 2 !

Je vais tester en priorité la solution en VBA ... lundi !

Bon WE !

[Cantalou]

En fait je n'ai pas pu résister à la tentation de tester vos proposition dès vendredi soir : Ça marche impec !!

[SSJconsult]

... et en voici une troisieme qui ne generera aucun message de confirmation de la part d'Access :

Code :

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

Call CurrentDb.Execute("DELETE * FROM MaTable;")

Bon amusement