Discussion :

[aarlock]

J'y crois pas!!!

Bonjour à tous!

Je bloque sur une simple boucle if ... then ... end if
voici le code

Code :

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

1
2
3
4
5
6
 
dat = Me.zoneDate
If dat = Null Then
    MsgBox "vous devez saisir une date de marché"
    Exit Sub
End If

lorsque ma zoneDate est effectivement null, dat est alors bien null (c'est rassurant).
Pourtant je n'arrive toujours pas à entrer dans ma boucle if.
J'ai bien vérifié par des espions que dat avait pour valeur "null".

Je précise que zoneDate est une zone de texte dans un formulaire avec un filtre de date ##/##/####

Est ce que le problème vient de l'existance d'un filtre?

Je sèche...


Merci

[Invité]

Salut,

Il faut tester différement

Code :

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

1
2
3
 
if isnull(me.zonedate.value) then
...

Starec

[pc75]

Salut,

Il faut tester différement

Code :

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

1
2
3
 
if isnull(me.zonedate.value) then
...

Starec

Et peut-être en plus :

Code :

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

1
2
3
 
if isnull(me.zonedate.value) or not IsDate(me.zonedate.value) then
...

[rstephane]

Perso j'écrirais:

Code :

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

1
2
3
4
5
6
7
8
 
 
If IsNull(Me.zoneDate) Then
    dat = Me.zoneDate
    ....    
Else
    MsgBox "vous devez saisir une date de marché"    
End If

C'est comme ça qu'on m'a appris à l'école

[aarlock]

youpi!!!

j'atttendais pas autant de réponse.

Code :

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

Isnull(me.zoneDate)

marche tres bien, je n'ai aps eu besoin de tester le reste.

A oui pour info...
Je n'ai pas fait de vba a l'ecole. Et pour ce qui est des SGBD on a simplement appris la methode merise et appliqué le tout un peu sur Access mais c'est tout. Ceci étant dit...

Je vous remercie pour votre promptitude a repondre