OVH Cloud OVH Cloud

Case à cocher

3 réponses
Avatar
Nicolas
Bonjour,
Comment faire pour que le contenu d'un controle change de couleur en
fonction d'une case à cocher. En clair, si je valide ma case à cocher (
payé), comment faire pour que mon controle (prix) devient rouge.

Aidez moi svp !

3 réponses

Avatar
Sweety
Vas voir du côté de format / mise en forme conditionnelle (lorsque le
formulaire est ouvert en mode création et après avoir sélectionné le
contrôle dont la couleur doit changer)

"Nicolas" a écrit dans le message de
news:
Bonjour,
Comment faire pour que le contenu d'un controle change de couleur en
fonction d'une case à cocher. En clair, si je valide ma case à cocher (
payé), comment faire pour que mon controle (prix) devient rouge.

Aidez moi svp !


Avatar
Raymond [mvp]
RE.

If Me.Cocher1 Then
Me.Valeur.BackColor = RGB(255, 0, 0)
Me.Valeur.ForeColor = RGB(255, 255, 255)
Else
Me.Valeur.BackColor = RGB(255, 255, 255)
Me.Valeur.ForeColor = RGB(0, 0, 0)
End If


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Nicolas" a écrit dans le message de
news:
Bonjour,
Comment faire pour que le contenu d'un controle change de couleur en
fonction d'une case à cocher. En clair, si je valide ma case à cocher (
payé), comment faire pour que mon controle (prix) devient rouge.

Aidez moi svp !


Avatar
Raymond [mvp]
.../...

ça ne fonctionne pas pour un formulaire en continu. pour le continu, faut
passer par la mise en forme conditionnelle. tu peux d'ailleurs utiliser la
mise en forme conditionnelle pour un formulaire unique.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le message de
news:
RE.

If Me.Cocher1 Then
Me.Valeur.BackColor = RGB(255, 0, 0)
Me.Valeur.ForeColor = RGB(255, 255, 255)
Else
Me.Valeur.BackColor = RGB(255, 255, 255)
Me.Valeur.ForeColor = RGB(0, 0, 0)
End If