Private Sub DateField_GotFocus()
If Me.CheckBox = -1 Then
Me.DateField = DateAdd("d", 45, Date)
End If
End Sub

Signature
Wayne
Manchester, England.
> What I'm trying to do is, in a date field, on "has focus", if related "check
> box" is positive (yes) then insert current date + (plus) 45 days. (to present
> a future date).
> Is there any help out there?