Gestion des messages d'erreur

Bonjour à tous

J'ai insérer le code ci dessous sur l’évènement sur erreur de mon formulaire. Il fonctionne parfaitement

Code:

---

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é
Pièce jointe 582970

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

Bonjour,
Il faut "trapper" cette erreur directement dans le module ou la fonction où elle se produit ...

sinon nous montrer plus de ton code

Bonjour,

Il n'y a pas de module avec une fonction.

Le champ date de ma table est sans doublon !

Je veux simplement remplacer le message classique de vb qui permet d'accéder à l’éditeur VB, par un msg personnalisé
qui lui ne permet pas d'accéder à l'éditeur VB. C'est tout.

Le code est celui posté. Voilà les précisions.

Merci pour votre réponse
GERALD

dans ce cas, si rien n'a été renommé, il faut tester

Code:

---

1 2 3

... Select Case err.number ...

---

Bonjour,

Désolé mais je ne comprends pas votre réponse

GERALD

Bonjour,

Vous êtes dans le bon bloc pourtant et votre code est correct mais à mon avis, il n'y a pas que la date qui est fautive et vue comme valeur gênante...
Essayez donc donc d'annuler :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Form_Error(DataErr As Integer, Response As Integer) Select Case DataErr Case 3022 'Doublon 'On annule l'entrée DoCmd.RunCommand acCmdUndo MsgBox "Cette date existe déjà, veuillez saisir une autre date...!", vbExclamation, "Attention" Me.Jour.SetFocus Case Else MsgBox "Là, il ya un autre problème : " & vbCrLf & AccessError(DataErr), vbExclamation, "Autre erreur" End Select Response = acDataErrContinue End Sub

---

Argy

Bonjour,

merci pour votre réponse, je viens de tester votre code et j'ai toujours le même message

Gérald

donc l'erreur est déclenchée avant l'appel du sub Form_error
Suggestions :
1 faites du debuggage pas à pas
2 enlever temporairement votre gestion d'erreur pour savoir quelle ligne déclenche l'erreur
3 nous montrer l'ensemble du code executé

Sans doute BeforeUpdate ?

Non ?

Bonjour,

Sur BeforeUpdate j'ai le message après !!! j'ai donc mis le code sur erreur et sur beforeupdate, toujours ce message !

GERALD

Hummm...
Ce n’est pas normal ; il y a autre chose sur votre code que l'on ne peut voir.

Je viens de tester et le seul :

Code:

---

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

---

suffit à bypasser le message grâce au Response.

Quels sont les (autres) champs indexés de la table ?

Posez des Stop en pas à pas (F8) dans le code et vous finirez par tomber sur le FormError et la source...

Argy

Bonsoir,

il y un autre champ indexé, la clé primaire ( indexé sans doublon ) et le jour ( c'est à dire la date qui est une valeur par défaut Date() !

GERALD

Bonjour,

Posez un point d'arrêt sur le Form_Error et appuyez sur F8 à chaque fois.
Dites-nous alors quand le message survient...
Est-ce que le message Visual Basic vient avant ou après le vôtre.

Vous n'avez pas par hasard déclaré la constante acDataErrContinue avec une autre valeur que 0 ?

Argy

Bonsoir,

merci de vos réponses, j'ai posé un point d'arrêt ( point rouge a gauche devant Private Sub Form_Error(DataErr As Integer, Response As Integer)
lorsque j’appuie sur F8 j'ai juste un son et rien de se passe !
Il n'y a aucune valeur après acDataErrContinue

Le message VB vient avant le mien.

GERALD

Si c'est bloqué, c'est qu'il y a déjà le message.

Faite en sorte de juxtaposer vos fenêtres (celle de VBA et celle de votre application) pour vérifier que je dis pas trop de bêtises...

Si le message survient alors, c'est que le Form_Error n'est pas encore initié que le message est déjà là.
Donc vous avez sans doute un contrainte d’intégrité qui survient en amont.

Il faudrait que l'on puisse voir en fait car là, comme ça par échange de post, ça ne va pas être simple...

Argy

Je viens de trouver l'erreur, j'ai un autre code VB qui s'exécutait sur le mauvais évènement.

Pour le point d'arrêt j'ai également trouvé son mode de fonctionnement, c'est une procédure que je n'avais jamais utilisée !

Je n'est plus le message VB mais uniquement le mien, c'est parfait.

Merci pour votre aide précieuse, cela permet d'apprendre encore, !
Bon confinement

GERALD

:bravo:

Bonne continuation...

Argy