Discussion :

[en_gel_ho]

Bonjour,

Je débute en matière de gestions d'erreur (jusque là, j'ai toujours pratiqué la théorie du "mieu vaut empêcher une connerie que la réparer, même si c'est chiant à programmer).

En fait, j'ai mis en place des masques de saisies, et je souhaiterais personnaliser le message d'erreur qui s'affiche lorsque l'utilisateur se trompe ou cherche à quitter la textebox avant de l'avoir remplie....

je sais faire OnError Goto etiquette

et cela à l'air de fonctionner pas mal, mais le message d'access est franchement rébarbatif à mon goût (alors que quelque chose de simple, du genre "Ce que vous avez entrer ne correspond pas à un numéro de matricule valide" serait si simple et si beau....)

Je suppose que ce doit être faisable, mais je n'ai pas trouver d'exemple dans l'aide access qui permette de le faire.... (d'ailleurs, je trouve l'aide access asez mal documenté dans ce domaine pourtant prioritaire... )

[popo68]

Tu peux chopper le numéro de l'erreur et en le testant le personnaliser avec un msgbox !?

Code :

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

1
2
3
4
5
6
7
8
 
On error go to err
...
 
err: 
if err.number = xxxx then
   msgbox("Erreur de saisie")
end if

[en_gel_ho]

Merci de ton aide popo.

Toutefois, il me reste un gros soucis....

A priorit, le fait d'entrer une donnée qui ne correspond pas au masque de saisie n'est pas reconnu comme une erreur...

En effet, j'ai passé pas mal de temps hier à tenter de récupérer le numéro d'erreur. En désespoir de cause, je viens de faire un test en provoquant l'erreur pour affiocher le numéro dans une msgbox, mais je n'entre jamais dans la partie err.....

une idée?

[ft035580]

Salut,

Peut_être:

Code :

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

1
2
3
4
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Response = False
MsgBox "Ce que vous avez entrer ne correspond pas à un numéro de matricule valide"
End Sub

[popo68]

Dans les propriétés de ton objet où il y a le masque de saisie, tu vas dans données -> Message si erreur.

ou en vba <NomDeL'Objet>.validationtext = "erreur ! "


voilà ^^

[en_gel_ho]

Popo, merci et désolé.

J'ai parcourut ces options 20 fois, mais je n'ai pas vu ça.... je deviens aveugle...

Je dois bien avouer aussi qu'à force, j'ai tellement l'habitude de les lires et relires que je crois bien que je ne vois plus vraient ce que j'ai sous les yeux....


Enfin, merci pour tout.


--------------edit------------------------

Bien que le texte au dessus reste d'actualité, Ca ne marche pas mieu comme ça... Le "message si erreur" n'est pas affiché, et le message habituel s'affiche comme si de rien n'était....



ft035580, tu pourrais me donner un exemple d'utilisation de ta fonction s'il te plait? Je ne vois pas très bien à quoi correspondent tes variable. D'ailleurs, je ne comprend pas non plus pourquoi tu affecte false à la variable response alors qu'elle est définie comme integer....

Merci d'avance.

[popo68]

de rien

[en_gel_ho]

En fait (du coup, j'ai fait des recherches supplémentaires lol), messageSiErreur ne s'affiche que si on viole la loi inscrite dans le paramètre valideSi, or, moi, comme c'est dans le parametre masqueDeSaisie, c'est pas pris en compte....

voili, ca résoud pas le problème, mais si ça peut servir à quelqu'un...

[tee_grandbois]

Bonsoir,
tu peux utiliser la propriété OnError de ton formulaire pour capturer l'erreur et changer ton message :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Error(DataErr As Integer, Response As Integer)
 
' Changer le message d'erreur pour une saisie erronée dans un masque de saisie
Select Case DataErr
Case 2279
    MsgBox "Message personnalisé (erreur saisie sur le champ : " & Me.ActiveControl.Name & ")"
DataErr = 0
Response = 0
Case Else
 
End Select
 
 
End Sub

[alassanediakite]

Salut
Je te propose de répertorier les caractères non valides (pour le champ) puis d'utiliser une procédure (onkeydown ou onkeypress) et d'annuler la frappe avec un message spécifique à la touche appuyée.
Bonne continuation.

[tee_grandbois]

Salut
Je te propose de répertorier les caractères non valides (pour le champ) puis d'utiliser une procédure (onkeydown ou onkeypress) et d'annuler la frappe avec un message spécifique à la touche appuyée.
Bonne continuation.

Merci pour lui alassanediakite, mais il ne s'agit pas ici de contrôler la frappe mais de substituer le message d'erreur affiché lorsqu'une valeur dans un masque de saisie est invalide (erreur 2279) par un message personnalisé (comme je l'ai proposé précedemment).

[en_gel_ho]

Merci à tous.

Plusieurs précisions toutefois :

alassanediakite : effectivement, je n'ai aucun problème pour limiter les caractères car je n'accepte que les chiffres. Donc, le masque de saisie le fait très bien tout seul. Merci quand même.

tee_grandbois et ft035580 : Merci à vous deux. Maintenant, ça fonctionne.


tee_grandbois : juste une dernière question, comme tu as pû me donner le numéro d'erreur alors même que je ne réussissais pas à faire reconnaitre à access qu'il y avait une erreur, peut-être saura-tu me dire s'il y a une liste des erreur et code erreur??? j'ai été assez surpris de ne pas trouver ça dans l'aide d'access, mais bon, je suis pas doué pour farfouiller la dedans a priorit...


En tout cas, encore un grand merci à tous ceux qui m'ont apporté leur aide.

malheureusement, je vous dis probablement à bientôt....

[tee_grandbois]

tee_grandbois : juste une dernière question, comme tu as pû me donner le numéro d'erreur alors même que je ne réussissais pas à faire reconnaitre à access qu'il y avait une erreur,

J'ai provoqué l'erreur dans un formulaire et dans Form_Error j'ai inséré un Stop qui provoque l'arrêt du code, puis j'ai affiché la valeur de DataErr.

peut-être saura-tu me dire s'il y a une liste des erreur et code erreur???

Oui, il existe une liste d'erreurs dans Access, mais à part la liste des Erreurs récupérables je n'ai pas trouvé de liste imprimable.