Access VBA遍历DAO记录集数组时出现‘对象必需’运行时错误

问题根源 #

你遇到的“对象必需”错误，本质是VBA的Array()函数返回的Variant数组在For Each循环中，无法正确维持DAO.Recordset对象的引用关系——虽然你在类初始化时已经正确打开了记录集，但当把它们放进Array()后，循环中的rst变量可能没有正确绑定到原对象，导致调用MoveFirst时对象引用失效。

另外代码里还有两个隐藏问题：

• 用rst.Name判断记录集是错误的：rst.Name返回的是记录集对应的表名/查询名，不是你定义的变量名（比如rstRechenwerte），所以Select Case永远不会匹配到你写的变量名。
• 尝试Set rst = rst.OpenRecordset()完全没必要，因为你初始化时已经打开了记录集，重复调用会导致错误。

修复步骤 #

1. 改用索引循环遍历记录集数组 #

放弃For Each，改用索引循环，直接操作数组中的每个元素，避免Variant类型转换导致的引用丢失：

' 先定义Variant数组存储记录集
Dim rsArray As Variant
rsArray = Array(rstRechenwerte, rstZwischenwerte, rstZutaten)

' 用索引循环遍历
Dim i As Integer
For i = LBound(rsArray) To UBound(rsArray)
    Dim rst As DAO.Recordset
    Set rst = rsArray(i) ' 显式绑定对象引用
    
    ' 先检查记录集是否有效
    If rst Is Nothing Then
        MsgBox "记录集初始化失败！", vbCritical
        Exit For
    End If
    
    ' 重置记录集指针（空记录集调用MoveFirst会报错，先判断）
    If Not rst.BOF And Not rst.EOF Then rst.MoveFirst
    
    If Not rst.EOF Then
        Do Until rst.EOF
            xlCell = rst!xlCell
            xlSheet.Range(xlCell).Value = rst.Fields(1)
            If rst.Fields.Count > 2 Then
                xlFormula = rst!xlFormula
                xlSheet.Range(xlCell).Offset(0, 1).Formula = xlFormula
                xlSheet.Range(xlCell).Offset(0, 1).Value = xlSheet.Range(xlCell).Offset(0, 1).Value
            Else
                ' 注意：Fields索引从0开始，确认字段数量足够再访问
                xlSheet.Range(xlCell).Offset(0, 1).Value = rst.Fields(2)
            End If
            rst.MoveNext
        Loop
    Else
        ' 根据数组索引判断是哪个记录集
        Select Case i
            Case 0
                MsgBox "Error: Keine Rechenwerte vorhanden!", vbCritical
            Case 1
                MsgBox "Error: Keine Zwischenwerte vorhanden!", vbCritical
            Case 2
                MsgBox "Error: Keine Zutaten vorhanden!", vbCritical
        End Select
    End If
Next i

2. 确保记录集初始化的可靠性 #

在类初始化时，给每个记录集添加错误检查，避免因为查询无结果或权限问题导致记录集为Nothing：

' 类初始化中修改记录集打开代码
Set rstRechenwerte = CurrentDb.OpenRecordset("SELECT Rechenwert, WertBezeichnung, XLCell FROM tblRechenwerte WHERE RechengruppeID = " & RechengruppeID)
If rstRechenwerte Is Nothing Then
    MsgBox "初始化rstRechenwerte失败！", vbCritical
End If

Set rstZwischenwerte = CurrentDb.OpenRecordset("SELECT ZWBezeichnung, XLFormula, XLCell FROM tblZwischenwerte WHERE RezeptID = " & RezeptID)
If rstZwischenwerte Is Nothing Then
    MsgBox "初始化rstZwischenwerte失败！", vbCritical
End If

Set rstZutaten = CurrentDb.OpenRecordset("SELECT Zutat, XLFormula, XLCell FROM tblZutaten WHERE RezeptID = " & RezeptID)
If rstZutaten Is Nothing Then
    MsgBox "初始化rstZutaten失败！", vbCritical
End If

3. 修正记录集空值判断逻辑 #

原代码中If Not rsRes.EOF Then Call ClearTableOnClose(...)逻辑错误：空记录集的EOF为True，Not rsRes.EOF为False，会跳过清空操作。建议改成直接调用清空，不管表中是否有数据：

' 不管记录集是否有数据，直接清空表
Call ClearTableOnClose("tblTempResults")
Call ClearTableOnClose("tblTempZwischenwerte")

关键知识点 #

• VBA中Array()返回的是Variant类型数组，直接用For Each遍历DAO对象时，可能会因为类型隐式转换导致对象引用丢失，改用索引循环并显式Set对象可以避免这个问题。
• DAO.Recordset的Name属性是数据源的名称，不是变量名，区分不同记录集要靠数组索引、自定义标签等方式。
• 操作记录集前必须确认对象不为Nothing，且指针位置正确（空记录集调用MoveFirst会报错，需先判断BOF和EOF）。

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