Error 3061 Too Few parameters

[gopherking]

I have been reviewing through all the previously opened issues for the same error and have tried multiple suggestions in those but have not been able to get this to work for me. Below is a portion of the code that I am working with there the error occurs (isolated it to the Set recParent line). Can someone tell me what is wrong with the SELECT statement?

 
Dim db As DAO.database
Dim recParent as DAO.Recordset
 
Set db = CurrentDb
 
Set recParent = db.OpenRecordset("SELECT * FROM [PPC_Attachments] WHERE [ReqID] = " & Me.[Parent Id])

[orange]

For consistency with DAO you should say

Dim db as DAO.Database
and you must
Set db = Currentdb

Also, Parent has a contextual meaning - Parent of the current form-, but I'm not sure that that's the issue here.

[gopherking]

Sorry Orange, I forgot to add that I do have Set db = Currentdb already in my code. The Dim db as DAO.Database didn't help, still getting the same error. (I'll update my first entry ...)

[orange]

If Me.[Parent Id] is a text box containing a string, and if
[PPC_Attachments].[ReqID] is numeric, you may have an issue.

You could try

Dim mStr as string
mStr = "SELECT * FROM [PPC_Attachments] WHERE [ReqID] = " & Me.[Parent Id]

The do the
debug.print mStr to see what's really in the text string.

What is Me.[Parent id]? And why the spaces in the name?

[gopherking]

Orange,

I figured out the problem. I had the wrong field for the SQL to look at (was from another table), once I changed that, it worked with no problems.

Set recParent = db.OpenRecordset("Select * From PPC_Attachments Where RequestID = " & ParReqID)

(ParReqID is a variable used for the Me.[Parent ID] field in the code, just didn't include it originally since I couldn't even get it to work with the actual control name)

As for the Me.[Parent ID], it is a Long Integer field storing the Parent Request ID. The space in there was from some time ago and has been accepted since modifying it would require additional work on old VBA which I am trying not to get into at this time. It is something I have on the roster to clean up from the older code.

Thanks Orange!

[orange]

Glad you got it working.

A great, but simple, debugging trick is set up your SQL in a string and
Debug.print thatString to the immediate window.

You'd be surprised how many times that what's in the string isn't what was suppose to be in the string.