For 循环检查用户窗体控件值中的运行时错误 438

Question

我有一个用户窗体，上面有 132 个控件对象。用户填写表单，然后单击“确认”按钮运行一个宏，该宏使用提交的信息来做出决定。下图。我写了一个 If 语句来检查： 如果没有在顶部输入名称，则不要运行宏；如果未选中任何复选框，则不要运行宏。我发现 If 语句在几乎所有选中和未选中框的组合中都能发挥作用。如果它发现任何一个复选框被选中，则它结束 For Loop 并继续执行宏。

这是我的用户表单图像的链接：

这是质量门 If 语句，当我收到错误时，星号** 行会突出显示：

    Dim cCont As Control
    Dim datacheck As Boolean
    datacheck = False
    If ProductName.Value <> "" Then
        For Each cCont In AddNewPage.Controls
            **If TypeName(cCont) = "CheckBox" And cCont.Value = True Then**
                datacheck = True
                Exit For
            End If
        Next cCont
    End If

   If datacheck = True Then
     'very long, hopefully unrelated macro
    Else
        MsgBox ("Please name the part, then click at least one" & Chr(13) & "checkbox. These are _
           the parameters to be audited.")
   End If

问题是，如果我只选中底部三个组中的复选框，我会收到运行时错误 438。如果我只选中顶部组中的复选框，或者如果我选中来自顶部组和底部组，但如果我只选中底部组中的复选框，则不会。

我无法识别顶部复选框和底部复选框之间的区别。属性似乎都是一样的，所以我不知道为什么一个复选框会抛出错误而另一个不会。

Answer 1

If TypeName(cCont) = "CheckBox" And cCont.Value = True Then

问题在于 VBA 的 And 运算符没有短路，因此对于每个 cCont 都系统地评估这两个条件，这可能包括没有的 Label 控件Value 属性。

您可以嵌套条件以实现AndAlso 运算符在 VB.NET 中的短路行为：

If TypeName(cCont) = "CheckBox" Then
    'we're looking at a CheckBox control
    If cCont.Value Then
        '...
    End If
End If