J
jubiiab via AccessMonster.com
Hi
When the date is overdue I want the date color to be changed to red on the
datasheet form but the below code is not working. Can anyone help me please?
Private Sub Form_Open(Cancel As Integer)
If [ServiceDate] < Now() Then
MsgBox "service date overdue!", vbInformation, "Service date"
If [ServiceDate] < Now() Then
[ServiceDate].ForeColor = vbRed
End If
End If
End Sub
When the date is overdue I want the date color to be changed to red on the
datasheet form but the below code is not working. Can anyone help me please?
Private Sub Form_Open(Cancel As Integer)
If [ServiceDate] < Now() Then
MsgBox "service date overdue!", vbInformation, "Service date"
If [ServiceDate] < Now() Then
[ServiceDate].ForeColor = vbRed
End If
End If
End Sub