access VBA错误代码3709

Access VBA 错误代码3709通常被称为 "记录集已关闭" (Recordset is closed) 错误。当你尝试在一个已经关闭的Recordset上执行某些操作时，例如读取或写入数据，就会遇到这个错误。Recordset在VBA中用于处理数据库查询的结果集，当它被Close()方法关闭或者其生命周期结束时，就不再可用。

例如，如果你有一个循环遍历Recordset的操作，并在循环结束后忘记了Close()，然后再次试图访问该Recordset，可能会引发此错误。修复这个问题的关键在于确保在操作完成后正确地关闭 Recordset：

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM YourTable")

' 在这里做你的处理...
For Each row In rs
    ' 操作每一行
Next row

rs.Close ' 关闭Recordset
Set rs = Nothing ' 确保释放内存

如果没有手动关闭Recordset，可以考虑在循环外部添加Close()，或者使用With语句来自动管理Recordset的关闭：

With CurrentDb.OpenRecordset("SELECT * FROM YourTable")
    For Each row In .Fields
        ' 操作每一列
    Next row
    '.Close ' 如果需要的话，仍然在这儿关闭
End With