Discussion :

[rjcab]

Bonjour,

voici mon code:

Code :

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

1
2
3
4
5
6
7
8
'
 
MsgBox (Form_Build_Order.D_Install.Value)
If (Form_Build_Order.D_Install.Value) <> Null Then
faire qq chose
else
MsgBox ("rien a faire")
endif

Build_Order est mon formulaire et D_Install une zone texte.
Le pb c'est que juste avant je fais un msgbox et dans la zone texte il y a bien un chiffre mais a chaque fois il passe dans le else.

La je ne comprends pas trop...

Merci

[J.Michel]

Bonjour,

Essaye comme ça

Code :

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

1
2
3
4
5
6
7
 
MsgBox (Form_Build_Order.D_Install.Value)
If (Form_Build_Order.D_Install.Value) <> "" Then
   faire qq chose
else
   MsgBox ("rien a faire")
endif

[_MattU_]

Ou alors avec empty :

Code :

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

1
2
3
4
5
6
MsgBox (Form_Build_Order.D_Install.Value)
If (Form_Build_Order.D_Install.Value) <> empty Then
   faire qq chose
else
   MsgBox ("rien a faire")
endif

Je trouve ca plus propre et on comprend tout de suite ! Mais ce n'est qu'un choix personnel J.Michel

[Tonioyo]

Pour des chaines de caractères faut tabler sur la longueur

Code :

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

1
2
3
4
5
6
MsgBox (Form_Build_Order.D_Install.Value)
If Len(Form_Build_Order.D_Install.Value) > 0 Then
   faire qq chose
else
   MsgBox ("rien a faire")
endif

[_MattU_]

Pour des chaines de caractères faut tabler sur la longueur

Code :

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

1
2
3
4
5
6
MsgBox (Form_Build_Order.D_Install.Value)
If Len(Form_Build_Order.D_Install.Value) > 0 Then
   faire qq chose
else
   MsgBox ("rien a faire")
endif

Pas nécessairement, nos deux facons de faire sont correctes, et fonctionnent pour nimporte quel type de valeurs entrées
Mais c'est une possibilité !

[Tonioyo]

Oui c'est possible mais j'ai une petite question à ce sujet :

Le variable empty est-elle une constante access bien gérée ? C'est à dire que lorsque Access changera de version il n'y aura pas de problème avec ce genre de chose ? Par exemple si empty se transforme en vbEmpty ou autre.

ca se trouve il y a mieux encore avec ca :

Code :

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

1
2
3
4
5
6
MsgBox (Form_Build_Order.D_Install.Value)
If IsEmpty(Form_Build_Order.D_Install.Value) Then
   faire qq chose
else
   MsgBox ("rien a faire")
endif

[J.Michel]

Je trouve ca plus propre et on comprend tout de suite ! Mais ce n'est qu'un choix personnel J.Michel

Pas de pb, surtout que je suis d'accord avec toi. (juste un peu faineant )

Et pour répondre à Tonioyo, je suis de nouveau d'accord avec _MattU_, tu auras bien d'autre soucis de version avant qu'ils nous suppriment Empty

[rjcab]

Merci bcp a vous,

Ceci marche très bien

Code :

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

1
2
3
4
5
6
	MsgBox (Form_Build_Order.D_Install.Value)
If (Form_Build_Order.D_Install.Value) <> empty Then
   faire qq chose
else
   MsgBox ("rien a faire")
endif