How do I enter today's date in box double click

M

mark

I want to double click a box on a form so that it enters
today's date. I also want it to display a message "Are
you sure", and "Cancel". How do I do this?

Thanks Mark Allsop
 
F

fredg

I want to double click a box on a form so that it enters
today's date. I also want it to display a message "Are
you sure", and "Cancel". How do I do this?

Thanks Mark Allsop
Click to expand...

Code the Date control's Double-click event:

If MsgBox("Are you sure?", vbOKCancel) = vbOK Then
Me![ADate] = Date
Else
Cancel = True
End If
 
Top