If Statement

  • Thread starter Thread starter NEC-2008
  • Start date Start date
N

NEC-2008

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?
 
Private Sub DateField_GotFocus()
If Me.CheckBox = -1 Then
Me.DateField = DateAdd("d", 45, Date)
End If
End Sub
 
Back
Top