MS Access VBA插入SQL执行后表单刷新首行数据意外覆盖问题

问题背景 #

以下VBA代码用于将模板BOM的零件号和工单号追加到tblMaterialRequiremnt表末尾，功能上能完成追加，但存在异常：表单执行Refresh后，tblMaterialRequiremnt表的首行工单号被错误覆盖，而代码本身没有更新首行记录的逻辑。

代码如下：

Private Sub Command15_Click()
    
    Dim db        As DAO.Database
    Dim strSQL    As String
    Dim PrtNbrGt  As String
    Dim JbNum     As String
    
    JbNum = Me.[tblManufactured.Job Number]
    PrtNbrGt = Me.SCSPartNumb
    
    Set db = CurrentDb
    strSQL = "INSERT INTO tblMaterialRequiremnt ( [Customer Part Number], [Job Number] ) " & vbCrLf & _
    "SELECT tbl_BOM_Requirments.RequiredMaterialPrtNum, '" & JbNum & "'" & vbCrLf & _
    "FROM tbl_BOM_Requirments " & vbCrLf & _
    "WHERE (tbl_BOM_Requirments.PrtNmber_LinkField) = """ & PrtNbrGt & """"
    
    db.Execute strSQL
    'Me.Form.Requery
    Me.Form.Refresh
    
End Sub

原因分析 #

• 表单未保存修改触发写入
  表单大概率直接绑定到tblMaterialRequiremnt表，且刷新前当前记录指针停留在首行。如果首行的Job Number控件因误操作、绑定逻辑异常等原因被设置为当前JbNum但未保存，执行Refresh时会强制将这些未提交的修改写入表中，导致首行被覆盖。

• 控件默认值冲突
  若表单上的Job Number控件默认值设为Me.[tblManufactured.Job Number]（当前工单号），刷新表单时，首行记录的该控件可能因绑定机制问题，将默认值写入现有记录，而非仅用于新增记录。

• 表单联动事件的隐性操作
  检查表单的AfterInsert、AfterUpdate等事件代码，可能存在你未注意到的逻辑——比如追加新记录后，事件代码意外修改了首行的Job Number值。

• Refresh与Requery的误用
  Refresh仅刷新当前显示的记录，会强制保存缓存的未提交修改；而被注释的Requery是重新加载整个记录集，不会触发未保存修改的写入。当前使用Refresh反而触发了意外的修改保存。

解决建议 #

1. 把Me.Form.Refresh替换为Me.Form.Requery，重新加载完整记录集，避免触发未保存修改的写入。
2. 检查Job Number控件的默认值设置，确保默认值仅作用于新增记录，而非现有记录。
3. 排查表单所有事件代码，确认无意外修改首行记录的逻辑。
4. 为tblMaterialRequiremnt表设置主键，避免因无约束导致的意外数据覆盖。

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