datumsformat abfragen
27.02.2004 14:36:45
pin
ich möchte nur gültige datumsformate zulassen. wenn ich jetzt falsche werte
in die textbox eingebe dann soll eine fehlermeldung erscheinen und der cursor
soll in die textbox zurückspringen
hier mein ansatz:
Private Sub datum_AfterUpdate()
If Not IsDate(datum.Text) Then MsgBox "Bitte geben Sie ein gültiges Datumsformat ein ! (TT.MM.JJ)"
End Sub
es kommt zwar jetzt eine fehlermeldung aber ich kann trotzdem ungültige formate
eingeben.
danke
gruss
andré