Textbox Date formatting problem
 

I am a new user so the answer may be very simple. I have looked through the
various threads and haven't found this problem.

I have created a userform with a textbox for inputting a date. However,
when I launch the form and start entering the date it defaults to some wrong
date and will not allow me to enter the correct date. This seems pretty
strait forward but I cant seem to get my date input field to work properly.
Any suggestions?

This is the code I am using.

Private Sub Tb_Date_Change()

Tb_Date.Value = Format(Date,"dd-mmm-yyyy")

End Sub

Textbox Date formatting problem
 

Hi Capp

Use the exit event like this
It will run when you leave the textbox

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd-mmm-yyyy")
End Sub

Why don't you use a calendar control
you not have to test then if the date is a real date that you enter in the textbox
http://www.rondebruin.nl/calendar.htm

See the userform example on this link that is on that page
http://www.fontstuff.com/vba/vbatut07.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Capp" wrote in message ...
I am a new user so the answer may be very simple. I have looked through the
various threads and haven't found this problem.

I have created a userform with a textbox for inputting a date. However,
when I launch the form and start entering the date it defaults to some wrong
date and will not allow me to enter the correct date. This seems pretty
strait forward but I cant seem to get my date input field to work properly.
Any suggestions?

This is the code I am using.

Private Sub Tb_Date_Change()

Tb_Date.Value = Format(Date,"dd-mmm-yyyy")

End Sub