changing fore colors depending on values in report

[CTOROCK]

Hi,

I'm trying to customize a report to have a differnt color depending on the value for each record. I know I've done this before and forgot how. I tried using this:

Private Sub Report_Open(Cancel As Integer)

txtPriority.SetFocus
If Me.txtPriority.Value = "1" Then
txtPriority.ForeColor.Value = "255"
End If


End Sub


But that doesn't work. Any suggestions appreciated!


"The greatest risk, is not taking one."

 

[v5652]

try this. it will help u.

Private Sub Report_Open(Cancel As Integer)

If Me.txtPriority.Value = "1" Then
txtPriority.ForeColor= vbred
else
txtPriority.ForeColor= vbblack
End If


End Sub

 

[CTOROCK]

Thanks, but that doesn't work. I get an error saying that "You've entered an expression that has no value" hmm

"The greatest risk, is not taking one."

 

[v5652]

sorry sorry...
don't use it in report_open event.
use this or in which section your field you have displayed.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

If Me.txtPriority.Value = "1" Then
txtPriority.ForeColor= vbred
else
txtPriority.ForeColor= vbblack
End If

end sub

 

[dhookom]

All recent versions of Access support Conditional Formatting which requires no code.

Duane
Hook'D on Access
MS Access MVP

 

[CTOROCK]

This works, thank you very much!

"The greatest risk, is not taking one."