Überprüfung TextBox / MultiPage
18.02.2004 12:05:06
Jan P
ich habe in einem Multipage mit zwei Seiten auf jeder Seite des MultiPage drei TextBoxes sowie drei Label.
Hier ein Teil des Codes:
(Hiermit überprüfe ich, ob eine Eingabe in einer TextBox erfolgt ist)
Private Sub CommandButtonADD_Click()
' Fehlerüberprüfung auf leere Felder TextBoxes 5-7 und 10-12
If TextBox10.Text = "" Then
MsgBox "Eingabe unvollständig oder fehlerhaft!"
TextBox10.SetFocus
Exit Sub
End If
Die Werte werden aus den TextBoxes ausgelesen und anschließend werden die TextBoxes gelöscht bzw. die Inhalte da drinnen. Dann möchte ich wieder auf den ersten reiter wechseln.
For Tb = 10 To 12
Me.Controls("TextBox" & Tb) = ""
Next Tb
' Wechsel auf den ersten Reiter im Multipage
MultiPage1.Value = 0
Klappt soweit auch ganz gut - nur wenn ich den Reiter des MultiPage wechsel von 1 auf 2 und habe auf page1 eine TextBox nicht gefüllt, kommt eine Fehlermeldung:
Laufzeitfehler 2110 - Focus kann nicht auf das Element gesetzt werden, da es nicht aktiviert ist...
Nun habe ich folgendes geplant, um das zu umgehen:
Einblenden des Multipage und der ersten TextBox - nach der Eingabe wird diese unsichtbar gemacht - oder kann ich meinen obigen Code etwas umbauen - oder funktioniert es nur mit einer Seite auf dem Multipage bzw. ganz ohne??
Gruß Jan