[AC-2003] gestion du message d'erreur

[patheo1]

Salut,
je travaille sur un formulaire qui renvoi les donnees ARTICLE et PVUTTC automatiquement à chaque fois que je saisi le champ CBARRE.
Ce code marche bien mais à chaque fois je laisse le champ CBARRE vide, je reçois un message erreur 94 utilisation incorrecte de Null.

Pouvez vous m'aider à resoudre ce probléme?

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub CBARRE_Exit(Cancel As Integer)
 
Dim txtARTICLE1 As String
Dim txtPVUTTC1 As String
txtARTICLE1 = DLookup("ARTICLE1", "tblCBARRE", "CBARRE1 =[CBARRE]")
txtPVUTTC1 = DLookup("PVUTTC1", "tblCBARRE", "CBARRE1 =[CBARRE]")
If (Not IsNull(txtARTICLE1)) Then Me![ARTICLE] = txtARTICLE1
If (Not IsNull(txtPVUTTC1)) Then Me![PVUTTC] = txtPVUTTC1
 
End Sub

Merci!

[robyseb]

Salut quel est le format de ton champ CBARRE ... si ces boolean donc lors de ton dlookup si la valeur retourné est null l'utilisation est incorrect puisque elle devrait être de type "0" ou "1" etc..

Pour solutionner tu te doit de spécifier la valeur si null avec NZ

Code :

txtARTICLE1 = NZ(DLookup("ARTICLE1", "tblCBARRE", "CBARRE1 =[CBARRE]"), 0)

ce qui retournera 0 donc false

[patheo1]

Merci pour le tuyau,
Le l'ai inserer et le champ renvoi une valeur null. Cependent, est ce je peux ajouter un message pour demander à l'utilisateur de changer le CBARRE.

merci,

Envoyé par robyseb

Salut quel est le format de ton champ CBARRE ... si ces boolean donc lors de ton dlookup si la valeur retourné est null l'utilisation est incorrect puisque elle devrait être de type "0" ou "1" etc..

Pour solutionner tu te doit de spécifier la valeur si null avec NZ

Code :

txtARTICLE1 = NZ(DLookup("ARTICLE1", "tblCBARRE", "CBARRE1 =[CBARRE]"), 0)

ce qui retournera 0 donc false

[Domi2]

Bonsoir,

Quelque chose comme ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
txtARTICLE1 = NZ(DLookup("ARTICLE1", "tblCBARRE", "CBARRE1 =[CBARRE]"), 0)
 
If Is Null txtARTICLE1 Then
 
    MsgBox "Blabla"
 
    Me.CBARRE.SetFocus
 
    Cancel = True
 
    Exit Sub
 
End If

Domi2