Access VBA：主窗体卸载时如何判断子窗体是否为Dirty状态？

核心思路 #

直接依赖子窗体的Dirty属性会因为焦点切换失效，所以我们在子窗体内部维护一个自定义变量，手动追踪修改状态，再让主窗体读取这个变量判断是否需要弹出提示。

步骤1：在子窗体SFRM中添加状态追踪逻辑 #

打开子窗体的代码编辑器，添加以下代码：

' 模块级变量，记录子窗体是否有未保存修改
Private hasUnsavedChanges As Boolean

' 当子窗体变为"脏"状态（有修改）时触发
Private Sub Form_Dirty(Cancel As Integer)
    hasUnsavedChanges = True
End Sub

' 当修改被保存后触发，重置状态
Private Sub Form_AfterUpdate()
    hasUnsavedChanges = False
End Sub

' 当用户撤销修改时触发，重置状态
Private Sub Form_Undo(Cancel As Integer)
    hasUnsavedChanges = False
End Sub

' 暴露给主窗体的公共函数，返回修改状态
Public Function GetIsDirty() As Boolean
    GetIsDirty = hasUnsavedChanges
End Function

步骤2：在主窗体FRM的Unload事件中判断状态并处理 #

修改主窗体的Form_Unload事件代码：

Private Sub Form_Unload(Cancel As Integer)
    ' 调用子窗体的公共函数获取修改状态
    If Me.SFRM.Form.GetIsDirty() Then
        Dim userChoice As Integer
        userChoice = MsgBox("是否保存子窗体的修改？" & vbCrLf & _
                            "是：保存所有修改" & vbCrLf & _
                            "否：删除未保存记录并放弃修改" & vbCrLf & _
                            "取消：保持窗体打开", vbYesNoCancel + vbQuestion, "提示")
        
        Select Case userChoice
            Case vbYes
                ' 保存子窗体修改
                Me.SFRM.Form.Dirty = False
            Case vbNo
                ' 撤销子窗体修改（删除未保存记录）
                Me.SFRM.Form.Undo
            Case vbCancel
                ' 取消窗体卸载
                Cancel = True
        End Select
    End If
End Sub

关键说明 #

• 为什么不用Me.SFRM.Form.Dirty？因为当焦点从子窗体切换到主窗体时，Access会自动触发子窗体的保存操作（或重置Dirty状态），导致无法准确判断是否有未确认的修改。
• 自定义变量hasUnsavedChanges会在修改发生时标记，保存/撤销时重置，状态更可靠。
• 通过公共函数GetIsDirty让主窗体读取子窗体的状态，符合VBA的作用域规则。

内容的提问来源于stack exchange，提问作者Shawn V. Wilson