MS Access窗体按主键搜索时原有记录被不当覆盖问题

• 你当前使用的是绑定到sin_log表的绑定型窗体，原有逻辑通过ADO查询到目标记录后逐个给窗体控件赋值，本质是在修改窗体当前加载的原有记录，而非跳转至目标记录。
• 主键sin_id是自动编号（AutoNumber）类型，在绑定窗体的现有记录编辑状态下为只读属性，你写的Me.txtSinId.Value = recs.Fields("sin_id").Value赋值语句不会生效，主键始终保留原有记录的ID值，后续保存时自然会覆盖原记录。
• 原有逻辑还有一个隐性bug：使用adOpenKeyset游标打开ADODB记录集时，若游标位置配置不符合要求，RecordCount属性可能返回-1，直接导致记录存在时也会触发“未找到记录”的提示。

优先选第一种方案，完全适配Access绑定窗体的设计逻辑，从根源上避免记录覆盖问题。

方案1：直接通过窗体绑定记录集定位（推荐） #

不需要手动编写数据库连接、查询、逐控件赋值的逻辑，直接操作窗体自带的绑定记录集跳转到目标主键对应的记录，所有字段值（包括自动编号主键）会自动加载，不存在主键不同步的问题。
替换原有cmdSearch_Click事件代码如下：

Private Sub cmdSearch_Click()
    Dim sSearchID As String
    sSearchID = Nz(Me.txtSearchSin, "")
    
    ' 校验搜索输入合法性
    If sSearchID = "" Or Not IsNumeric(sSearchID) Then
        MsgBox "请输入有效的SIN编号", vbExclamation
        Me.txtSearchSin.SetFocus
        Exit Sub
    End If

    ' 先提交当前未保存的编辑内容，避免切换记录时误存
    If Me.Dirty Then Me.Dirty = False

    ' 在绑定记录集中定位目标主键记录
    Me.Recordset.Find "sin_id = " & sSearchID, , adSearchForward, adBookmarkFirst
    
    ' 未找到匹配记录时提示并返回首条记录
    If Me.Recordset.EOF Then
        MsgBox "No record found for SIN #" & sSearchID, vbInformation
        Me.Recordset.MoveFirst
    End If
End Sub

这个方案的优势：

• 不需要维护控件和表字段的映射关系，后续表结构调整时不需要修改搜索逻辑
• 完全复用窗体的原有数据绑定逻辑，主键自动同步，彻底避免误覆盖其他记录的问题
• 省去手动开关数据库连接、打开关闭记录集的步骤，减少资源泄漏风险
• 代码量缩减70%以上，逻辑更易维护

方案2：保留手动赋值逻辑的适配修改 #

如果因特殊业务要求必须保留ADO查询逐控件赋值的写法，必须在赋值前先退出当前记录的编辑状态，避免修改原有记录：

1. 查到匹配记录后，第一时间执行Me.Undo撤销当前记录上所有未保存的修改
2. 如果是要编辑查到的现有记录，不要直接给控件赋值，而是先通过RecordsetClone定位到对应记录，再通过设置窗体Bookmark跳转到该记录
3. 不要尝试给自动编号类型的主键控件手动赋值，跳转记录后该值会自动填充
   核心修改片段参考：

If recs.RecordCount > 0 Then
    Me.Undo ' 撤销当前未保存修改
    ' 跳转到目标记录
    Dim rsClone As Recordset
    Set rsClone = Me.RecordsetClone
    rsClone.Find "sin_id = " & recs.Fields("sin_id").Value
    If Not rsClone.EOF Then Me.Bookmark = rsClone.Bookmark
    rsClone.Close
    Set rsClone = Nothing
End If

• 所有会触发窗体记录切换的操作（搜索、翻页、关闭窗体）执行前，必须检查Me.Dirty属性，存在未保存修改时先提示用户或自动提交，避免非预期的写入。
• 自动编号是Access托管的系统字段，不要尝试在编辑状态下手动修改它的值，所有记录定位、新增操作交给Access的绑定记录集逻辑处理即可。
• 原有SQL直接拼接用户输入的写法存在SQL注入和语法报错风险，必须加输入合法性校验，确认输入为数字类型后再拼接SQL语句。

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