MS Access主窗体按钮检测主、子窗体空值的VBA实现疑问

问题背景 #

本人是Access新手，只会基础VBA操作。现有主窗体frm_daily_packing_record，包含3个子窗体：subfrm_PackingSteps1、subfrm_MetalDetection（均为连续窗体）和subfrm_Weights（单一窗体）。用户可无序输入数据，需要在主窗体添加一个确认按钮，用于检查主窗体及所有子窗体的必填控件是否存在空值。目前已写出一段检查连续窗体记录集的代码，但遇到两个问题：

• 如何实现自动遍历控件进行检查，而非手动指定所有控件（曾用过基于Tag属性的函数，但不知道怎么整合到现有代码中）；
• 如何在主窗体的按钮事件中实现对子窗体控件/记录集的空值检查。

现有代码 #

Private Sub ConfirmBtn_Click()
Dim blnSuccess As Boolean
 
blnSuccess = True
 
Me.Recordset.MoveFirst
Do While Not Me.Recordset.EOF
    If IsNull(Me.pc) Or IsNull(Me.InnerP) Then
        blnSuccess = False
        Exit Do
    End If
    Me.Recordset.MoveNext
Loop
 
If blnSuccess = True Then
    MsgBox "You may proceed to save this record"
Else
    MsgBox "You still have some empty fields to fill in!", vbCritical + vbOKOnly, "Empty Fields!"
End If
End Sub

解决方案 #

1. 自动遍历控件的通用检查函数 #

先写一个通用函数，通过控件的Tag属性标记需要检查的字段，自动遍历所有标记过的控件判断是否为空：

' 检查单个窗体（主窗体或子窗体）的必填控件是否有空值
Function CheckFormEmptyFields(ByVal frm As Form) As Boolean
    Dim ctl As Control
    CheckFormEmptyFields = True ' 默认检查通过
    
    ' 遍历窗体所有控件
    For Each ctl In frm.Controls
        ' 只检查Tag属性设为"Required"的控件
        If ctl.Tag = "Required" Then
            ' 根据控件类型判断空值
            Select Case ctl.ControlType
                Case acTextBox, acComboBox, acListBox
                    If IsNull(ctl.Value) Or Trim(ctl.Value) = "" Then
                        MsgBox "控件 '" & ctl.Name & "' 不能为空！", vbCritical
                        ctl.SetFocus ' 直接定位到空控件
                        CheckFormEmptyFields = False
                        Exit Function
                    End If
                Case acCheckBox
                    ' 复选框若为必填，可根据需求调整判断逻辑（比如要求必须勾选）
                    If IsNull(ctl.Value) Then
                        MsgBox "控件 '" & ctl.Name & "' 不能为空！", vbCritical
                        ctl.SetFocus
                        CheckFormEmptyFields = False
                        Exit Function
                    End If
            End Select
        End If
    Next ctl
End Function

使用方法：在设计视图中选中所有需要检查的控件（主窗体和子窗体的都要），打开属性窗口，找到Tag栏输入Required即可。

2. 主窗体按钮整合子窗体检查逻辑 #

修改主窗体的确认按钮代码，调用上面的通用函数，同时处理连续窗体的所有记录：

Private Sub ConfirmBtn_Click()
    Dim blnSuccess As Boolean
    Dim subfrm As Form
    Dim rs As Recordset
    
    blnSuccess = True
    
    ' 第一步：检查主窗体
    If Not CheckFormEmptyFields(Me) Then
        blnSuccess = False
    End If
    
    ' 第二步：检查单一子窗体 subfrm_Weights
    If blnSuccess Then
        Set subfrm = Me.subfrm_Weights.Form
        If Not CheckFormEmptyFields(subfrm) Then
            blnSuccess = False
        End If
    End If
    
    ' 第三步：检查连续子窗体 subfrm_PackingSteps1
    If blnSuccess Then
        Set subfrm = Me.subfrm_PackingSteps1.Form
        Set rs = subfrm.RecordsetClone
        rs.MoveFirst
        Do While Not rs.EOF
            ' 定位到当前记录
            subfrm.Bookmark = rs.Bookmark
            If Not CheckFormEmptyFields(subfrm) Then
                blnSuccess = False
                Exit Do
            End If
            rs.MoveNext
        Loop
        rs.Close
        Set rs = Nothing
    End If
    
    ' 第四步：检查连续子窗体 subfrm_MetalDetection
    If blnSuccess Then
        Set subfrm = Me.subfrm_MetalDetection.Form
        Set rs = subfrm.RecordsetClone
        rs.MoveFirst
        Do While Not rs.EOF
            subfrm.Bookmark = rs.Bookmark
            If Not CheckFormEmptyFields(subfrm) Then
                blnSuccess = False
                Exit Do
            End If
            rs.MoveNext
        Loop
        rs.Close
        Set rs = Nothing
    End If
    
    ' 最终提示
    If blnSuccess Then
        MsgBox "可以保存记录了", vbInformation
    Else
        MsgBox "存在未填写的必填字段！", vbCritical
    End If
    
    Set subfrm = Nothing
End Sub

关键说明 #

• 连续窗体需要通过RecordsetClone遍历所有记录，再用Bookmark定位到对应记录，才能检查该记录的控件值；
• 可以根据实际使用的控件类型，扩展通用函数里的Select Case分支；
• 如果不需要区分控件类型，也可以简化判断逻辑，直接检查IsNull(ctl.Value)。

内容的提问来源于stack exchange，提问作者Panayiotis Panteli