On loggin into a database we have, the user is presented with a form telling them what reports they still need to submit. The information for this form comes from a table Case Incident Numbers, where CurrentUser() = Reporting Ranger, and a checkbox, Audited = False.

I have a date for when the number was assigned, Date_Assigned.

Ok, when the user logs in, if the Date_Assigned is greater than or equal to the 30 days past, I want the font color to be red.

This is what I have come up with, and several variations, but it is not working. Where am I going wrong?

Private Sub Form_Open(Cancel As Integer)

If Date >= ([Date_assigned] + 30) Then
[Case_Incident_Number].ForeColor = vbRed
Else
[Case_Incident_Number].ForeColor = vbBlue

End If
End Sub


As always, thank you.

Peter Paul

Form current
If Me.Date_assigned < Date() -30 Then
Me.Case_Incident_Number.ForeColor=vbRed
Else
Me.Case_Incident_Number.ForeColor=vbBlue
End If