如何阻止MS Access弹出/模态表单未点保存按钮时自动插入记录？

早上好！这个问题我在处理Access表单时经常碰到，给你两个实用的解决方案，你可以根据自己的需求选：

这种方法完全绕过Access默认的自动保存逻辑，所有操作都由你自己控制：

• 首先修改表单的RecordSource：可以留空，或者设置成一个空的查询（比如SELECT * FROM 你的目标表 WHERE 1=0），这样表单能继承表的字段结构，但不会加载任何现有记录，也不会自动绑定新记录。
• 给保存按钮添加VBA代码，手动创建并保存新记录：

Private Sub btnSave_Click()
    ' 打开目标表的记录集
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("你的目标表名", dbOpenDynaset)
    
    ' 创建新记录并赋值
    rs.AddNew
    rs("字段1") = Me.txt字段1.Value ' 替换成你的控件和字段名
    rs("字段2") = Me.txt字段2.Value
    ' 其他字段依次类推
    rs.Update ' 保存记录
    
    ' 清理资源并关闭表单
    rs.Close
    Set rs = Nothing
    MsgBox "记录已成功保存！", vbInformation
    DoCmd.Close acForm, Me.Name
End Sub

• 给取消按钮和右上角关闭按钮（X）添加逻辑，直接丢弃更改并关闭：

' 取消按钮点击事件
Private Sub btnCancel_Click()
    DoCmd.Close acForm, Me.Name
End Sub

' 处理右上角关闭按钮的卸载事件
Private Sub Form_Unload(Cancel As Integer)
    ' 直接放行关闭，无提示丢弃所有输入
    Cancel = False
End Sub

如果你不想改动表单的绑定设置，也可以通过拦截表单卸载事件来阻止自动保存：

• 给保存按钮添加代码，手动触发保存：

Private Sub btnSave_Click()
    If Me.Dirty Then ' 检查是否有未保存的更改
        Me.Dirty = False ' 保存当前记录
        MsgBox "记录已保存！", vbInformation
    End If
    DoCmd.Close acForm, Me.Name
End Sub

• 给取消按钮添加代码，撤销更改后关闭：

Private Sub btnCancel_Click()
    If Me.Dirty Then
        Me.Undo ' 撤销所有未保存的更改
    End If
    DoCmd.Close acForm, Me.Name
End Sub

• 处理右上角关闭按钮的Form_Unload事件，自动撤销未保存的新记录：

Private Sub Form_Unload(Cancel As Integer)
    ' 如果是未保存的新记录，直接撤销
    If Me.NewRecord Then
        Me.Undo
    End If
End Sub

小提示 #

• 未绑定表单的优势是完全掌控保存逻辑，不会出现意外的自动插入，适合对数据准确性要求高的场景；
• 绑定表单的方法更简单，不需要手动赋值所有字段，但要注意处理Dirty和NewRecord状态，避免遗漏某些情况。

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