Discussion :

[Marius76]

Bonjour,
encore une question de debutant mais je ne vois pas mon erreur.

En suivant la formule ci contre :
Comment changer la couleur du texte d'une zone de texte ? [haut]

auteur : Demco

Code :

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

1
2
MaZoneTexte.ForeColor = QBColor(1)  '(Pour le bleu)
MaZoneTexte.ForeColor = QBColor(4)  '(Pour le rouge)

ca me donne pas le résultat désiré. Je l ai pourtant tourné sous différents angles mais ca ne change rien toujours en noir. Pouvez vous m aider svp pour ce probleme de débutant ?


J ai mis cela :

Code :

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

1
2
3
4
5
If [Forms]![Ventes]![Eligibility] = "In" And [Forms]![Ventes]![Eliggeo] = "In" Then
[Forms]![Ventes]![Total] = "In" And [Total].ForeColor = QBColor(1)
Else
[Forms]![Ventes]![Total] = "Out" And [Total].ForeColor = QBColor(4)
End If

Eligibility et Eliggeo sont deux contraintes qui disent si c est In ou Out et Total la contrainte totale...
Merci par avance.

[ClaudeLELOUP]

Bonjour,

ta syntaxe est incorrecte.

Probabement ceci :

Code :

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

1
2
3
4
5
6
7
If [Forms]![Ventes]![Eligibility] = "In" And [Forms]![Ventes]![Eliggeo] = "In" Then
[Forms]![Ventes]![Total] = "In"
[Total].ForeColor = QBColor(1)
Else
[Forms]![Ventes]![Total] = "Out" 
[Total].ForeColor = QBColor(4)
End If

[Marius76]

Je n arrive toujours pas à avoir le résultat voulu mais je ne pense pas que ca doit venir que de la formule.

Merci pour ton aide.