Field Colour Format on criteria

[shadowfather]

I have a report that shows a number field with days outstanding. I want it to show the results in differant colours depending on days outstanding. i.e

< 30 Black
>=30 to < 60 Green
>=60 to < 90 Blue
>=90 to < 120 Yellow
> 120 Red

I can get it to work for one colour, but how do I do it for multiple criteria?

I used the following:-


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me![Days outstanding] < 30 Then
Me![Days outstanding].ForeColor = vbRed
Else
Me![Days outstanding].ForeColor = vbBlack
End If
End Sub

 

[DrSimon]

Use Select Case or If / Else / ElseIf

Simon Rouse

 

[MA04]

Hi,

Try something along these lines:
Hi,

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me![Days outstanding] > 120 Then
Me![Days outstanding].ForeColor = vbRed
Else
if Me![Days outstanding] < 120 And >= 90 then
Me![Days outstanding].ForeColor = Yellow
Else
if Me![Days outstanding] < 90 And >= 60 then
Me![Days outstanding].ForeColor = blue
Else
if Me![Days outstanding] < 60 And >= 30 then
Me![Days outstanding].ForeColor = Green
Else
Me![Days outstanding].ForeColor = Black

End if

End if
End if
End If
End Sub

M-.