記錄集參數太少，無法從MS Access 2007中提取查詢

Question

我在MS ACCESS 2007中設置了一個查詢（Qoff2），如下所示：

SELECT off.FNAM, inc.RECEIVED_DT,
inc.FILENUM
FROM (INC LEFT JOIN AIO ON INC.INCNUM = AIO.INCNUM) LEFT JOIN OFF ON AIO.OFFNUM = off.OFFNUM 
WHERE ((inc.ID)=[forms]![form].[text10]));

我有一個具有此代碼的模塊，可以從MS Access獲取查詢。

Public Sub OpenRecordset()

Dim qdf As QueryDef
Set qdf = CurrentDb.QueryDefs("QOff2")


Dim db As Database
Dim rs As Recordset
Dim StrBusinesses As String

Set rs = qdf.OpenRecordset
If rs.EOF And rs.BOF Then
MsgBox ("No businesses exist for this Customer")
Exit Sub
Else
rs.MoveFirst
End If
StrBusinesses = ""
Do While Not rs.EOF
StrBusinesses = StrBusinesses & rs!Fnam & ", "
rs.MoveNext
Loop

rs.Close
StrBusinesses = Left(StrBusinesses, Len(StrBusinesses) - 2)
Forms!Form.Test = StrBusinesses
Set rs = Nothing

End Sub

我想要的是對記錄集進行查找，然后將[forms]！[form]。[text10]與Qoff2.filenum進行比較，然后將所有相關的fnam列出到[forms]！[form] .test中，但需要一些我無法正常工作的原因。 我得到的參數錯誤太少，預期會有1個錯誤。 當我在access中運行查詢並打開表單時，它的工作原理很好。 在vba中運行模塊時，出現參數太少的錯誤，並突出顯示Set rs = qdf.OpenRecordset。

Answer 1

您需要指定參數：

Set qdf = CurrentDb.QueryDefs("QOff2")
qdf.Parameters(0).Value = [forms]![form]![text10]