MS-Access使用VBA添加记录时意外更新第一条记录求助

嘿，这个问题我之前帮朋友排查过类似的，大概率是窗体绑定+控件值未重置导致的意外更新，咱们来理清楚：

为什么会出现这个情况？ #

你当前的窗体应该是绑定窗体（也就是窗体的RecordSource属性设置成了timeTbl表）。Access绑定窗体默认打开时会定位到表的第一条记录，当你在控件里输入内容后，这些控件是直接绑定到表字段的——哪怕你用SQL插入了新记录，只要控件里的ProjectNumber值没清空，当代码执行完、焦点离开控件时，Access会自动把当前绑定的第一条记录的ProjectNumber字段更新成控件里的值。

另外，你的SQL语句还有个小笔误：combobox.value重复用了两次（对应AssignedTo和Task字段），不过这不是导致第一条记录被更新的原因，记得根据实际控件名调整哦。

解决办法 #

1. 插入后立即重置控件值（快速修复） #

在执行db.Execute之后，手动清空所有输入控件的内容，切断控件值与绑定记录的关联：

rcrdAdd = "INSERT INTO " & timeTbl & " (ProjectNumber, AssignedTo, Task, taskStart) VALUES ('" & ProjectNumber.Value & "', '" & cboAssignedTo.value & "', '" & cboTask.value & "', '" & datetime.value & "');" 
db.Execute rcrdAdd, dbFailOnError

' 清空控件值，避免绑定记录被意外更新
ProjectNumber.Value = ""
cboAssignedTo.Value = ""
cboTask.Value = ""
datetime.Value = ""

（我把重复的combobox改成了cboAssignedTo和cboTask，你可以根据自己的控件实际名称调整）

2. 改用参数化查询（更安全+彻底规避问题） #

直接拼接SQL字符串不仅容易触发绑定窗体的意外更新，还存在SQL注入风险，用参数化查询能一次性解决这些问题：

Dim qdf As QueryDef
Set qdf = CurrentDb.CreateQueryDef("", _
    "INSERT INTO " & timeTbl & " (ProjectNumber, AssignedTo, Task, taskStart) " & _
    "VALUES (@ProjectNum, @Assigned, @Task, @StartDate);")

' 给参数赋值
qdf.Parameters("@ProjectNum") = ProjectNumber.Value
qdf.Parameters("@Assigned") = cboAssignedTo.Value
qdf.Parameters("@Task") = cboTask.Value
qdf.Parameters("@StartDate") = datetime.Value

' 执行插入
qdf.Execute dbFailOnError
Set qdf = Nothing

' 清空控件值
ProjectNumber.Value = ""
cboAssignedTo.Value = ""
cboTask.Value = ""
datetime.Value = ""

3. 改成非绑定窗体（从根源避免绑定问题） #

如果你的窗体只是用来录入数据插入到表，不需要显示表的现有记录，可以把窗体的RecordSource属性设置为空，做成非绑定窗体。这样控件的值不会和表记录绑定，也就彻底不会出现意外更新现有记录的情况了。

额外验证步骤 #

你可以打开窗体的属性窗口，切换到「数据」选项卡，看看「记录源」是不是设置成了timeTbl——如果是的话，就坐实了绑定窗体导致的问题啦～

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