Date Expired cancel check box??

[hdat44]

How can i get a date field if it is older that 12 months to have the corresponding check box value change to unchecked?? i have tried the following code to no avail, any help welcome please

Private Sub Form_Current()
If Date1 Is LessThan.DateAdd("m", 12, Now()) Then
ChkBox1.Value = False
End If



End Sub

 

[SkipVought]

Private Sub Form_Current()
If Date1 < DateAdd("m", -12, Now()) Then
  ChkBox1.Value = False
End If

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[dhookom]

I'm not sure why you are using any code. This should only be necessary if the check box is bound. If it is bound to a field then I would have to ask why store a calculated field.

If it is not bound, you should be able to set its control source to:

  =[Date1] < DateAdd("m", -12, Date())

Duane
Hook'D on Access
MS Access MVP