Changing the backcolor of a field in a report 1

[redaccess]

Is there a way to change the backcolor of a field in a report based on that fields' value?

 

[deduct]

I took this partial VBA code from the help example for backcolor:

lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)
If curAmntDue > 100 Then
Me!txtPastDue.BackColor = lngYellow
Else
Me!txtPastDue.BackColor = lngWhite
End If

 

[redaccess]

That code is for a Form_Current event for a Form. I'm looking to change backcolor in a Report. I don't think that code will work.

 

[deduct]

OK, in the reports detail on_format event:

If [fld_division] = "304" Then
Reports("rpt_NameOfReprot&quot("Textboxname&quot.BackColor = vbRed
Else
Reports("rpt_NameOfReport&quot("Textboxname&quot.BackColor = vbYellow
End If

 

[deduct]

I need to add that the Back Style must not be transparent.

 

[deduct]

OK, I tweaked it a little (assume 304 is division you want to highlight) - this example is in the on format event of the detail section:

If [fld_division] = "304" Then
Reports("rpt_ReportName&quot("txtbox_Name&quot.BackStyle = 1
Reports("rpt_ReportName&quot("txtbox_Name&quot.BackColor = vbRed
Else
Reports("rptReportName&quot("txtbox_Name&quot.BackStyle = 0
'since backstyle is now transparent,
'the next line isn't really necessary but sets it back to a "default"
Reports("rptReportName&quot("txtbox_Name&quot.BackColor = vbWhite
End If