What's wrong with this picture?
Code:
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:
Code:
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