验证异常

Question

想知道是否有人可以为用户表单上的特定字段（特别是我用于填充表单中其他字段的搜索字段）创建和例外。将数据提交到工作表时，不会填充它。预先谢谢！！！！

Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then
        If Ctrl.Value = vbNullString Then
            MsgBox "You must complete all entries"
            Ctrl.SetFocus
            Exit Sub
        End If
    End If
Next Ctrl

Answer 1

我假设您想从上面给出的代码中排除一个文本框。

假设您要排除的文本框的名称为txtSearch，那么您可以使用以下代码

Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is MSForms.TextBox Then
            If Ctrl.Name <> "txtSearch" Then
                If Ctrl.Value = vbNullString Then
                    MsgBox "You must complete all entries"
                    Ctrl.SetFocus
                    Exit Sub
                End If

            End If
        End If
    Next Ctrl