Discussion :

[ludovicparis]

Bonjour,

Je n'arrive pas à personnaliser le message d'erreur 94 : utilisation incorrecte du null" pourtant j'ai jeter un oeil dans le faq et j'ai fait cela mais ça fonctionne pas

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
22
23
24
25
26
27
28
29
 
Public Sub SUB_Display_Error(intErrNumber As Integer, strErrDescription As String _
, strErrSource As String, strErrModule As String, strErrFonction As String)
 
On Error GoTo SUB_Display_Error
 
MsgBox "Erreur : " _
& intErrNumber & Chr(13) & " Description : " _
& strErrDescription & Chr(13) & " Source : " & strErrSource & Chr(13) & _
" Module : " & strErrModule & Chr(13) & " Fonction : " & _
strErrFonction, vbCritical
 
SUB_Display_Error:
 
MsgBox "Erreur : " & Err.Number & Chr(13) & "Description : " & Err.Description & Chr(13) & _
"Source : " & Err.Source & Chr(13) & _
"Module : General_Module Démarrage" & Chr(13) & _
"Fonction : Public Sub SUB_Display_Error(intErrNumber As " & _
"Integer, strErrDescription As String, strErrSource As String, " & _
"strErrModule As String, strErrFonction As String)", vbCritical
 
Select Case Err.Number
Case 94 'x est le numéro de l'erreur que vous voulez intercepter
MsgBox "LeMessage"
Case Else
MsgBox Err.Number & " " & Err.Description 'pour les cas que vous n'aurez pas mentionnés.
End Select
 
End Sub

Merci pour votre aide

[RGShoop]

salut,

j'ai essayé ton code

ajoute :

Code :

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

1
2
3
4
5
6
Select Case Err.Number
Case Is = 94 'x est le numéro de l'erreur que vous voulez intercepter
MsgBox "LeMessage"
Case Else
MsgBox Err.Number & " " & Err.Description 'pour les cas que vous n'aurez pas mentionnés.
End Select

Par contre, je ne comprends pas trop le but de ta personnalisation des message d'erreur, si tu pouvais m'éclairer.

A+ RGShoop

[ludovicparis]

C'est vrai que ce n'est pas très clair, j'ai repris rapidement ce qui est présent dans le faq mais dans ma base access je veux remplacer le message d'erreur 94 par "la ref saisie est inconnue"

Le problème est que à l'origine je ne voulais pas qu'il est l'erreur 94 qui apparaisse mais je n'arrive pas à poser une condition à ma zone de texte, c'est à dire que la référence saisie dans cette zone de texte doit être connue et donc référencée dans le champ référence d'une de mes tables.
A l'heure actuel si je tape une ref inconue il me renvoie l'erreur 94.

J'espère que je suis un peu plus clair.

J'ai essayer ton code mais ça ne change rien, j'ai toujours le même message qui apparaît.

Merci pour ta réponse

[stéphane_ais2]

Bonjour,

Le problème est que à l'origine je ne voulais pas qu'il est l'erreur 94 qui apparaisse mais je n'arrive pas à poser une condition à ma zone de texte, c'est à dire que la référence saisie dans cette zone de texte doit être connue et donc référencée dans le champ référence d'une de mes tables.

2 manières d'arriver à ton but :
- la référence doit exister : utilise une zone de liste modifiable basée sur les valeurs existantes à la place de la zone de texte ; de cette manière l'utilisateur ne peut choisir que des valeurs déjà existantes...donc plus d'erreur
- tu gardes une zone de texte et tu fais un contrôle de saisie avec la mise à jour sur l'évenement 'BeforeUpdate' de la dite zone de texte avec un code du type :

Code :

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

1
2
3
If IsNull(DLookup("[Reference]", "[table]", "[Reference] =  '" & Me.NomZonedeTexte & "'")) Then 
MsgBox "......."
end if

SE