Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

supprimer 6 = 6 messages

2 réponses
Avatar
jfd
Re bonjour et suite
Avec ce code, si je veux supprimer 6 enregistrements, j’ai 6 fois le message
à confirmer comment éviter cela ?
Merci de votre aide.
jfd
Private Sub Form_Delete(Cancel As Integer)
DoCmd.SetWarnings False
If MsgBox("Voulez vous réellement supprimer les enregistrements sélectionnés
/// Would you really delete selectioned records", vbYesNo, "ATTENTION") =
vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
DoCmd.CancelEvent
End If
End Sub

2 réponses

Avatar
Fabien
Re bonjour et suite
Avec ce code, si je veux supprimer 6 enregistrements, j’ai 6 fois le message
à confirmer comment éviter cela ?
Merci de votre aide.
jfd
Private Sub Form_Delete(Cancel As Integer)
DoCmd.SetWarnings False
If MsgBox("Voulez vous réellement supprimer les enregistrements sélectionnés
/// Would you really delete selectioned records", vbYesNo, "ATTENTION") =
vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
DoCmd.CancelEvent
End If
End Sub

Bonjour,

Avec la commande docmd.setwarnings

Docmd.setwarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Docmd.setwarnings True

@+

Avatar
jfd
Bonjour Fabien et merci
Mais "Docmd.setwarnings False" deja dans le code d'ou la question pour un
form en continu.
Bonne journée


Re bonjour et suite
Avec ce code, si je veux supprimer 6 enregistrements, j’ai 6 fois le message
à confirmer comment éviter cela ?
Merci de votre aide.
jfd
Private Sub Form_Delete(Cancel As Integer)
DoCmd.SetWarnings False
If MsgBox("Voulez vous réellement supprimer les enregistrements sélectionnés
/// Would you really delete selectioned records", vbYesNo, "ATTENTION") =
vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
DoCmd.CancelEvent
End If
End Sub

Bonjour,

Avec la commande docmd.setwarnings

Docmd.setwarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Docmd.setwarnings True

@+