Multipage SetFoucs LzFehler 2110
19.10.2022 08:40:53
Andy
Ich habe ein Userform mit einer multipage1. Auf Seite 1 der MP befinden sich mehrere Felder, die befüllt werden müssen. Beim Wechseln zwischen den Seiten möchte ich das speichern automatisch auslösen, weshalb ich im Multipage1_ChangeEreignis das Makro "speichern" starte. In diesem Makro wird allerdings vorab geprüft, ob die FelderTB1 und TB2 ausgefüllt sind und zwar durch:
If TextBox1.Value = "" Then MsgBox "Bitte Eingabe überprüfen!" & Chr(10) & Chr(10) & "Pflichtfeld: Datum (dd.mm.yyyy)", vbInformation, "Hinweis": MultiPage1.Value = 0: TextBox1.SetFocus: Exit Sub
If TextBox2.Value = "" Then MsgBox "Bitte Eingabe überprüfen!" & Chr(10) & Chr(10) & "Pflichtfeld: Uhrzeit (hh:mm)", vbInformation, "Hinweis": MultiPage1.Value = 0: TextBox2.SetFocus: Exit Sub
Ich würde gerne erreichen, dass er mir bei einer leeren Textbox1 zb wieder zurück auf seite1 geht und mir dort die TB1 fokusiert.