Conditional formatting - fill colour

[fraser_lindsay]

Hello,

I am trying to incorporate a traffic light system based on numerical scores from a calculated box.

I did a search on the forums and adapted a code which somebody suggested to conditionally change the colour of text. I want to do the same but only by changing the fill colour of an unbound, empty text box.

This is what I have tried, as well as other permuatations.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If [txtTag] >= "20" Then
Me![txtRHColour].BackColor = vbRed
Else
Me![txtRHColour].BackColor = vbGreen
End If

End Sub


Can anyone help me out please?

 

[le888]

See the attachement...

Hope this will help,

Le

 

[fraser_lindsay]

Thanks for this, this is superb. I'll add this in to my DB, thanks again.

F