Textbox Date Validation?

[alee001]

How to check the date_from.value validation before OKrun? where return to error:6 in case of input 20040825 on the textbox.

Private Sub OKrun_Click()

'Check date textbox
If data_from.Value = Empty Or (Not IsDate(data_from.Value)) Or data_from.Value <> Format(data_from.Value, "yyyy/mm/dd") Then
MsgBox "Please input data format as yyyy/mm/dd then OK。", vbCritical, "Input error"
data_from.Value = Format(Range("A2").Value, "yyyy/mm/dd") 'default value
GoTo reload_form
End If
...
Unload SettingForm
reload_form:

End sub

[humdingaling]

try put it in textbox_afterupdate

[alee001]

try put it in textbox_afterupdate

how to solve error:6 overflow during input long number?
input case format:
2014/08/25 return TURE
25/08/2014 return FALSE
2014-08-25 return FALSE
2014.08.25 return TRUE?
2014/Aug/25 return FALSE
20140825 return Error:6
"" return FALSE
"abc" return FALSE

[humdingaling]

i think you need to rework your if loop
though i dont know what you are working with...

here is example of how it should react?

if anything text is input into textbox it needs to be validated as a date first
be careful though now if you have month and day back to front it would still pass

ie 2nd of mar and 3rd of feb

[alee001]

Thanks for the reference, and I learned to use on Textbox_afterupdate.