For Schleife mit If/Else im Userform
01.11.2012 19:45:30
Black-Mage
Ich habe ein Userform das durch klick auf eine Schaltfläsche ein 2tes Userform öffnet, in dem einige Werte eingetragen werden sollen.
Wenn ich nun im UF2 auf ok klicke Prüfe ich mit einer For schleife, ob alle Textboxen auch ausgefüllt wurden. Ist dies nicht der Fall gibt es eine msgbox die eben nochmal sagt das man alles auszufüllen hat. Sind alle Felder gefüllt, kommt eben keine msgbox.
Soweit so gut, mein problem ist nun, wenn ich im else segment sage das ich das uf2 schließen möchte me.hide bekomme ich den Fehler "das oberste gebundene Formular muss zuerst geschlossen...."
packe ich das me.hide am ende der forschleife, kommt dieser Fehler nicht, jedoch schließt sich das UF2 auch wenn eben nicht alle Textboxen befüllt sind.
Was mache ich denn Falsch?
Private Sub Btn_OK_Click()
Dim i As Integer
For i = 1 To 5
If Not StatsForm("Textbox" & i).TextLength 0 Then
MsgBox "You have to enter ALL Stats, Temp and Pot!"
Exit For
Else
'MainForm.Label19.Caption = "OK"
'MainForm.Label19.ForeColor = &HC000&
'MainForm.Label19.Font.Bold = True
Me.Hide
End If
Next i
End Sub