Bonjour,
Dans un form de saisie lorsque je sélectionne plusieurs enregistrements pour les effacer à l'aide de la procédure suivante :
il me montre le message autant de fois qu'il y a d'enregistrements sélectionné, normal.
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 Private Sub Form_Delete(Cancel As Integer) Dim MessageAlertDelete As String On Error GoTo Form_Delete_Error DoCmd.SetWarnings False 'Interdire l'affichage des messages ACCESS Beep Beep MessageAlertDelete = GrasMsgBox("ATTENTION !" & vbCrLf & vbCrLf & "Vous allez effacer définitivement un enregistrement.@@" & vbTab & "Voulez-vous confirmer l'effacement ?", vbYesNo + vbCritical, "Effacement") If MessageAlertDelete = vbNo Then Cancel = True End If On Error GoTo 0 Exit Sub Form_Delete_Error: MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure Form_Delete of Document VBA Form_F_saisie" End Sub
Donc, j'aimerais mieux avoir le message une seule fois et effacer tous les enregistrements sélectionnés. D'où ma question, comment faire pour connaître le nbre. d'enregistrements sélectionnés.
Merci A+
Partager