Slt,
Petit souci sur l'écriture de ce code, je bug sur le critèreEn fait, cette suite de code doit s'executer quand Hameau n'est pas vide !!!
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
Mais le débogueur n'aime pas lePourtant je ne vois ce qui cloche...((Me.Hameau) <> "")
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
Partager