Discussion :

[electrosat03]

Bonjour,

Dans un form de saisie lorsque je sélectionne plusieurs enregistrements pour les effacer à l'aide de la procédure suivante :

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

il me montre le message autant de fois qu'il y a d'enregistrements sélectionné, normal.

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+

[ft035580]

Salut,

Dans un form de saisie lorsque je sélectionne plusieurs enregistrements pour les effacer

De quelle manière tu sélectionnes tes différents enregistrements?

De plus, lorsque je regarde ton code je ne comprends pas ta façon de supprimer tes enregistrements.

[electrosat03]

Salut,

Je les sélectionnes à l'aide du clic gauche quand je suis dans le sélecteur d'enregistrement. Et si c'est plusieurs, maintien du clic en déplaçant la souris.

Pour effacer, clic droit / menu contextuel avec une commande prédéfinie Supprimer l'enregistrement.

Voilà.

A+