Msgbox if all text boxes are blank

Question

Good day,&nbsp;&nbsp;Is there a way I can generate a msgbox when a specific button is clicked if all text boxes in a userform have been left blank? I know I can create code for each box individually but I'm thinking there must be a way to combine everything together and generate the msgbox.&nbsp;Thanks in advance for any assistance!!!

hansvogelaar · Accepted Answer

cking1333&nbsp;
For a command button named cmdCheck:
Private Sub cmdCheck_Click()
    Dim ctl As Control
    Dim f As Boolean
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Then
            If ctl.Value &lt;&gt; "" Then
                f = True
                Exit For
            End If
        End If
    Next ctl
    If Not f Then
        MsgBox "All text boxes are empty!", vbInformation
    End If
End Sub

Forum Discussion

Msgbox if all text boxes are blank

Share

Resources