Nach Fehlermeldung in Textbox springen...
22.07.2005 09:09:16
Michael
Ich hab folgendes Problem: nach Druck auf einen Cmd soll folgendes geschehen, falls ein Feld nicht ausgefüllt ist: eine Fehlermeldung, danach bestätigen mit OK, dann soll der Cursor in das nicht ausgefüllte Feld springen...
Es gibt folgende Felder: Tag - Monat / Tag - Monat Jahr.
Mein Makro sieht so aus:
If txtTag.Value = "" Then If MsgBox("Reise-Datum eingeben!", 0 + 48, "Fehler!") = vbOK Then txtTag.SetFocus
Exit
Sub
End Sub
If txtMonat.Value = "" Then If MsgBox("Reise-Datum eingeben!", 0 + 48, "Fehler!") = vbOK Then txtMonat.SetFocus
Exit
Sub
End Sub
Das Problem: Die Meldung kommt zwar, aber nur 1x..., d.h. wird der Tag/ Monat nachträglich ausgefüllt, kommt keine weitere Fehlermeldung!
Danke für eure Hilfe
Gruß
Michael
Anzeige