Discussion :

[F.Cambria]

Bonjour,

Mon problème est le suivant :

J'ai créé une succession de conditions de mise en forme via un formulaire access vers un champ situé sur un autre formulaire.

La création des mises en forme conditionnelles se déroule parfaitement et l'ouverture en mode création de mon formulaire fait apparaître clairement toutes mes conditions dans la fenêtre de dialogue ad hoc.

Là où cela se gâte c'est qu'elles ne s'exécutent pas sauf si j'ouvre mon formulaire en mode création et que je clique sur appliquer.

Y a-t-il une solution pour appliquer ces règles sans devoir ouvrir mon formulaire et appliquer ces règles de mise en forme conditionnelle.

Je tourne en rond depuis plusieurs jours sans succès

Excellente journée à tous.

[hyperion13]

Salut
Et vous partez du principe que les contributeurs ont tous une boule de cristal ?

[F.Cambria]

Voilà le code utilisé si c'est ça le souci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DoCmd.OpenForm "formulaire1", acDesign
Forms![formulaire1].ctlvaleur.FormatConditions.Delete
 
Forms![formulaire1].ctlvaleur.FormatConditions.Add acFieldValue, acEqual, "B"
Forms![formulaire1].ctlvaleur.FormatConditions.Item(0).ForeColor = vbRed
Forms![formulaire1].ctlvaleur.FormatConditions.Item(0).BackColor = vbYellow
Forms![formulaire1].ctlvaleur.FormatConditions.Item(0).Enabled = True
 
 
Forms![formulaire1].ctlvaleur.FormatConditions.Add acFieldValue, acEqual, "A"
Forms![formulaire1].ctlvaleur.FormatConditions.Item(1).ForeColor = vbWhite
Forms![formulaire1].ctlvaleur.FormatConditions.Item(1).BackColor = vbRed
Forms![formulaire1].ctlvaleur.FormatConditions.Item(1).Enabled = True
 
DoCmd.Save acForm, "formulaire1"

Ce code fait son job, sauf qu'à l'ouverture du formulaire1, les règles sont bien là mais non actives. voilà mon souci.

En tout cas merci pour la réponse.

[EricDgn]

Bonjour,

Pas évident de le trouver: en fait FormatConditions.Add ne semble fonctionner qu'avec acExpression !
et donc il faut indiquer:

Code :

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

Forms![formulaire1].ctlvaleur.FormatConditions.Add acExpression, acEqual, "[ctlvaleur]='B'"

Attention: les crochets et ' sont importants, et ne pas laisser d'espaces!
Si les modifications se font sur un _OnLoad, _OnOpen ou _Click, elles ne seront que temporaires.

Bonne continuation.

[F.Cambria]

J'essaie ça et reviens avec le résultat.

Excellente journée.

[F.Cambria]

Merci mille fois, ça fonctionne parfaitement !

[FreddyONE73]

Bonjour,

J'avais le même problème alors je poste la solution que j'ai fini par trouver.
Tout d'abord, le comment :
j'ai comparé les propriétés du contrôle récupérées en VBA avant et après avoir validé la mise en forme par la fenêtre ad'hoc
et là, j'ai eu la révélation :
une fois validé, je me rends compte que le critère est entre quote !

Voilà, j'espère que ça en aidera plus d'un