Conditional Formatting

[Paul H]

What's wrong with this picture?

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    If Me.txtStatus_ID = 10 Then Me.txtStatus_ID.ForeColor = "#FF0000"
End Sub

When this runs I get Error 13 - Type Mismatch

This color is the standard Access code for red copied from another text box.

I changed it to this:

    lngRed = RGB(255, 0, 0)
    If Me.txtStatus_ID = 10 Then
        Me.txtStatus_ID.ForeColor = lngRed
    End If

Now everything is red, regardless of the value of Status_ID.

I tried it in On Current and NOTHING happened.

I'm putting this little touch on hold till I hear back from you guys.

Paul

[pbaldy]

You'll find the built-in Conditional Formatting easier I suspect. With code, you need an Else clause to handle the alternate color.

[Paul H]

Nice, another winner.

Thanks Paul

[pbaldy]

Happy to help Paul!