mise en page conditionnelle ds un etat

[cornet04]

bonjour,

J'ai rélisé un état classique source de données une requete.
Dans la mise en forme de cet etat je souhaite qu'un champ prenne comme couleur de fond le rouge si ce champ est egal a 1.
voci mon code qui j'ai placé "au formatage du detail de l'état"

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Texte129 = 1 Then
    Me.Texte129.BackColor = RGB(255, 0, 0)
    Else   
End If
End Sub

Petit probleme la couleur s'applique au champ concidéré des que celui ci prend une fois la valeur 1.
Ainsi si les trois premieres valeur sont differente de un il reste blanc, mais si la quatrieme est egal a 1 alors toutes les lignes qui suivent sont rouge meme si la valeur de ces lignes est differente de 1.
Qielqu'un a t il une solution?

[lerico]

Je pense qu'il faut renseigner le else pour définir les autres en blanc.

 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
If Me.Texte129 = 1 Then
Me.Texte129.BackColor = RGB(255, 0, 0)
Else 
Me.Texte129.BackColor = RGB(255,255,255)
End If
End Sub
 

[LE VIEUX]

bonjour,
peut être plus simple, les états disposent pour leurs champs de la mise en forme conditionnelle

[Philippe JOCHMANS]

Bonjour

Tu trouveras des éléments dans cet excellent article de Jeannot45 : http://jeannot45.developpez.com/arti...netatdebutant/, surtout dans cette partie : http://jeannot45.developpez.com/arti...butant/#LIII-G

A lire absolument pour avoir de bonnes bases sur les états.

Starec

[cornet04]

Envoyé par lerico

Je pense qu'il faut renseigner le else pour définir les autres en blanc.

 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
If Me.Texte129 = 1 Then
Me.Texte129.BackColor = RGB(255, 0, 0)
Else 
Me.Texte129.BackColor = RGB(255,255,255)
End If
End Sub
 

[cornet04]

merci il suffit de mettre la condition apres le "else"