Supprimer tous les enregistrements d'une table

Bonjour à tous,

Qu'elle serait la requête pour supprimer tous les enregistrements d'une table en ayant un message d'alerte type " Voulez-vous supprimer tous les enregistrements ?" et une validation par "oui" qui supprime effectivement, et un"non" qui annule. Le "oui" et le "non" ramenant sur le formulaire ouvert.

D'avance merci pour l'aide qui pourrait m'être apportée.

sylvain

Sylcoco,

Une macro mais en ne modifiant pas les informations liées aux setWarnings. De mon côté je privilégie un code VBA et un MsgBox voire un deuxième de re-confimation.

un docmd.runsql .... devrait faire l'affaire ensuite

Cela dit a tu géré la suppression des enregistrements en cascade ? Tes relations ne risquent t-elle pas de te poser un problème ?

JimBoLion

Salut,

Quelque chose comme cela :

Code:

---

1 2 3 4 5

If MsgBox("Voulez-vous supprimer tous les enregistrements ? ?", vbQuestion + vbYesNo, "Titre") = vbYes Then docmd.setwarnings false docmd.Runsql "DELETE * FROM T_TABLE" docmd.setwarnings true End If

---

@+.

zoom61,

Donc +1
Parfait :ccool:

JimBoLion

Bonjour,

C'est parfaitement ce dont j'avais besoin!

Merci :ccool:

Un autre exemple avec DAO utilisant une transaction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub Suppression() Dim oDbE As DAO.DBEngine Dim oDb As DAO.Database   Set oDbE = DBEngine Set oDb = CurrentDb   'Démarre une nouvelle transaction oDbE.BeginTrans   'Demande la suppression des données oDb.Execute "DELETE FROM LATABLE"   'Demande confirmation If MsgBox("Vous allez supprimer : " & oDb.RecordsAffected & " ligne(s) " & vbCrLf & "Voulez-vous continuer ?", _ vbQuestion + vbDefaultButton2 + vbYesNo, _ "Suppression") = vbYes Then   'Valide la suppression oDbE.CommitTrans Else 'Sinon, annule oDbE.Rollback End If   Set oDb = Nothing: Set oDbE = Nothing End Sub

---