Discussion :

[Eva71]

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

[Demco]

Cependant, lorsque j’utilise un bouton que j’ai créé pour ajouter un nouvel enregistrement, j’ai le message d’erreur suivant :

Car ton bouton possède probablement un système de gestion des erreurs qui prend le dessus sur celle du formulaire. Fais ton choix camarade.