On May 14, 11:18*am, "Rick Rothstein \(MVP - VB\)"
wrote:
Maybe change your If-Then statement to this...

If Not IsDate(DatePurchase) And Len(DatePurchase) 0 Then

By the way, my personal preference is to *not* rely on default properties.
In my own code, I would always use DatePurchase.Text so I can tell I am
looking at the contents of a control and not a simple variable. While the
distinction is easy to keep straight when you are writing the code, in six
months or a year when you have to come back to maintain (modify) your code,
the distinction will be less clear. Oh, and if you work in a job with more
than one coder, and if they can be given the job to maintain your code down
the line... trust me, they will appreciate your specifically including the
property name also.

Rick

wrote in message

...



Dear Sir,

I have a userform with text box "DatePurchase" and other textboxes.
when I load my userform and when I entered the data it is working
fine,

the problem is this when I load the form for date entry and the form
is Empty and I want to close my form with close button (unload me)
command. it is showing pop up message (input message) "Input must be a
date in the format: 'dd/mmm/yyyy"

when I enter any date then press the close button then it closing.

Pls help me in this regard. I am using the following code.

Private Sub DatePurchase_exit(ByVal Cancel As MSForms.ReturnBoolean)

If Not IsDate(DatePurchase) Then
MsgBox "Input must be a date in the format: 'dd/mmm/yyyy'"
Cancel = True
Else
DatePurchase = Format(DatePurchase, "dd/mmm/yyyy")
End If
End Sub

waiting for response.

Regards- Hide quoted text -

- Show quoted text -



Hi,

Thank you very much, I got the solution.

Regards

Shahzad