Discussion :

[olivier777]

Bonjour à tous,

J'utilise le code suivant pour vider une table :

Code :

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

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

Je souhaite l'enrichir d'un message de demande de confirmation du vidage de la table, mais je ne sais pas comment le faire.
Pouvez vous m'aider ?
Merci

[Psychopathe]

Ben déjà tu peux éviter d'utiliser SetWarnings False. Tu auras directement ton message d'avertissement. Sinon pour un message personnalisé:

Code :

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

1
2
3
4
 
   DoCmd.SetWarnings False 'empêche les messages d'alerte
   If(vbYes= Msgbox("Voulez-vous vraiment vider la table?",vbYesNo+vbquestion)) then  DoCmd.RunSQL "DELETE * FROM MaTable "
  DoCmd.SetWarnings True

[olivier777]

Ok merci !!

Ca fonctionne