Run-time Error 3061: Too few parameters

[frispee]

Hi,

I am trying to run a query from within VBA and I am coming up with this error. Please help!

Set TACData = CurrentDb.OpenRecordset("SELECT * FROM TACWithLRB_tbl WHERE [Part Number] is not null AND [Supplier Name] = Me.SupplierName_cbx.Value AND [Destination Plant] = Me.PlantName_cbx.Value ORDER BY TACWithLRB_tbl.[Part Number];")

TACData is defined as a DAO.Recordset. Plantname_cbx and SupplierName_cbx are both combo boxes containing text values. Thanks in advance

 

[pbaldy]

You have to concatenate the form references the same way this person needed to:

http://www.access-programmers.co.uk/forums/showthread.php?t=228437

 

[frispee]

Thanks for the quick reply. However, when I changed the code as per the other person's code, I get syntax error:

Set TACData = CurrentDb.OpenRecordset("SELECT * FROM TACWithLRB_tbl WHERE [Part Number] is not null AND [Supplier Name] = '"&Me.SupplierName_cbx&"' AND [Destination Plant] = '"&Me.PlantName_cbx&"' ORDER BY TACWithLRB_tbl.[Part Number];")

Can you tell me what I am doing wrong? Thanks

 

[pbaldy]

Are there spaces around all the &? What are the data types of your fields? From the other thread you can see a numeric data type wouldn't have the single quotes around it.

 

[frispee]

Thanks a lot! That did the trick

 

[pbaldy]

Happy to help!