Pouvoir rendre controls enable si valeur checbox est vraie

[zombe]

Salut le forum

Je souhaite obtenir de l'aide avec mon usf.
Je cherche à rendre des controls inactifs (enable) lorsque certaines conditions sont vérifiées.
En effet, si la valeur de checkbox CH est vraie, après avoir renseigné le champ EMPLOYEUR, je souhaite que les textbox29, textbox26 et CBoxCat soit inactif (c'est à dire qu'on n'y puisse pas réaliser de saisie).
Merci

 

[xhudi69]

Re : Pouvoir rendre controls enable si valeur checbox est vraie

Bonsoir zombe ,le Forum

en PJ ton fichier, un peu rustique, mais qui fonctionne.

@+

 

[kjin]

Re : Pouvoir rendre controls enable si valeur checbox est vraie

Bonsoir,
Mets les 3 contrôles (Textbox et Combobox) dans un cadre (Frame4 dans cet exemple...) et ajoutes ces lignes

Private Sub CheckCH_Click()
Frame4.Enabled = Not (Len(TextBox22) > 0 And CheckCH)
End Sub

Private Sub TextBox22_Change()
Frame4.Enabled = Not (Len(TextBox22) > 0 And CheckCH)
End Sub

A+
kjin