[AC-2003] Case a cocher si zone texte est remplie [Résolu]

[Bernard67]

Bonjour le forum,
Sur un formulaire je souhaite que la case "Cocher2" soit cochée si la zone de texte "Texte0" est remplie.
J'ai essayé d'adapter ce code sur la perte de focus de la zone texte, mais je n'arrive pas trouver la solution.

Code :

1
2
3
4
5
6
7
8
9
Private Sub Texte0_LostFocus()
MsgBox Cocher2.Value
If Cocher2.Value = True Then
'Texte0.Enabled = False
Else
Texte0.Value = ""
Texte0.Enabled = True
End If
End Sub

Merci pour l'aide.
Cordialement

[Kloun]

Bonjour,
Pourquoi pas :

Code :

1
2
3
4
5
6
7
Private Sub Texte0_LostFocus()
if nz(Texte0.value, "") <> "" then
    Cocher2 = true
else
    Cocher2 = false
end if
End Sub

Et ça doit être possible en 1 ligne de code.

[Bernard67]

Merci Kloun,
C'est exactement cela, tout fonctionne.

Merci et bonne journée.

Cordialement.