vba - 仅在第二次运行时发出

Question

我为分析标准溶液寄存器编写了一个标签打印机功能。我得到了一个从 sql 查询填充并包含 4 个字段的组合框。该组合显示可用的标签模板。我尝试设置默认选择，以便标签模板与瓶子尺寸相匹配。第二次使用该函数时出现运行时错误 3420。它第一次工作，看起来第二次超出范围。我试图以各种可能的方式刷新记录集。

Private Sub SettDefaultMallDueToVolyme(Volyme As Double, List As ComboBox, FildName As String)

Dim rec As DAO.Recordset
Dim i As Integer       
    For i = 0 To List.ListCount Step 1
        List = List.ItemData(i)
        Set rec = List.Recordset
       
        If Not rec Is Nothing And rec.RecordCount > 0 Then
            If Volyme <= CDbl(rec(FildName)) Then
                Exit For
            End If
        End If
        rec.Close
      Set rec = Nothing
    Next i
End Sub

Answer 1

在 Next I 之后移动 Set rec = Nothing

  End If
  rec.Close
  Next i
  Set rec = Nothing
End Sub