Bonjour à tous
J'ai insérer le code ci dessous sur l’évènement sur erreur de mon formulaire. Il fonctionne parfaitement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 'Si l'erreur est due à un doublon, la fonction affiche un message permettant d'annuler une commande. Const ERR_DOUBLON = 3022 ' Erreur de doublon ' DataErr reçoit le code erreur de la part du moteur de la BDD ou de l'interface Select Case DataErr Case ERR_DOUBLON ' Votre message... MsgBox "Cette date existe déjà, veuillez saisir une autre date...!.", vbExclamation, "Attention" ' La zone à surveiller [Jour].SetFocus ' Demande à Access de continuer l'exécution sans afficher le message standard Response = acDataErrContinue End Select End Sub
En revanche j'ai toujours ce msg qui apparait
avant le message personnalisé
Que dois je rajouter à mon code pour ne plus avoir ce msg, car je ne veux pas que les utilisateurs puissent rentrer dans l’éditeur VB en cliquant sur Débogage ?
Merci à vous
GERALD
Partager