Discussion :

[milou161185]

Bonjour tout le monde, j'ai encore un probleme avec access ...
J'ai crée mon état, et je voudrais maintenant changer la couleur de fond des zones de texte, et cela en fonction du contenu de celles-ci.
Par exemple, si dans ma zone de texte, je n'ai pas de valeur, je voudrais la colorier en rouge, si il y a une valeur, je voudrais la colorier en noir.
J'ai réussi à le faire dans une ligne, mais dans les autres.

Voici un extrait de mon code.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If (Me![txtEquip].Text = "") Then
Me![txtEquip].BackColor = 4523
Me![txtModuleBleu].BackColor = 4523
Else
Me![txtEquip].BackColor = 45121
Me![txtModuleBleu].BackColor = 45248
End If
End Sub

Seule la ligne avec txtEquip fonctionne, et si je l'enleve la ligne avec txtModuleBleu ne marche pas...

Merci pour vos réponses.

[Maxence HUBICHE]

essaie

Code :

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

1
2
 
If nz(me.txtEquipe.value,"")="" Then

[milou161185]

Merci pour ta réponse, mais cela ne marche toujours que pour la 1ère ligne...

Mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Nz(Me.txtEquip.Value, "") = "" Then
Me![txtEquip].BackColor = 4523
Me![txtModuleBleu].BackColor = 4523
Else
Me![txtEquip].BackColor = 45121
Me![txtModuleBleu].BackColor = 45248
End If
End Sub

[loufab]

Bonjour,

Pour de la mise en forme conditionnelle ce n'est pas necessaire de passer par VBA, le menu Format/mise en forme conditionnelle... le fait très bien.

A part que tu travailles sur une version antérieure à la 2000.

Sinon dans ton code je vois 2 points génant.
Le premier est que tu utilises la propriété Text. Utilise simplement me.monchamp

La deuxième est que tu testes une valeur vide. Il se peut qu'il y ait des valeur Null. Dans ce cas cela ne fonctionne pas.

Un

Code :

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

1
2
 
And Isnull(me.monchamp)

serait à ajouter.

Cordialement,

[milou161185]

Je ne comprend pas bien l'utilité du isnull, vu que je teste avant. Cela sert à quoi exactement ?
Désolé pour mon ignorance

[milou161185]

Je viens de rajouter le isnull, mais cela n'a aucune incidence...
Je commence à croire que Access est contre moi

[Invité]

Bonjour

Est-ce que par hasard ta textbox [txtModuleBleu], à bien un fond opaque et non transparent ?

Starec

[milou161185]

Merci beaucoup !!! Cela venait effectivement de ca !! J'avoue que j'aurais jamais pensé a regarder la...
Merci

[Invité]

Re

Cela ma tilté, car il n'y avait pas de raisons pour que le code marche pour un contrôle et non pour l'autre.

Starec