Access添加新记录按钮开发：基于现有记录新增且不覆盖原数据

问题根源 #

你用的DoCmd.GoToRecord , , acNewRec思路存在本质问题：切换到新记录前，你修改了当前第47条记录的内容，Access会默认提示保存当前修改，一旦确认就直接覆盖原记录，完全违背保留原记录的需求。不需要用查询，直接用VBA就能解决。

核心思路 #

1. 临时存储表单上用户修改后的字段值
2. 撤销当前表单对原记录的修改（恢复第47条的原始数据）
3. 把临时存储的修改后数据插入为全新记录
4. 刷新表单并跳转到新记录（可选）

方案1：用DAO记录集插入（推荐，更安全） #

假设你的数据表名为Customers，表单控件名与数据表字段名一致（CustomerName、City），ID为自动编号字段（会自动生成101），按钮的点击事件代码如下：

Private Sub btnAddNewRecord_Click()
    ' 临时存储用户修改后的字段值
    Dim newCustName As String
    Dim newCity As String
    
    newCustName = Me!CustomerName.Value
    newCity = Me!City.Value
    
    ' 撤销当前表单的修改，恢复原第47条记录的内容
    Me.Undo
    
    ' 插入新记录
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set db = CurrentDb()
    ' 替换成你的数据表名
    Set rs = db.OpenRecordset("Customers", dbOpenDynaset)
    
    rs.AddNew
    rs!CustomerName = newCustName
    rs!City = newCity
    ' 如有其他字段，继续添加赋值语句，比如 rs!Phone = newPhone
    rs.Update ' 保存新记录
    
    ' 清理资源
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    ' 刷新表单并跳转到最新添加的记录
    Me.Requery
    DoCmd.GoToRecord , , acLast
End Sub

方案2：用SQL语句插入 #

如果习惯用SQL实现，可直接构建INSERT语句，注意转义字段值里的单引号（避免语法错误）：

Private Sub btnAddNewRecord_Click()
    Dim newCustName As String
    Dim newCity As String
    Dim strSQL As String
    
    newCustName = Me!CustomerName.Value
    newCity = Me!City.Value
    
    Me.Undo
    
    ' 构建SQL插入语句，替换成你的数据表名和字段名
    ' 用Replace转义单引号，防止SQL语法错误
    strSQL = "INSERT INTO Customers (CustomerName, City) " & _
             "VALUES ('" & Replace(newCustName, "'", "''") & "', '" & Replace(newCity, "'", "''") & "')"
    
    ' 执行SQL，dbFailOnError会在出错时抛出提示
    CurrentDb.Execute strSQL, dbFailOnError
    
    Me.Requery
    DoCmd.GoToRecord , , acLast
End Sub

注意事项 #

• 如果ID不是自动编号（手动维护），需在插入时手动赋值，比如rs!ID = DMax("ID", "Customers") + 1（取当前最大ID加1）
• 确保表单控件的ControlSource正确绑定到数据表对应字段
• 测试前建议备份数据表，避免数据丢失

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