关闭按钮联动更新前必填字段的VBA实现问题

第一步：取消数据表的必填设置 #

把数据表中那3个字段的「必填」属性改为否，这样执行Requery时就不会被强制要求填写字段，解决你之前的操作僵局。

第二步：修复关闭按钮的代码 #

你现有代码存在逻辑错误（比如用[PlaintiffName] = True判断文本字段完全不合理），以下是修正后的代码，同时预留了第三个必填字段的校验位置：

Private Sub SaveCloseBtn_Click()
    ' 若表单有未保存修改，先触发保存逻辑（会调用BeforeUpdate事件）
    If Me.Dirty Then
        Me.Dirty = False
    End If
    
    ' 无修改或保存成功时，弹出关闭确认
    If Not Me.Dirty Then
        If MsgBox("你确定要退出此案件吗？", vbYesNo, "警告！") = vbYes Then
            DoCmd.Close
        End If
    End If
End Sub

第三步：在BeforeUpdate事件中完成必填字段校验 #

BeforeUpdate是记录更新前的核心触发点，不管是主动保存还是关闭表单时的自动保存，都会触发该事件，在此处做校验能覆盖所有保存场景：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim hasError As Boolean
    hasError = False
    
    ' 校验PlaintiffName
    If Nz(Me.PlaintiffName.Value, "") = "" Then
        MsgBox "Plaintiff Name为必填项。", vbExclamation, "必填字段提示"
        Me.PlaintiffName.SetFocus
        hasError = True
    End If
    
    ' 校验LawFirm（无前置错误时才执行）
    If Not hasError And Nz(Me.LawFirm.Value, "") = "" Then
        MsgBox "Law Firm为必填项。", vbExclamation, "必填字段提示"
        Me.LawFirm.SetFocus
        hasError = True
    End If
    
    ' 校验第三个必填字段（替换成你的实际字段名）
    If Not hasError And Nz(Me.你的第三个字段名.Value, "") = "" Then
        MsgBox "第三个字段为必填项。", vbExclamation, "必填字段提示"
        Me.你的第三个字段名.SetFocus
        hasError = True
    End If
    
    ' 存在错误则取消更新
    If hasError Then
        Cancel = True
    End If
End Sub

逻辑说明 #

• 数据表取消必填：将校验控制权完全交给表单，避免Requery操作被强制拦截。
• BeforeUpdate事件：统一处理所有保存场景的必填校验，确保只有填写完整的记录才能被保存。
• 关闭按钮逻辑：先尝试保存修改（触发校验），只有校验通过或无修改时，才允许用户确认关闭表单，兼顾校验规则和操作流畅性。

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