Discussion :

[bb62]

Bonjour à tous,

J'ai un petit problème de If.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With rstAvoir
.ActiveConnection = connexion
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open "Select Code_MC From Avoir where (Code_Equipe= " & Feuille_Démarrage.Nom_Equipe.ItemData(Feuille_Démarrage.Nom_Equipe.ListIndex) & ") and (Code_Vacation=" & Feuille_Démarrage.Libellé_Vac.ItemData(Feuille_Démarrage.Libellé_Vac.ListIndex) & ") and (Numero_Agent=" & Feuille_Démarrage.Nom_Ctq_Ou_Adjoint.ItemData(Feuille_Démarrage.Nom_Ctq_Ou_Adjoint.ListIndex) & ") and (Date_Vacation=#" & Feuille_Démarrage.Label9.Caption & "#)"
 
If !Code_MC = Null Then
 MsgBox ("Code_MC null")
Else
MsgBox ("Code MC n'est pas null")
End If
.Close
End With

Par exemple dans ma table avoir, J'ai :
Code_Equipe = 1
Code_Vacation = 2
Numero_Agent = 1414
Date_Vacation = 31/01/2006
Code_MC = Null

Lorsque je fais le Si, normalement il doit me mettre le message suivant : "Code_MC Null". Et ben non je n'ai pas ce message la j'ai celui-ci : "Code_MC n'est pas null".

Je n'arrive pas à trouver mon erreur.

Pouvez-vous m'aider?

Merci d'avance.

[ouskel'n'or]

En VBA j'ai IsNull ou empty, pas Null tout court...
A tout hasard

A+

[Pierre Fauconnier]

Bonjour

Code :

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

1
2
 
if isnull(!code_mc) then

Ok?

Pierre Fauconnier

Edit => Coiffé par Ouskel'n'or

[bb62]

Pierre,

Avec IsNull devant !Code_MC ça marche impect.

Merci Encore à tout le monde.