Future Date Warning VBA Warning, Are You Sure You Want To Use a Future Date

[burrina]

I have a date field on my orders form that if a user chooses a future date, I want a vba message that asks if they are sure they want to use a future date for this order, then if so, date is allowed, if not, cancel.



Field name is ShipDate

Thanks in Advance,

[pbaldy]

I'd use the form's before update event:

http://www.baldyweb.com/BeforeUpdate.htm

In your case you'd test that field against Date() and use a Yes/No message box.

[burrina]

If Len(Me.ShipDate & vbNullString) = Date > Date Then
MsgBox "Are You Sure You Want To Use a Future Shipping Date"
Cancel = True
Me.ShipDate.SetFocus
End If


Will This work?

[pbaldy]

No. Presumably you mean:

If Len(Me.ShipDate & vbNullString) >= Date Then

I also suggested a Yes/No message box. What you have will cancel no matter what the user does.