Discussion :

[james68]

Bonjour a toutes et tous,
comme l'intitulé l'indique je cherche a faire une mise en forme conditionnelle en VBA sur un formulaire en mode continu.
sur Click sur un bouton j'aimerais qu'il m'applique une certaines MFC et surtout qu'il me mette a jour le champ "Ctlvaleur"
le problème c'est qu'il me remplit bien la MFC mais il ne me l'applique pas.
Ci apres mon code (1 seul champ , et deux btn en entete de frm )
Si quelqun a une idée , je suis preneur.
Au plaisir de vous lire
CODE :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Btn_Click()
Ctlvaleur.FormatConditions.Delete
Ctlvaleur.FormatConditions.Add acFieldValue, acEqual, "A"
Ctlvaleur.FormatConditions.Item(0).ForeColor = 255
Ctlvaleur.FormatConditions.Add acFieldValue, acEqual, "B"
Ctlvaleur.FormatConditions.Item(1).ForeColor = 16711680
Ctlvaleur.FormatConditions.Add acFieldValue, acEqual, "C"
Ctlvaleur.FormatConditions.Item(2).ForeColor = 65280
End Sub
Private Sub BtnDel_Click()
Ctlvaleur.FormatConditions.Delete
End Sub

[Jean-Philippe André]

Salut,

uin peu lecture (que tu as surement deja du faire, mais sait-on jamais)
http://warin.developpez.com/access/mfc/
et la partie dediee au VBA
http://warin.developpez.com/access/mfc/#L3

[james68]

Merci pour ta réponse.
j'ai deja lu cette page , mais cela n'a pas répondu a mes interrogations.
le MFC est programmée comme je ceux mais ne s'applique pas.
je joints un fichier de test très basique juste pour exemple.
Merci de l'aide...

[caro2552]

Je crois que le pb n'est pas d'ajouter ou de supprimer des formatscondition...... il faut ajouter a la main les formatcondition ou par le code en mode creation, stopper le code avant de refermer le form ou l'etat pour pouvoir enregistrer a la main les formats (docmd close acform,nomform, ac saveyes....n'enregistre pas les MFC) et ensuite par le code modifier les conditions ou les couleurs

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande4_Click()
    valeur.FormatConditions.Item(0).ForeColor = 500
    valeur.FormatConditions.Item(0).BackColor = 650
 
    valeur.FormatConditions.Item(1).ForeColor = 312
    valeur.FormatConditions.Item(1).BackColor = 152
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Commande3_Click()
On Error GoTo Err_Commande3_Click
 
    valeur.FormatConditions.Item(0).ForeColor = 650
    valeur.FormatConditions.Item(0).BackColor = 500
 
    valeur.FormatConditions.Item(1).ForeColor = 152
    valeur.FormatConditions.Item(1).BackColor = 312
 
 
Exit_Commande3_Click:
    Exit Sub