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

[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

 

[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

Code the Date control's Double-click event:

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