だから私はtblReceipts変数をレコードセットとして使用しようとしています.変数を初期化しますが、フォームの読み込みのみを行いますが、残りのコードは実行しません。公開する方法はありますか?
私が得るエラーは次のとおりです：エラー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
どんな質問にもお答えします。