Discussion :

[Sylcoco]

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

[jimbolion]

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

[zoom61]

Salut,

Quelque chose comme cela :

Code :

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

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

@+.

[jimbolion]

zoom61,

Donc +1
Parfait

JimBoLion

[Sylcoco]

Bonjour,

C'est parfaitement ce dont j'avais besoin!

Merci

[Tofalu]

Un autre exemple avec DAO utilisant une transaction :

Code :

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

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