Discussion :

[Oxopor]

Bonjour,

Je voudrais faire une mise en forme conditionnelle sur un TextBox dans un formulaire en fonction d'un champs ayant la propriété d'une case à cocher. (Couleur du font vert lorsque la case est cochée).
J'ai regardé les différents tutoriels sur les mises en forme mais mon code ne fonctionne toujours pas. Cela doit venir d'une erreur de syntaxe mais je ne vois pas la quelle.

Le code est le suivant:

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
 
Me.Visualisation_Floraison_Janvier.FormatConditions.Delete
Me.Visualisation_Floraison_Janvier.FormatConditions.Add acExpression, , "[TblPlante].[Floraison_Janvier] = True"
Me.Visualisation_Floraison_Janvier.FormatConditions.Item(0).BackColor = RGB(0, 255, 0)
 
End Sub

A savoir que:
Table = TblPlante
Champs = Floraison_Janvier
TextBox = Visualisation_Floraison_Janvier

Est ce quel qu'un pourrait m'aider?

Merci

[User]

Salut,

Tu peux sélectionner la zone de texte, puis menu Format -> Mise en forme conditionnelle et mettre comme :

Condition1
Expression ----> [Floraison_Janvier] = True

A+

[Oxopor]

Cela fonctionne parfaitement.

Je voulais passer par vba car le code est accessible et plus facilement modifiable.

Et du coup, en regardant ton expression, j'ai pu modifier sous vba.

Le code final donne:

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
 
Me.Visualisation_Floraison_Janvier.FormatConditions.Delete
Me.Visualisation_Floraison_Janvier.FormatConditions.Add acExpression, , "[Floraison_Janvier] = True"
Me.Visualisation_Floraison_Janvier.FormatConditions.Item(0).BackColor = RGB(0, 255, 0)
 
End Sub

Merci Denis

[User]

De rien,

Bonne suite