Leere Textboxen in einer MsgBox ausgeben
20.05.2019 17:25:39
Marcel
hätte mal eine Frage, irgendwie stelle ich mich zu blöd an.
Ich habe ein Fomular mit über 30 Textfeldern, dazu würde ich gern bestimmte Felder prüfen ob diese Leer sind und dann die leeren Textboxen mit einem bestimmten Titel in einer MsgBox anzeigen lassen und vielleicht noch die erste Textbox davon selectieren.
Mein erster Versuch klappt irgendwie nicht:
If Not Len(Me.cob_Durchgang.Text) Or Len(Me.TextBox33.Text) > 0 Then
MsgBox "Prüfen Sie Ihre Eingaben. Es fehlen folgende für die Erstellung des Dokumentes: "
Exit Sub
Dann habe ich versucht das über ein Array zu machen:
Dim txtboxnamen() As Variant
txtboxnamen = Array("Me.cob_Durchgang.Text", "Me.TextBox33.Text")
For zaehler = 0 To 1
If Not txtboxnamen(zaehler) > 0 Then
MsgBox txtboxnamen(zaehler) & vbNewLine
End If
Next zaehler
Beides klappt irgendwie nicht nach meinem Wunsch.
Könnt ihr mir da helfen?
Gruß
Anzeige