如何使用DAO更新Recordset？基于双条件更新rs2遇异常求助

先聊聊你代码里的核心问题：你用了两层嵌套循环，每次遍历一条rs1的记录，就把整个rs2从头遍历一遍更新一遍。这会导致最后一条rs1的记录直接覆盖掉之前所有rs2的修改——比如如果最后一条rs1的UserName和rs2里的记录都不匹配，那所有rs2的Payment都会被设为0，这就是你看到所有值都是£0.00的原因。而且你每次循环都先执行rs2.Edit，不管条件是否满足，既浪费资源也容易引发意外。

优化后的VBA代码 #

我们换个更合理的逻辑：遍历rs2的每条记录，去rs1里查找对应UserName的记录，找到就更新Payment，找不到就设为0。同时给rs1的UserName字段加个索引（如果还没加的话），能大幅提升查找速度：

Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim strFind As String

' 打开rs1时指定索引（如果UserName是索引字段，没有的话先在表设计里添加）
Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM tblUsers", dbOpenDynaset)
rs1.Index = "UserName" ' 替换成你实际的索引名称，主键/唯一索引最佳

Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM tblFunding", dbOpenDynaset)

Do Until rs2.EOF
    rs2.Edit
    ' 处理单引号转义，避免查找时出错
    strFind = "UserName = '" & Replace(rs2![UserName], "'", "''") & "'"
    rs1.FindFirst strFind
    
    If Not rs1.NoMatch Then
        ' 找到匹配的UserName，赋值Payment
        rs2![Payment] = rs1![Payment]
    Else
        ' 无匹配记录，设为0
        rs2![Payment] = 0
    End If
    rs2.Update
    rs2.MoveNext
Loop

' 清理资源
rs1.Close
rs2.Close
Set rs1 = Nothing
Set rs2 = Nothing

更高效的SQL方案 #

其实在Access里，用SQL语句更新比VBA循环高效得多，尤其是数据量大的时候。可以直接用UPDATE结合LEFT JOIN实现你的需求：

UPDATE tblFunding AS f
LEFT JOIN tblUsers AS u ON f.UserName = u.UserName
SET f.Payment = Nz(u.Payment, 0);

解释一下：LEFT JOIN会保留tblFunding的所有记录，匹配到tblUsers的就用u.Payment，没匹配到的Nz函数会把Null转换成0，完美符合你的需求。你可以直接在查询设计里运行这个SQL，或者在VBA里用CurrentDb.Execute执行。

关于最后一条记录错误的原因 #

除了覆盖问题，原来的循环在最后一次rs1遍历完后，rs2已经到EOF位置，指针异常会导致最后一条记录的更新逻辑出错，优化后的逻辑完全避免了这个问题。

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