MS Access .Movenext / .moveprevious

Question

因此，我尝试将tblReceipts变量用作记录集，该记录集可以正常工作，并且已在form_load中进行了设置，但是当我尝试在move next和移动上一个按钮中使用它时，它表示未设置该变量，似乎就像它初始化变量一样，但仅用于表单加载，而没有执行其余的代码，有没有办法公开它？

我得到的错误是：错误91，对象变量或未设置块变量

Private Sub Form_Load()

Dim tblReceipts As Recordset
Set tblReceipts = CurrentDb.OpenRecordset("SELECT * FROM [tblReceipts]", dbOpenDynaset)

tblReceipts.MoveFirst
Me.RecieptID.Value = tblReceipts![ReceiptID]
Me.RefNo.Value = tblReceipts![ReferenceNumber]
Me.TrackingID.Value = tblReceipts![TrackingNumber]
Me.CustID.Value = tblReceipts![CustomerID]
Me.CustPostcode.Value = tblReceipts![CustomerPostcode]

End Sub


Private Sub btnNext_Click()

MsgBox "There are no more records to show", vbOKOnly, "End of file"

Exit Sub

If tblReceipts.EOF Then

Else

tblReceipts.MoveNext
Me.RecieptID.Value = tblReceipts![ReceiptID]
Me.RefNo.Value = tblReceipts![ReferenceNumber]
Me.TrackingID.Value = tblReceipts![TrackingNumber]
Me.CustID.Value = tblReceipts![CustomerID]
Me.CustPostcode.Value = tblReceipts![CustomerPostcode]

End If


End Sub

感谢您的帮助，我将尽力回答任何问题。

Answer 1

我在form_load之外的选项比较数据库下有Public tblReceipts As Recordset作为Recordset

但是你也有

Dim tblReceipts As Recordset

在 Form_Load() 内部 。 局部变量的优先级高于全局变量，因此此处设置的是局部变量。

从Form_Load()删除Dim语句。