Textfeld leer -> Fehlermeldung

Forumthread: Textfeld leer -> Fehlermeldung

18.12.2003 18:25:36

Roland

Hallo Leute,

und zwar habe ich eine Userform mit mehreren Textfeldern die ALLE unbedingt ausgefüllt sein müssen!!!

Jetzt brauche ich einen Code für Commandbutton1, das er eine MsgBox anzeigt, das nicht alle Felder ausgefüllt sind.

Wäre super, wenn mir das jemand sagen kann.

Gruß

Roland

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textfeld leer -> Fehlermeldung

18.12.2003 18:56:46

K.Rola

AW: Textfeld leer -> Fehlermeldung

18.12.2003 18:56:46

K.Rola

Hallo,

Option Explicit


Private Sub CommandButton1_Click()
Dim c As Control
For Each c In Me.Controls
If TypeName(c) = "TextBox" Then
If c = "" Then
c.SetFocus
MsgBox "Nix da " & c.Name & " ist leer!"
Exit Sub
End If
End If
Next
End Sub

Gruß K.Rola

Forumthread: Textfeld leer -> Fehlermeldung

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread