Bonjour,

J’aimerais personnaliser les messages d’erreur. J’ai trouvé le code sur la FAQ.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
   Case 3022
        MsgBox "Une ville est déjà enregistré avec cet IDVille!", vbExclamation, "Attention"
        Me.IDVille.SetFocus
       Response = acDataErrContinue
   End Select
End Sub
Ce code fonctionne très bien lorsque j’ajoute un nouvel enregistrement avec la barre d’enregistrement ou bien lorsque je ferme la fenêtre.

Cependant, lorsque j’utilise un bouton que j’ai créé pour ajouter un nouvel enregistrement, j’ai le message d’erreur suivant : Impossible d’atteindre l’enregistrement spécifié.

Lorsque j’utilise un bouton que j’ai créé pour sauvegarder un enregistrement, j’ai le message d’erreur 3022 du système.

Merci de votre aide