D.Mair
David
- Local time
- Today, 15:39
- Joined
- Jun 1, 2001
- Messages
- 33
I want to change the colour of the text if the check box is ticked
I have use similar code for it being = to "Completed" But I can't get it to work for "Yes" in a check box.
Here is the code I have used
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me![Inquiry] = "Yes" Then
Me![Job Status].ForeColor = RGB(255, 0, 0)
Me![Name].ForeColor = RGB(255, 0, 0)
Me![Job Number].ForeColor = RGB(255, 0, 0)
Me![Job Manager].ForeColor = RGB(255, 0, 0)
Else
Me![Job Status].ForeColor = 1
Me![Name].ForeColor = 1
Me![Job Number].ForeColor = 1
Me![Job Manager].ForeColor = 1
End If
End Sub
Any help would be appreciated.
David
I have use similar code for it being = to "Completed" But I can't get it to work for "Yes" in a check box.
Here is the code I have used
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me![Inquiry] = "Yes" Then
Me![Job Status].ForeColor = RGB(255, 0, 0)
Me![Name].ForeColor = RGB(255, 0, 0)
Me![Job Number].ForeColor = RGB(255, 0, 0)
Me![Job Manager].ForeColor = RGB(255, 0, 0)
Else
Me![Job Status].ForeColor = 1
Me![Name].ForeColor = 1
Me![Job Number].ForeColor = 1
Me![Job Manager].ForeColor = 1
End If
End Sub
Any help would be appreciated.
David