Probleme mit Schleifen / Abfragen
28.07.2017 18:05:20
Marco
Ich habe mir eine Userform mit einigen Textfelder erstellt.
Bei einem Textfeld gelingt mir die Prüfung nicht...
Ich möchte gerne das Textfeld folgendermaßen vorab prüfen bevor die Wert via unload.me in die Tabelle übertragen werden.
Wenn die Anzahl der Wäschepakete die Anzahl der Personen übersteigt soll eine MSG-Box aufgehen und darauf hinweisen das die Anzahl größer ist als die Anzahl der Personen. Wird die MSG-Box mit OK bestätig sollen die Daten in die Tabelle geschrieben werde.
Wird bei der MSG-Box aber Nein gedrückt, dann soll das entsprechende Feld in der Userform auf 0 gesetzt werden und eine neue Eingabe/Korrektur möglich sein. Wird der neue Wert bestätig ist alles in Ordnung ansonsten soll die Abfrage erneut gestartet werden.
Könnte mir jemand behilflich sein? Versuche es schon seit geraumer Zeit und habe mit eineigen Schleifen experimentiert... Leider ohne Erfolg.... :-(
Vorab vielen Dank!
a = 1
Do
If IsNumeric(Me.txtAnzWaesche.Value) = False Or (Me.txtAnzWaesche.Value) > maxPersonen Then _
'verifzieren, daß es Zahl ist
Select Case MsgBox("Sollen für " & maxPersonen & " Gäste " & _
Me.txtAnzWaesche.Value & " Wäschepakete gebucht werden?", vbQuestion + vbYesNo, _
cMsgTitle)
Case vbNo
Application.ScreenUpdating = False
Me.txtAnzWaesche.SetFocus
Me.txtAnzWaesche.Value = 0 'Bei klick auf Nein wird im _
Textfeld wieder eine 0 eingetragen
Application.ScreenUpdating = True
m_WaescheTrue = False
Debug.Print "ja muss korregiert werden"
a = a + 1
Case vbYes
m_WaescheTrue = True
Debug.Print "nein muss nicht korregiert werden"
End Select
End If
Loop Until m_WaescheTrue = True
Debug.Print m_WaescheTrue & " oben"
Debug.Print a