Discussion :

[samlepiratepaddy]

Slt,
Petit souci sur l'écriture de ce code, je bug sur le critère

Code :

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

1
2
3
4
5
6
7
Private Sub ComboRésultatPriseDeLigne_GotFocus()
If ((Me.Hameau) <> "") Then
Me.Ville.ForeColor = QBColor(1)
Me.Hameau.ForeColor = QBColor(4)
Me.Hameau.BackColor = QBColor(14)
End If
End Sub

En fait, cette suite de code doit s'executer quand Hameau n'est pas vide !!!
Mais le débogueur n'aime pas le

((Me.Hameau) <> "")

Pourtant je ne vois ce qui cloche...
Et j'ai essayé pas mal de chose mais rien ne colle !
Avec le = pas de problème mais le <> il aime pas !!!
Je ne vois pas comment l'écrire autrement????
Quelqu'un a une idée
Merci d'avance

[papy_tergnier]

essaye avec la méthode IsEmpty() ou IsNull()

[pc75]

Bonjour,

If not isnull(MaVariable) .....

[samlepiratepaddy]

Merci les jeunes
C'est ça !!!

Code :

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

1
2
3
If Not IsNull (Me.H....)Then
blabla
End If

[papy_tergnier]

t'as pas vu mon pseudo pour me traiter de jeune

[samlepiratepaddy]

Ben si !!
C'est pour ça !!!
Malgré les cheveux blancs, un p'tit coup de "ça va le jeuno", ça requique !!!