Discussion :

[maxime350]

Bonjour à tous,

j'ai créé une base de donnée pour le travail.
dans cette base de donnée il existe différents états, dont un qui me pose problème.

je m'explique:

je souhaite surligner une étiquette en fonction du contenu de la zone de texte en face de cette étiquette.

exemple:

étiquette: Vous disposez d'une extension de garantie: si "oui", alors surligner en jaune l'étiquette, si "non" ne pas surligner!

j'espère avoir été clair dans la description de mon problème.
j'ai effectué différentes recherches sans pour autant trouver une solution.

Merci,
Maxime

[mout1234]

Bonjour et bienvenu sur le forum.

S'agissant d'un état, tu peux résoudre ton problème en VBA, lors de l'évènement Au Formatage de la section dans laquelle se trouve ton controle et son etiquette.

Quelque chose du genre:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me!Monchamp = "Une Valeur Particulière" Then
    Me!MonEtiquette.FontItalic = True
Else
    Me!MonEtiquette.FontItalic = False
End If
 
End Sub

Pour ma part je préfère une forme un peu plus condensée:

Code :

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

1
2
3
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    Me!MonEtiquette.FontItalic = (Me!Monchamp = "Une Valeur Particulière")
End Sub

Ensuite, si tu as plusieurs champs à traiter, tu peux alors améliorer le code en nommant de manière logique les contrôles et les étiquettes correspondantes et en faisant une boucle sur la collection des contrôles...

Bon courage

[maxime350]

merci pour ta réponse rapide,
je test tout ça rapidement et vous tient au courant

[maxime350]

je viens de tester sur ma base et malgrer tout, cela ne fonctionne pas.
j'ai pourtant bien suivi tes indications.

pour vérifier que je n'ai pas commis d'erreur, ci dessous différents screens:

etat en mode création:



propriété du champ calculé:



propriété de l'étiquette:



Code Visual Basic:


je ne vois pas vraiment où est mon erreur.
merci de votre aide!

Maxime

[maxime350]

j'ai trouvé d'où venait mon erreur.
Il s'agissait du "Option Compare database"

à moi de trouver comment définir une couleur d'arrière plan!

[maxime350]

Bonsoir,

le code que m'a donné mout1234 fonctionne parfaitement.
cependant vu que je souhaite afficher une couleur de fond à l'étiquette en fonction du contenu d'un champ texte j'ai adapté mon code qui donne ceci:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me!Texte200 = "OUI" Then
Me!Étiquette20.BackColor = RGB(255, 0, 0)
Else
Me!Étiquette20.BackColor = RGB(0, 255, 0)
End If
End Sub

cependant cela ne modifie en rien la couleur de mon étiquette20 si le champ Texte200 = "OUI" !

Merci de votre aide précieuse
Maxime

[mout1234]

BOnsoir,

Es-tu sur que ton champ texte200 prend une valeur de type texte....

Cela ne serait-il pas plutot un booléen?

Code :

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

1
2
 
If Me!Texte200 = True Then

En passant, prend l'habitude de nommer explicitement tes objets, au moins dés qu'ils sont utilisés dans le code.

[maxime350]

Merci pour ta réponse!
il s'agit effectivement d'une valeur de type texte donc je ne comprend pas trop.

ayant des connaissances limitées je n'ai pas trouvé d'autres solutions.
j'ai pensé à cela:

Code :

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

1
2
3
4
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    Me!MonEtiquette.BackColor = 33023 = (Me!Monchamp = "Une Valeur Particulière")
End Sub

mais cela ne fonctionne bien évidemment pas :/

[maxime350]

re bonjour,

j'ai trouvé!
effectivement l'erreur venait du format texte.
la partie que je souhaitais colorier etait une étiquette, en la remplacant par une zone de texte cela fonctionne.

Merci à toi mout1234 pour tes orientations

Maintenant je vais voir pour faire une boucle!

Maxime

[mout1234]

...
Merci à toi mout1234 pour tes orientations ...

De rien

Un petit conseil, ne cherches pas les solutions raccourcies dans un premier temps... le plus important est de comprendre pourquoi cela marche...

Code :

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

1
2
3
4
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    Me!MonEtiquette.FontItalic = (Me!Monchamp = "Une Valeur Particulière")
End Sub

Dans ce code, Me!Monchamp = "Une Valeur Particulière" est un test logique, qui a donc une valeur True ou False. On peut donc utiliser cette valeur pour définir la propriété FontItalic qui attend un booléen.

Code :

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

1
2
3
4
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    Me!MonEtiquette.BackColor = 33023 = (Me!Monchamp = "Une Valeur Particulière")
End Sub

Me!Monchamp = "Une Valeur Particulière" vaut True ou False
33023 = (Me!Monchamp = "Une Valeur Particulière") vaut toujours False puisque le nombre 33023 ne "vaut" ni True, ni False


Ce code reviendrait donc à attribuer la valeur False à la propriété Backcolor qui attend un nombre ... ce qui donnera ici toujours la couleur noire.

PS: en interne, False = 0 , True = -1 et sont donc assimilables à des nombres.

BOn courage