Too Few Parameters with Recordset pulling query from MS Access 2007

Question

I have a query (Qoff2) set up in MS ACCESS 2007 that looks like this:

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]));

And I have a module that has this code to grab the query from 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

What I want is for the recordset to do a lookup, and compare [forms]![form].[text10] to Qoff2.filenum, then list all the related fnam's into [forms]![form].test, but for some reason I can't get it to work. I get a too few paramaters error expected 1 error. It works just fine when I run the query inside access and have the form open. I get an error of too few parameters when I run the module in vba and it highlights Set rs = qdf.OpenRecordset.

Gustav · Accepted Answer · 2015-03-13 22:55:34Z

0

You need to specify the parameter:

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

answered Mar 13, 2015 at 22:55

Gustav

56.3k7 gold badges33 silver badges65 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

epv Over a year ago

that works great, except I have another issue that I will have to post now.

Collectives™ on Stack Overflow

Too Few Parameters with Recordset pulling query from MS Access 2007

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related