Access VBA更新指定记录时始终修改表中第一条记录问题求助

你的代码核心问题是设置Recordset的Filter后，没有基于过滤条件创建新的记录集，原Recordset依然指向全表数据，所以每次MoveFirst都会定位到表的第一条记录，而非过滤后的目标记录。以下是两种可行的修复方案：

方案1：正确使用Recordset Filter #

设置Filter后，需要调用OpenRecordset方法生成过滤后的新记录集，再进行更新操作：

Sub UpdateRecordInTable(strMyKey As String)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim rsFiltered As DAO.Recordset
    Debug.Print "Entering sub"
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM tempAllSrchImg_Result", dbOpenDynaset)
    
    ' 设置过滤条件并生成新的过滤后记录集，同时处理字符串中的单引号转义
    rs.Filter = "ImgFileA = '" & Replace(strMyKey, "'", "''") & "'"
    Set rsFiltered = rs.OpenRecordset()
    
    If Not rsFiltered.EOF Then
        rsFiltered.Edit
        rsFiltered("Picked").Value = "Picked"
        rsFiltered.Update
        Debug.Print "Updated record: " & strMyKey
    Else
        Debug.Print "No matching record for: " & strMyKey
    End If

    ' 清理对象
    rsFiltered.Close
    rs.Close
    Set rsFiltered = Nothing
    Set rs = Nothing
    Set db = Nothing
    Debug.Print "Exiting sub"
End Sub

方案2：直接使用UPDATE查询（更高效） #

相比打开Recordset，直接执行UPDATE SQL是更高效的方式，你之前报错91是因为没有正确调用数据库的Execute方法：

Sub UpdateRecordInTable(strMyKey As String)
    Dim db As DAO.Database
    Dim strSQL As String
    Debug.Print "Entering sub"
    
    Set db = CurrentDb
    ' 构造UPDATE语句，处理单引号转义避免语法错误
    strSQL = "UPDATE tempAllSrchImg_Result SET Picked = 'Picked' WHERE ImgFileA = '" & Replace(strMyKey, "'", "''") & "'"
    
    ' 执行SQL，dbFailOnError参数可在出错时抛出明确错误
    db.Execute strSQL, dbFailOnError
    Debug.Print "Updated " & db.RecordsAffected & " record(s) for: " & strMyKey

    Set db = Nothing
    Debug.Print "Exiting sub"
End Sub

原代码失效原因 #

在DAO中，rs.Filter仅设置过滤规则，不会直接修改当前Recordset的内容。必须通过rs.OpenRecordset()生成新的过滤后Recordset，才能访问符合条件的记录。原代码直接操作未过滤的原Recordset，自然只会定位到全表第一条记录。

内容的提问来源于stack exchange，提问作者M.A. Perry