Thank you Bob,Please ignore my reply in other thread.Thanks once again.
Bob Phillips wrote:
I would use the AfterUpdate event and just check that it is a date, let them
enter it however they want, and reform at it
Private Sub TextBox1_AfterUpdate()
With Me.TextBox1
If IsDate(.Text) Then
.Text = Format(CDate(.Text), "dd-mmm-yy")
Else
MsgBox "Invalid date entry"
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End If
End With
End Sub
thank you Bob.Working fine !
one more question.
[quoted text clipped - 25 lines]
or
corrects the entry by putting exact values as in TextBox1.
--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200806/1