Discussion :

[Ender]

Bonjour,

Est-il possible de voir le code d'une mise en forme conditionnelle ?
Parce que j'aimerais mettre une couleur spéciale quand la condition est vérifiée mais Access (2000) ne propose pour la mise en forme condionnelle que 40 couleurs. On ne peut pas personnaliser la couleur.
Peut-être que si j'ai accès au code je pourrais changer les paramètres de RGB.

Merci

[Petogaz]

salut,

pourquoi ne pas créer un module pour remplacer la mise en forme conditionnnelle ? ainsi tu utilisera tes RGB à ta guise.

[Ender]

salut,

pourquoi ne pas créer un module pour remplacer la mise en forme conditionnnelle ? ainsi tu utilisera tes RGB à ta guise.

Parce que, si je ne m'amuse, le module est associé à un formulaire et non pas à un enregistrement.

En fait dans mon problème, je voudrais une couleur spéciale qui ne figure pas dans les 40 proposées mais que je sais désigner par RGB(red,green,blue).

[Petogaz]

Parce que, si je ne m'amuse, le module est associé à un formulaire et non pas à un enregistrement.

un module n'est pas forcément lié à un formulaire ! les modules standard permette de les liés à n'importe quel objet de ton environnement (ici en l'occurence ton enregistrement qui peut être considérer comme un objet). il me semble avoir vue dans la FAQ ou codes sources un module sur les Mises en forme cond. réalisées par Tofalu. donc à toi de faire une recherche.

[pgz]

Bonjour,

Le tuto de Ch. Warin:
http://warin.developpez.com/access/mfc/

Il y a tout ce que tu veux savoir sur le sujet.

pgz

[Ender]

Oui j'avais déjà regardé le tuto de C.Warin.

Code :

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

1
2
Mon_Champ1.FormatConditions.Add acExpression, , "[Mon_Champ2]=bonjour"
Mon_Champ1.FormatConditions.item(0).ForeColor=RGB(0,0,255)

Quand on fait une mise en forme conditionnelle avec l'assistant on ne se soucie pas de l'événement dans lequel le code sera écrit. On ouvre le formulaire et quand la condition est vérifiée la mise en forma s'applique.

Là je ne sais pas dans quel événement je dois écrire ce code.

[Ender]

Résolu.

Code :

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

1
2
3
4
Private Sub Form_Open(Cancel As Integer)
Texte_1.FormatConditions.Add acExpression, , "[Texte_2]=bonjour"
Texte_1.FormatConditions(0).ForeColor = RGB(0, 0, 255)
End Sub