XelaIrodavlas
Registered User.
- Local time
- Today, 13:15
- Joined
- Oct 26, 2012
- Messages
- 175
I just entered this code (the first one you suggested minus the background change) and it worked!!! Weird things afoot, i must have made an error somewhere first time round...
Thanks again Paul!
Private Sub Form_Current()
If Me.[E-T QualificationExpiryDate] < Date Then
Me.[E-T QualificationExpiryDate].SetFocus
Me.[E-T QualificationExpiryDate].ForeColor = vbRed
End If
End Sub
PS to anyone reading this who has the same problems I did, just use conditional formatting... click on your control in design mode, then format on the top bar, conditional formatting, and set field value >= date() to be colored automatic, no background (normal). In fact, just use conditional formatting for everything and stop wasting so much of other peoples time
Thanks again Paul!
Private Sub Form_Current()
If Me.[E-T QualificationExpiryDate] < Date Then
Me.[E-T QualificationExpiryDate].SetFocus
Me.[E-T QualificationExpiryDate].ForeColor = vbRed
End If
End Sub
PS to anyone reading this who has the same problems I did, just use conditional formatting... click on your control in design mode, then format on the top bar, conditional formatting, and set field value >= date() to be colored automatic, no background (normal). In fact, just use conditional formatting for everything and stop wasting so much of other peoples time
Last edited:
