Curser in Textbox bei Fehleingabe lassen
13.06.2013 18:56:42
Thomas
Ich benötige bitte eure Hilfe!
In einer UF befinden sich mehrere TextBoxen die gefüllt werden müssen.
Die Eingabe muss dabei ein bestimmtes Format haben. Ist eine falsche Eingabe vorgenommen worden, so soll der Curser nicht in die nächste TextBox wandern, sondern in der TextBox bleiben!
Unten angegebener Quellcode funktioniert aber leider nicht. Geht diese Anweisung über bei einem AfterUpdate Ergeignis?
Vielen Dank für eure Unterstützung!!
Thomas
Private Sub Datum_AfterUpdate()
If IsDate(Datum) Then
Datum.BackColor = RGB(0, 255, 0)
Else
MsgBox "Bitte Datum eingeben!"
Datum.SetFocus
Exit Sub
End If
End Sub
Anzeige