Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 28/06/2011, 16h30   #1
Invité régulier
 
Homme
Inscription : mai 2011
Messages : 28
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : mai 2011
Messages : 28
Points : 9
Points : 9
Par défaut Mise en forme conditionnelle en fonction d'une CheckBox

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 :
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
Oxopor est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/06/2011, 17h00   #2
Rédacteur/Modérateur
 
Avatar de User
 
Homme Denis
Développeur informatique
Inscription : août 2004
Messages : 3 206
Détails du profil
Informations personnelles :
Nom : Homme Denis
Âge : 42
Localisation : France

Informations professionnelles :
Activité : Développeur informatique

Informations forums :
Inscription : août 2004
Messages : 3 206
Points : 5 258
Points : 5 258
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+
__________________
Merci de ne pas poster sur mon profil pour des problèmes techniques. Pour celà vous pouvez utiliser le forum ou m'envoyer un mp.

Bon développement !


Mes tutoriels et contributions sur ma page perso:
Ma page personnelle
User est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/06/2011, 17h22   #3
Invité régulier
 
Homme
Inscription : mai 2011
Messages : 28
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : mai 2011
Messages : 28
Points : 9
Points : 9
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 :
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
Oxopor est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 28/06/2011, 17h29   #4
Rédacteur/Modérateur
 
Avatar de User
 
Homme Denis
Développeur informatique
Inscription : août 2004
Messages : 3 206
Détails du profil
Informations personnelles :
Nom : Homme Denis
Âge : 42
Localisation : France

Informations professionnelles :
Activité : Développeur informatique

Informations forums :
Inscription : août 2004
Messages : 3 206
Points : 5 258
Points : 5 258
De rien,

Bonne suite
__________________
Merci de ne pas poster sur mon profil pour des problèmes techniques. Pour celà vous pouvez utiliser le forum ou m'envoyer un mp.

Bon développement !


Mes tutoriels et contributions sur ma page perso:
Ma page personnelle
User est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 02h21.


 
 
 
 
Partenaires

Hébergement Web