Microsoft Access数据录入表单匹配重复记录时跳转至对应已有记录的方法

你之前调用Cmd.GoToRecord失效的核心原因是：该方法仅支持按记录在当前记录集的偏移位置跳转，无法直接通过主键ID精准定位目标记录，使用记录集书签（Bookmark）定位是绑定表单场景下最稳定的方案。

完整实现代码 #

直接把你现有If分支的内容替换为如下代码即可：

If int_ID <> 0 Then
    ' 先撤销当前正在录入的未保存新增记录，避免触发唯一索引冲突报错
    Me.Undo
    
    Dim rs As DAO.Recordset
    ' 读取表单当前绑定的记录集副本
    Set rs = Me.RecordsetClone
    
    ' 按获取到的主键ID查找匹配记录
    rs.FindFirst "ID = " & int_ID
    
    ' 查找成功则同步表单当前位置到目标记录
    If Not rs.NoMatch Then
        Me.Bookmark = rs.Bookmark
    End If
    
    ' 释放资源
    rs.Close
    Set rs = Nothing
End If

注意事项 #

• 请确认表单的RecordSource属性绑定的是Tracking表，或包含ID字段的对应查询，否则记录集定位会失效
• Me.Undo不可省略：触发组合框AfterUpdate事件时，表单正处于新增记录的未保存状态，四个字段的组合已经命中唯一索引规则，不先撤销当前输入会直接弹出重复值报错
• 如果你的ID字段是文本类型而非数字/自动编号类型，需要把查找条件改为rs.FindFirst "ID = '" & int_ID & "'，常规场景下ID为自动编号主键不需要调整
• 跳转完成后用户可以直接在当前定位到的已有记录上编辑修改，和手动导航到该记录的操作效果完全一致

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