TextBox und ComboBox Inhaltsprüfung
06.01.2015 10:27:34
Frank
ich habe eine kleines Problem, ich habe eine Userform mit einigen TextBoxen und Comboboxen. Beim öffnen der Userform, werden einige Boxen mit Inhalt gefüllt mit
" Me.txtKunde.Value = Cells(zeile, 2).Value "
anschließend werden einige Boxen noch mit Inhalt gefüllt bzw. geändert.
Und dann wird der Inhalt gespeichert, dabei erfolgt als erstes eine Abfrage ob alle Boxen _
ausgefüllt wurden. mit
Dim objtxt As Object
For Each objtxt In Anfragedaten.Controls
If TypeName(objtxt) = "TextBox" Or TypeName(objtxt) = "ComboBox" Then
If objtxt.Value = "" Then
MsgBox " Es wurden nicht alle Textfelder ausgefüllt.!", 48
objtxt.SetFocus
Exit Sub
End If
End If
Next
Nur leider erkennt die Abfrage nicht das die Boxen gefüllt sind. Und ich bekomme immer die Meldung das nicht alle Textfelder ausgefüllt sind, was aber nicht stimmt.
Hat jemand eine Idee, woran das liegen kann.
Vielen Dank, für eure Hilfe...
Grüße Frank
Anzeige