Discussion :

[curt]

Bonjour à tous,

dans mes formulaires, j'ai renseigné l'évènement "Sur Erreur" pour expliquer à l'utilisateur pourquoi une erreur était levée. (exemple d'une suppression impossible à cause des relations).

Le message s'affiche bien, mais j'ai ensuite le message d'Access qui apparaît.
Comment éviter celà ? Les cases à cocher "confirmer suppression, modifs et requête" sont bien décochées et sur l'évènement "Ouverture" du formulaire, j'ai inclus

Code :

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

DoCmd.SetWarnings False

Merci d'avance pour l'aide.
Bonne fin de journée.
Curt

[electrosat03]

Salut,

Quel message access te met?

[electrosat03]

Place se code, il n'y aura plus de message.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Delete(Cancel As Integer)
    Dim MessageAlertDelete As String
 
    MessageAlertDelete = MsgBox("ATTENTION" & vbCrLf & vbCrLf & vbTab & "Vous allez effacer définitivement un enregistrement." & vbCrLf & vbCrLf & "Voulez-vous confirmer l'effacement ?", vbCritical + vbYesNo, "Effacement")
        If MessageAlertDelete = vbNo Then
            Cancel = True 'On efface pas
        End If
End Sub

[curt]

Parfait.... tout simplement.
Bonne soirée.
Curt