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

ms访问2007运行时错误3420

1 个答案: