Discussion :

[Davik]

pourriez vous m'indiquer un code pour effacer la totalité des enregistrement d'une table ! merci

[stéphane_ais2]

Bonjour,

Code :

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

1
2
3
4
5
 
Dim Bd as Database
Set Bd = CurrentDb()
Bd.Execute "DELETE * FROM NomTable"
Bd.Close

SE

[rstephane]

Tiens, voici une solution:

Code :

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

DoCmd.RunSQL "DELETE FROM table1;"

Sinon tu en as d'autre dans la faq...

[Davik]

merci c'est parfait, serai-ce possible d'intégrer une demande de confirmation
êtes vous sur de vouloir effacer tout les enregistrements ?
OUI --- NON

[Dolphy35]

merci c'est parfait, serai-ce possible d'intégrer une demande de confirmation
êtes vous sur de vouloir effacer tout les enregistrements ?
OUI --- NON

Salut,
exemple :

Code :

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

1
2
3
If MsgBox ("Voulez-vous vraiment éffacer ??",,VbYesNo) = VbYes Then
'Execution du code
End If

[Davik]

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande23_Click()
Dim Bd As Database
Set Bd = CurrentDb()
If MsgBox("Voulez vous vraiment effacer toutes vos précédentes installations?", , vbYesNo) = vbYes Then
Bd.execute "DELETE * FROM T_Installation"
Bd.Close
lstresultat.Requery
End If
End Sub

cela m'affiche un message box mais je n'ai pas le choix du oui non j'ai juste un OK ! et lorsque je clique dessus cela ne m'efface rien

[Dolphy35]

Erreur de ma part :

Code :

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

1
2
If MsgBox("Voulez vous vraiment effacer toutes vos précédentes installations?", _ 
vbYesNo) = vbYes Then

il y a avait une virgule de trop.

[stéphane_ais2]

On pourrait ajouter un vbCritical

Code :

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

1
2
If MsgBox("Voulez vous vraiment effacer toutes vos précédentes installations?", _ 
vbCritical + vbYesNo) = vbYes Then

...

SE