Modif ou supp messages erreur access

Bonjour,

J'ai la soluce

Il faut paramétré l'évènement sur erreur du formulaire et mettre comme code ce qui suit

Private Sub Form_Error(DataErr As Integer, Response As Integer)

If DataErr = 2237 Then
MsgBox "erreur liste" -> Texte que l'on veut voir afficher à la place de celui par défaut
Response = acDataErrContinue
End If

End Sub

Ceci aura pour effet d'afficher le texte de la msgbox des qu'il sera saisie autre chose que ce qu'il existe dans les listes

Merci Hervelot de ta réponse rapide.

Je fais un essai dès que possible et je te tiens au courant

A+

DD

Super!! Ca marche!

Comme tu sembles bien maîtriser le code, je me permets de rajouter une difficulté :

Quand je clique sur OK pour fermer la fenêtre du message, est-il possible d'ouvrir simultanément un formulaire (appelons le CHOIX), que j'ai créé et qui donne le choix d'actions à accomplir à la suite du message d'erreur?

Merci beaucoup pour ton aide.

DD

ben oui, à la suite de response = .... , tu ajoutes le code d'ouvertre du formulaire docmd.openform "CHOIX"

If DataErr = 2237 Then
MsgBox "erreur liste"
Response = acDataErrContinue
docmd.openform "CHOIX"
End If

C'est magique, ça fonctionne!!

C'est très sympa de m'avoir aidé, merci beaucoup.

DD

Au plaisir

Bonjour,

j'ai le meme problème mais je ne sais pas ou taper ce bout de code, je ne m'y connait pas trop en access et essaye de deboguer par moi meme.

D'avance merci