MS Access与SQL Server 2019主子窗体订单录入场景中取消按钮无法撤销自动保存记录的解决方案咨询

这个问题的核心原因是：当你从新增的主窗体切换到子窗体时，Access为了建立主-子窗体的关联关系（子窗体需要主窗体的主键值来过滤数据），会自动将主窗体的新记录提交到SQL Server后端。此时这条记录已经存在于数据库中，单纯的Me.Undo只能撤销未提交的本地修改，无法删除已经写入后端的记录。

下面给你一个简便的修改方案，只需要调整取消按钮的代码并新增一个变量来跟踪记录状态：

步骤1：添加模块级变量跟踪初始主键值 #

在主窗体frmDEPurchaseOrder的VBA模块顶部（所有事件之外）声明一个变量，用来存储窗体加载/切换记录时的初始主键值：

' 替换POID为你实际的订单主键字段名（比如PurchaseOrderID）
Private mOriginalOrderID As Variant

步骤2：在窗体当前事件中初始化变量 #

添加Form_Current事件，每次窗体切换到新记录时，记录当前的主键值：

Private Sub Form_Current()
    ' 这里的POID替换成你的订单主键字段
    mOriginalOrderID = Me!POID.Value
End Sub

步骤3：修改取消按钮的代码 #

更新cmdCancel_Click的逻辑，判断当前记录是否是本次会话新增的，如果是则直接删除后端的记录，否则撤销修改：

Private Sub cmdCancel_Click()
    On Error GoTo ErrorHandler ' 替换On Error Resume Next，更安全地捕获错误
    
    ' 弹出确认对话框
    If MsgBox("Změny budou zrušeny. Chcete pokračovat?", vbYesNoCancel + vbExclamation, "Upozornění") <> vbYes Then
        Exit Sub
    End If
    
    ' 判断是否是本次新增的订单：初始主键为空（新增记录时）
    If IsNull(mOriginalOrderID) Then
        ' 删除SQL Server中的新增记录，替换为你的订单表名和主键字段
        DoCmd.RunSQL "DELETE FROM YourPurchaseOrderTable WHERE POID = " & Me!POID.Value
    Else
        ' 不是新增记录，撤销本地修改
        Me.Undo
    End If
    
    ' 关闭窗体时选择acSaveNo，避免Access自动保存不必要的状态
    DoCmd.Close acForm, "frmDEPurchaseOrder", acSaveNo
    
    ' 刷新关联窗体
    RefreshForm ("frmPurchaseOrderDetails")
    RequeryForm ("frmPurchaseOrderList")
    
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox "Chyba při zrušení: " & Err.Description, vbCritical
    Resume ExitSub
End Sub

关键注意事项 #

• 替换占位符：把代码中的YourPurchaseOrderTable（订单主表名）和POID（主键字段名）替换成你实际的数据库对象名称。
• 移除acSaveYes：原来的DoCmd.Close用了acSaveYes，这会强制Access保存窗体状态，取消操作时应该用acSaveNo。
• 错误处理：用On Error GoTo替代On Error Resume Next，可以及时捕获删除操作中的异常（比如记录被其他用户锁定）。

如果你想要更彻底的解决方案（避免提前提交主记录），可以考虑用本地临时表存储新增的主/子记录，直到用户点击保存时再批量写入SQL Server，但这种方案需要更大的改动。上面的方法是最简便且见效快的。

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