检查所有输入是否为空，除了一个

Question

我想检查一个表单上是否所有输入（txtbox和combobox）都不是空的，除了我用于搜索的那个（一个是空的，当我没有使用它时）

txtbox的名称是＆＃34; txtPesquisa＆＃34; - 我用它来搜索

    For Each c In Me.Controls
If TypeName(c) = "TextBox" Or TypeName(c) = "ComboBox" Then
    If c.Value = "" Then
            MsgBox "Preencher todas informações necessárias para agendamento!"
            Exit Sub
    End If
End If

下一个c

Answer 1

For Each c In Me.Controls
            If TypeName(c) = "TextBox" Or TypeName(c) = "ComboBox" Then
                If c.Name <> "txtPesquisa" And c.Value = "" Then
                    MsgBox "Preencher todas informações necessárias para agendamento!"
                    Exit Sub
                End If
            End If
        Next