Ich habe ein Problemm ich möchte 4 Textboxen überprüfen ob sie leer sind.
Wenn alle 4 Textboxen leer dann gehe ich weiter, wenn aber eine oder zwei bzw. drei leer sind möchte ich zur leeren zeile zurückgehen und beschreiben.
mit dem Code sagt er nur das texbox leer ist und geht nicht zu leeren textbox.
If Not Grunddaten.WandStück = "" And Wandm² = "" And Wandstärke = "" And Wandhöhe = "" Then
msgBox ("Bitte Wand Stück, m², Wandhöhe und Wandstärke eingeben !"), vbInformation, "Eingabe nicht vollständig !"
Grunddaten.WandStück.SetFocus
Exit Sub
End If
If Grunddaten.WandStück.Text = ""
Grunddaten.WandStück.SetFocus
Exit Sub
End If
If Grunddaten.Wandm².Text = "" Then
Grunddaten.Wandm².SetFocus
Exit Sub
End If
If Grunddaten.Wandhöhe.Text = "" Then
Grunddaten.Wandhöhe.SetFocus
Exit Sub
End If
If Grunddaten.Wandstärke.Text = "" Then
Grunddaten.Wandstärke.SetFocus
Exit Sub
Exit Sub
Vielen Dank für Eure Hilfe!