change background color (1 Viewer)

[robertbwainwright]

I've created a report, and I am trying to change the background color to red based on the value of a textbox being 0 and it just is not working. I'm thinking I'm using the wrong event.... Here is my code:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If RndQOH = 0 Then
    Detail.BackColor = vbRed
End If
    
End Sub

thanks for any help in advance!

Robert

 

[Minty]

Try using conditional formatting instead - it works on reports as well as forms.

 

[CJ_London]

the format event does not run in Report Preview, only Print Preview

don't know what you are trying to achieve but you may also need to take into account the alternate backcolor and use the retreat action to reset everything or perhaps an else to put color back

If RndQOH = 0 Then
Detail.BackColor = vbRed
Else
Detail.BackColor = vbWhite
End If

meant to say - if you want it to work in the report preview, use the paint event (which does not work for print preview)

 

[robertbwainwright]

actually I'm trying to change several things from line to line. I used this as an example so not to complicate things, hence I can not use conditional formatting..... Thanks for the replies.

 

[Minty]

You can use conditional formatting- in fact it's possibly the only way you can make line by line colour changes.

It can be made to work on each field separately, rather than a whole section.

 

[HiTechCoach]

I've created a report, and I am trying to change the background color to red based on the value of a textbox being 0 and it just is not working. I'm thinking I'm using the wrong event.... Here is my code:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If RndQOH = 0 Then
    Detail.BackColor = vbRed
End If
    
End Sub

thanks for any help in advance!

Robert

Robert,

Make sure you are in Print Preview mode.