Access中主表单被修改时，能否强制子表单指定字段必填？

这两个问题的答案都是肯定的：当主表单处于脏数据状态时，完全可以强制要求子表单的指定字段必填，包括你提到的NoteSubForm里的Note、Initials、NoteDate这三个字段。

我们可以利用主表单的BeforeUpdate事件来实现这个需求——这个事件会在主表单的数据即将被保存更新前触发，刚好适合做校验拦截。

步骤1：打开主表单的VBA编辑器 #

1. 打开MainForm的设计视图
2. 右键点击主表单空白处，选择【事件生成器】
3. 在弹出的窗口中选择【代码生成器】，进入VBA编辑界面

步骤2：编写校验逻辑代码 #

在主表单的代码窗口中，输入以下VBA代码（注意替换子表单控件名称，如果你的子表单控件不是叫NoteSubForm的话）：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    ' 先判断主表单是否处于脏数据状态（即有修改未保存）
    If Me.Dirty Then
        Dim subForm As Form
        Set subForm = Me.NoteSubForm.Form
        
        ' 先检查子表单是否有记录（如果连记录都没有，先提示添加）
        If subForm.Recordset.RecordCount = 0 Then
            Cancel = True
            MsgBox "主表单已修改，请先添加一条变更记录到子表单中。", vbExclamation, "无变更记录"
            subForm.SetFocus
            DoCmd.GoToRecord , , acNewRec
            Exit Sub
        End If
        
        ' 检查三个必填字段是否为空
        Dim missingFields As String
        missingFields = ""
        
        If IsNull(subForm!Note) Or subForm!Note = "" Then
            missingFields = missingFields & "- 变更说明（Note）" & vbCrLf
        End If
        
        If IsNull(subForm!Initials) Or subForm!Initials = "" Then
            missingFields = missingFields & "- 经办人缩写（Initials）" & vbCrLf
        End If
        
        If IsNull(subForm!NoteDate) Then
            missingFields = missingFields & "- 变更日期（NoteDate）" & vbCrLf
        End If
        
        ' 如果有缺失字段，阻止主表单更新并提示用户
        If missingFields <> "" Then
            Cancel = True
            MsgBox "主表单已修改，请补充以下必填的变更记录字段：" & vbCrLf & vbCrLf & missingFields, vbExclamation, "必填字段缺失"
            ' 自动定位到第一个缺失字段，方便用户填写
            If IsNull(subForm!Note) Or subForm!Note = "" Then
                subForm!Note.SetFocus
            ElseIf IsNull(subForm!Initials) Or subForm!Initials = "" Then
                subForm!Initials.SetFocus
            Else
                subForm!NoteDate.SetFocus
            End If
        End If
    End If
End Sub

一些关键注意事项 #

• 子表单控件名称：代码里的Me.NoteSubForm指的是主表单上的子表单控件名称，不是子表单本身的对象名称，别搞混了！如果你的子表单控件叫别的名字，一定要替换成对应的名称。
• 连续/数据表子表单：如果你的NoteSubForm是连续表单或数据表形式，要确保用户至少添加了一条记录，代码里已经加了这个判断，避免出现无记录时校验失效的情况。
• 测试场景：记得多测试几种情况：主表单没修改时不会触发校验；主表单修改后子表单缺字段会被拦截；字段都填好后主表单能正常保存。

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