循环浏览表单中的活动记录组合框

Question

我有一个连续的表格，每条记录有5个组合框。当我单击活动记录中的按钮以查找框是否不为空时，如何循环浏览这些框。我只想遍历活动记录，而不要遍历整个记录集。

Answer 1

如果组合框的名称类似cboTest1，cboTest2等，则类似：

For Each x = 1 to 5
    If IsNull(Me("cboTest" & x)) Then
        MsgBox "Combobox " & x & " needs data selected."
    End If
End If

Answer 2

尝试一下

 Dim ctl As Control
    For Each ctl In Screen.ActiveControl.Parent
       If TypeName(ctl) = "ComboBox" Then
          If IsNull(ctl) Then
            MsgBox ctl.Name & " combo is null"
          Else
            MsgBox ctl.Value
          End If
       End If
    Next