G
JR said:I do almost the same thing in one of my applications. I use the OnCurrent
event but you might be able to use OnOpen or something else. You can also
use the dateadd function to get a date 2 weeks before the current date.
Private Sub Form_Current()
If Me.EffEndDT.Value < Date Then
Me.EffEndDT.BackColor = 255
Else
Me.EffEndDT.BackColor = 16777215
End If
End Sub
Hope this Helps
JR