Discussion :

[milielf]

bonjour,
j'ai fait plsieurs boutons de commande sur lesquels j'aimerai supprimer certains messages d'erreur. comment (où) puis-je trouver le numéros du message d'erreur que je veut modifier?

par exemple, une commande qui crée un champs, je veut que si le champs existe déjà, le mesasge d'erreur disparaisse en me servant d'un code du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Err_ajoutchps_Click:
Select Case err.Number
    Case 3376 'numero du message d'erreur que je cherche 
       Resume Next
    Case Else
       MsgBox err.Description
       Resume Exit_ajoutchps_Click
End Select

[guigui5931]

Pourquoi ne pas utiliser l'évenement Error du formulaire, tu peut récupérer l'erreur le premier paramètre , et tu peut faire l'action que tu veux, puis choisir la réponbse à donner avec le second paramètre

[milielf]

tu peut m'expliquer? je vois pas ce que tu veut dire.

[guigui5931]

Il existe un évenement Error qui se déclanche lorsqu'il y a une erreur sur le formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

DataErr te renvoi le numéro de l'erreur (tu peut utliser la fonction Error pour avoir le message), Response te permet de choisir entre 2 possibilité continuer en ignorant l'erreur ou arreter lexecution

donc tu pourais faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub Form_Error(DataErr As Integer, Response As Integer)
    if (DataErr=lenum)then
         MsgBox (le nouveau message)
         Response =acDataErrContinue
    end if
end sub

Tu aurais trouvé la plupart des infos en utilisant