Changer un message d'erreur

**Altrensa** · 08/08/2007, 11h07

Bonjour,

J'aimerais juste pouvoir changer le message d'erreur qui survient sur un champs obligatoire non renseigné. (Remplacer le sempiternelle "... ne peut pas contenir la valeur null car la propriété Required de ce champs est à True...." ou un truc du genre)

D'avance merci

Altrensa

**Demco** · 08/08/2007, 11h27

Dans les propriétés du champ obligatoire dans ta table tu as il me semble une propriété qui te permet de définir le message à afficher.

En espérant t'aider.

**Altrensa** · 08/08/2007, 11h30

Je vais essayer tout de suite mais grand merci de toute façon

Altrensa

**Philippe PONS** · 08/08/2007, 11h35

Oui, et il faudra, peut être, que tu interceptes l'erreur au niveau du formulaire, avec:

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

End Sub

**Altrensa** · 08/08/2007, 12h12

Merci Philippe mais je vois pas trop comment je dois faire....
Je dois mettre dans DataErr sur chaque événement sur sortie de champs et mettre en Response un texte ou quelquechose dans le genre pour le message d'erreur ? En fait je vois vraiment pas...

Merci

**Philippe PONS** · 08/08/2007, 13h47

Je te passe un exemple que j'utilise.
Quand une erreur se produit au niveau du formulaire, l'événement Form_Error est déclenché.
Tu peux alors intercepter des erreurs spécifiques pour lesquelles tu veux afficher un message particulier.
DataErr: contient le numéro de l'erreur
Response=0 force access à ne pas afficher le msg d'erreur système.

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
Private Sub Form_Error(DataErr As Integer, Response As Integer)
 
    Select Case DataErr
        Case 3162
            Call MsgBox("La valeur saisie est NULL!" _
                        & vbCrLf & "Saisissez un taux de tva conforme." _
                        , vbExclamation, "Erreur de saisie....")
            ' dévalidation du message système
            Response = 0
        Case 3101
            Call MsgBox("Saisissez d'abord un libellé puis un taux!", vbExclamation, "Saisie incomplète...")
            ' dévalidation du message système
            Response = 0
    End Select
 
   On Error GoTo 0
   Exit Sub
 
End Sub