Access VBA循环操作Recordset时出现运行时错误3420（无效对象）

嘿，这个问题我一眼就瞅出症结所在了！你在第一次循环的With dbs块里调用了dbs.Close——这直接把数据库连接给关掉了！第二次循环时，你再尝试用这个已经关闭的dbs对象去创建QueryDef或者打开Recordset，自然就触发“无效对象或无值”的3420错误了。

除此之外，你的代码还有几个小细节需要调整，我给你梳理一下完整的修复方案：

核心问题与修复步骤 #

1. 不要在循环内关闭数据库连接：dbs.Close必须放在整个循环结束之后，循环过程中需要保持数据库连接处于打开状态，否则后续循环的数据库操作都会失效。
2. 修正变量声明：VBA里Dim sql, sql2 As String这种写法只有sql2是String类型，sql会被默认声明为Variant，最好给每个变量都明确指定类型，避免潜在的类型错误。
3. 优化对象清理逻辑：每次循环用完rs和qdf后，要及时释放对象，避免内存泄漏和对象引用混乱。
4. 简化INSERT执行方式：其实不用每次都创建QueryDef，直接用dbs.Execute执行SQL语句更简洁高效。

修复后的完整代码 #

Dim sql As String, sql2 As String
Dim x As Integer, daty As Integer
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Dim lastID As Long ' 用Long存储ID，避免自动编号值过大导致溢出

Set dbs = CurrentDb

For x = 0 To 3 ' 此处可替换为用户选择的日期范围逻辑
    ' 执行插入操作
    sql = "INSERT INTO tDzialaniaRejestracja (IdSzkolenia, TerminRozpoczecia) VALUES (" & Me.IdSzkolenia & ", '" & Format((Me.DataRozpoczecia + x), "dd.mm.yyyy") & "')"
    dbs.Execute sql, dbFailOnError ' 直接执行SQL，无需创建临时QueryDef
    
    ' 获取最后插入的自动编号ID
    sql2 = "SELECT @@IDENTITY"
    Set rs = dbs.OpenRecordset(sql2, dbOpenDynaset)
    lastID = rs.Fields(0)
    rs.Close
    Set rs = Nothing ' 及时释放Recordset对象
    
    ' 更新表单控件值
    Me.IdDzialania = lastID
    Me.ProwadzacyFirmaZewn.Value = 23
Next x

' 循环全部完成后，再关闭数据库连接并释放对象
dbs.Close
Set dbs = Nothing

额外优化建议 #

如果你想避免SQL注入风险（哪怕是内部表单，养成好习惯很重要），可以用参数化查询代替字符串拼接，这样还能省去手动格式化日期的麻烦：

sql = "INSERT INTO tDzialaniaRejestracja (IdSzkolenia, TerminRozpoczecia) VALUES (?, ?)"
Dim qdf As DAO.QueryDef
Set qdf = dbs.CreateQueryDef("", sql)
qdf.Parameters(0) = Me.IdSzkolenia
qdf.Parameters(1) = Me.DataRozpoczecia + x
qdf.Execute dbFailOnError
Set qdf = Nothing

另外，@@IDENTITY在普通Access表场景下可以正确返回最后插入的自动编号值，但如果你的表有触发器会向其他表插入数据，建议改用Scope_Identity()来获取当前作用域内的插入ID。

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