Loops 空白、空或空字段的访问检查

我有一个表单，上面有几十个字段

这些字段是文本框和组合框的组合。我正试图找出一个单键解决方案来检查空/空/空字段

如果发现空白，我希望它显示一个表格；如果没有找到，我希望它关闭当前表单

我的代码如下

它成功地遍历了所有字段，并在找到空/空/空字段时显示了一个表单，但我不知道如何在表单上没有空/空/空字段时关闭表单

Private子命令146_Click（）
Dim-ctl作为对照
和我一起
对于控件中的每个ctl
如果ctl.ControlType=ACCOMBOX或ctl.ControlType=acTextBox，则
如果Len（ctl.Value&“”）=0，则
DoCmd.OpenForm“PopMissingData”
退出
“如果结束”值
“如果结束”控件类型
下一个
以
端接头

只需检查控制对象是否已“用完”：

---

只需检查控制对象是否已“用完”：

---

向初始值为0的代码添加计数器。为每个空/空/空控件向计数器添加1。如果计数器>0->打开PopMissingData表单。否则，请关闭当前窗体。在代码中添加一个初始值为0的计数器。为每个空/空/空控件向计数器添加1。如果计数器>0->打开PopMissingData表单。否则，请关闭当前窗体。是否缺少某些内容<如果窗体上至少存在一个控件，则code>ctl从不为

Nothing

。@UnhandledException:Nope-易于签出。您是对的，每个

循环的
将在最后设置
ctl
为
Nothing
。我错过了，你是不是错过了什么<如果窗体上至少存在一个控件，则code>ctl
从不为
Nothing
。@UnhandledException:Nope-易于签出。您是对的，每个
循环的
将在最后设置
ctl
为
Nothing
。我错过了。
Private Sub Command146_Click()

    Dim ctl As Control

    With Me
        For Each ctl In .Controls
            If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then
                If Len(ctl.Value & "") = 0 Then
                    Exit For
                End If ' Value
            End If ' ControlType
        Next
    End With

    If ctl Is Nothing Then
        ' All controls validated.
        DoCmd.Close acForm, Me.Name
    Else
        ' Open the other form.
        ' ctl will hold the non-validated control.
        DoCmd.OpenForm "PopMissingData"
    End If

End Sub