Setting The Forecolor

[radder33]

Morning

I am sure this will be astoundingly simple but I can't see whats going on.

I am running a report that has a simple number field to order the layout. I need specific rows of data to show a different tect colour. So if the row has group order number is one it needs to black anything else a different colour. I have put the following code on one field and it either sets them all to black or the other colour depending on what I set. Where am I going wrong?

Private Sub Report_Load()
If Me.GroupOrder = 2 Then
Me.Total.ForeColor = RGB(0, 0, 0)
Else
Me.Total.ForeColor = RGB(153, 53, 153)
End If
End Sub

Thanks in advance.

 

[kjv1611]

Have you tried conditional formatting?

Here's a short/simple walkthrough:

http://www.techonthenet.com/access/reports/cond_format2.php

"But thanks be to God, which giveth us the victory through our Lord Jesus Christ." 1 Corinthians 15:57

 

[MajP]

You are not doing anything wrong, however, that is the expected result. There is really only one set of controls and the rows are a "paint" of them. So if you change the properties all rows change. So on a continous form the normal way is conditional formatting. This is limited to 3 conditions and a default. You only need 2 colors so no problem.

It is also possible in the detail section paint event. The paint event happens before the data is painted to the screen. Basically conditional format does this for you.
Example
Private Sub Detail_Paint()
If Me.UnitPrice > 15 Then
Me.UnitPrice.ForeColor = vbRed
Else
Me.UnitPrice.ForeColor = vbBlue
End If
End Sub

This can work, but it for some reason is unreliable especially if the control is calculated.

 

[radder33]

MajP paint worked a treat thats great thanks