Discussion :

[jolemoine]

Bonjour,

peut on changer le texte des MsgBox survenus suite à une erreur dans Access 2000 ou 2002

où peut on trouver la liste des message d'erreurs d'Access

merci de votre aide

[Domi2]

Bonjour,

Oui, c'est possible.

Tu peux regarder ici et ici.

Pour ce qui est de la liste des erreurs, il y'en a des milliers.

Tu peux regarder cette discussion, il y'a un code permettant de les récupérer dans une table.

Pour ma part, je n'utilise pas une table complète. Je mets une gestion d'erreurs dans mes procédures ou fonctions et je les sauvegarde dans un fichier (voir le tuto de Christophe Warin).

Pour l'affichage de messages particuliers ou d'action à entreprendre, je ne m'occupe que des principales erreurs qui peuvent survenir dans le contexte ou que je lève volontairement. Pour les autres, j'indique uniquement qu'une erreur inattendue est survenue et de prévenir l'administrateur.

Et après, il me suffit d'analyser l'erreur inscrite dans le fichier. Si elle survient fréquemment, je l'inclus dans la gestion spécifique.

Domi2

[jolemoine]

Bonjour Domi2,

je connaissais une partie des liens, mais je n'avais pas tout compris, a force de chercher je pense avoir trouver une solution à mon problème, mais je sais pas si cela est élégant.

en fait je veux intercepter une erreur qui se produit lors d'une mauvaise saisie d'une date.

le champ concerné est "Date_saisie" dont les propriété dans la table sont:
"si <= Date() OU EST Null" (grace à Tofalu)

voila le code que j'ai mis dans le formulaire de saisie de cette date:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Form_Error(DataErr AS Interger Response AS Integer)

Const Err_saisie_1 = 3316
Const Err_saisie_2 = 3317
Const Err_saisie_3 = 0

Select Case  DataErr
        Case Err_saisie_1
                  MsgBox  "Veuillez saisir une date valable", vbExlclamation
                  Response=  acDataErrContinue
        Case Err_saisie_2
                  MsgBox  "Veuillez saisir une date valable", vbExlclamation
                  Response=  acDataErrContinue
       Case Err_saisie_3
                  MsgBox  "Type d'erreur inconnue", vbExlclamation
                  Response=  acDataErrContinue
      Case Else
                  MsgBox Err.Number & " " & Err.Description
End Select

End Sub

cela semble marcher, mais je ne sais pas s'il y a d'autre solution plus élégantes.

[marot_r]

C'est trés bien à part :

dans le 'Case else' il conviendrait de remplacer le code actuel par un truc du genre

Code :

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

1
2
 
MsgBox "L'erreur " & DataErr & ", " & AccessError(DataErr) & " s'est produite."

Et je te suggère de remplacer : Err_saisie_1 par Err_Saisie_Date_Invalide.

Je sais bien que le code te permets de le savoir mais si tu as

Code :

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

1
2
 
case Err_Saisie_Date_Invalide

au lieu de

Code :

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

1
2
 
case Err_Saisie-1

tu sais immédiatement ce qui déclenche la condition sans avoir à regarder partout.

A+

[jolemoine]

Bonjour marot_r,

et je prend note de tes remarques cela finalisera mon code et il sera plus propre.

je pense que maintenant je peut mêtre

A +