Access VBA更新现有记录并添加新记录问题求助

嘿，我来帮你排查下这个问题！你说的这种“存在就更新、不存在就新增”的逻辑（也就是咱们常说的Upsert）在Access VBA里挺常用的，但几个小细节没注意到，就会导致数据根本没写入到tblCommon里，甚至看起来毫无动静。结合你给出的代码片段，我梳理了几个最可能的问题点，还有修正后的示例代码，你可以对照着检查：

首先排查最容易踩坑的几个点 #

• 记录集打开权限不对：你打开tblCommon的时候，得确保记录集支持编辑和新增操作。如果只是用默认的dbOpenDynaset但没明确权限，或者表本身是只读状态（比如链接表没写权限），那就算你写了Update/AddNew，数据也存不进去。正确的打开方式应该加上dbEditAdd参数，确保能新增记录。
• 匹配条件写错了：你用id1作为匹配依据，那查找的时候要注意字段类型：如果id1是字符串，SQL条件必须加单引号（比如rsCommon.FindFirst "ID字段名 = '" & id1 & "'"）；如果是数字类型，就不能加引号。要是这里写错了，代码会一直认为“记录不存在”，但如果新增的时候又没正确赋值必填字段，就会悄无声息失败。
• 漏了提交更新的步骤：不管是更新还是新增记录，写完字段值后必须调用rsCommon.Update！很多人会忘记这一步，导致所有操作都停在内存里，根本没写到数据库里。要是用了事务，还要记得CommitTrans提交。
• 临时表本身没数据：先手动打开tblTempData看看，里面是不是真的有要同步的记录？如果临时表是空的，那代码当然不会给tblCommon写入任何东西。
• DAO引用没装对：打开VBA编辑器的“工具-引用”，确保勾选了Microsoft DAO x.x Object Library（比如3.6版本），要是引用错成ADO或者没引用，DAO对象的方法可能会失效。

给你一个修正后的参考代码 #

把里面的字段名替换成你实际的字段，再试试：

Dim rsTemp As DAO.Recordset
Dim rsCommon As DAO.Recordset
Dim id1 As String
Dim db As DAO.Database

' 先获取数据库对象，避免重复调用CurrentDb
Set db = CurrentDb

' 打开临时表，只读模式就够了
Set rsTemp = db.OpenRecordset("tblTempData", dbOpenSnapshot)

' 打开数据表，明确允许编辑和新增
Set rsCommon = db.OpenRecordset("tblCommon", dbOpenDynaset, dbEditAdd)

' 先检查临时表有没有数据
If Not rsTemp.EOF Then
    rsTemp.MoveFirst
    Do While Not rsTemp.EOF
        ' 从临时表获取匹配用的ID
        id1 = rsTemp!TempIDField ' 替换成你tblTempData里的ID字段名
        
        ' 在数据表中查找匹配记录
        ' 注意：如果id1是数字，就去掉单引号
        rsCommon.FindFirst "CommonIDField = '" & id1 & "'" ' 替换成你tblCommon里的匹配字段名
        
        If rsCommon.NoMatch Then
            ' 没找到匹配，新增记录
            rsCommon.AddNew
            ' 赋值匹配ID
            rsCommon!CommonIDField = id1
            ' 这里添加其他字段的赋值，比如：
            ' rsCommon!UserName = rsTemp!UserName
            ' rsCommon!CreateTime = rsTemp!CreateTime
            ' 必须调用Update提交新增
            rsCommon.Update
        Else
            ' 找到匹配，更新记录
            rsCommon.Edit
            ' 这里写要更新的字段，比如：
            ' rsCommon!UserName = rsTemp!UserName
            ' rsCommon!UpdateTime = Now()
            ' 必须调用Update提交更新
            rsCommon.Update
        End If
        
        rsTemp.MoveNext
    Loop
End If

' 别忘了关闭对象，释放内存
rsTemp.Close
rsCommon.Close
db.Close
Set rsTemp = Nothing
Set rsCommon = Nothing
Set db = Nothing

额外提醒 #

• 一定要替换代码里的TempIDField、CommonIDField还有其他字段名，改成你实际表中的字段！
• 可以加个错误处理，比如在代码开头加On Error GoTo ErrorHandler，然后在末尾写错误处理块，这样能捕获到比如字段名写错、必填字段为空这类错误，不然代码出错可能没提示，你还以为没执行。
• 如果还是不行，你可以在关键步骤加Debug.Print输出，比如输出id1的值、rsCommon.NoMatch的结果，看看哪里逻辑不对。

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