runtime error 3061 too few parameters expected 1

[ASpasaro]

I've tried Literal type characters around the variable Can not get it to work:

Sub test()
Dim CustNum As Integer
Set DB = CurrentDb
Set CustomerRS = DB.OpenRecordset("tbl-customer")
 
CustNum = 20671
 
Set CustomerRS = DB.OpenRecordset("SELECT [tbl-Customer].*, [tbl-Customer].[Customer ID]FROM [tbl-Customer]WHERE [Customer ID]=CustNum")
 
CustomerName = CustomerRS![Name]
 
Debug.Print CustomerRS![Name]
 
CustomerRS.Close
 
DB.Close
 
Set DB = Nothing
End Sub

[jforbes]

My guess is there needs to be a couple spaces, one in front of FROM and another in front of WHERE:

Set CustomerRS = DB.OpenRecordset("SELECT [tbl-Customer].*, [tbl-Customer].[Customer ID]_FROM [tbl-Customer]_WHERE [Customer ID]=CustNum")

[ASpasaro]

I tested the statement by substituting a number for the variable CustNum and it works perfectly.

I am fairly certain that my problem lies after the = in the where statement : WHERE [Customer ID]=CustNum

[Rabbit]

What you're searching for right now is the string custnum. Not the value you're storing in custnum. You need to append the value of the variable, not the string.

1.Set CustomerRS = DB.OpenRecordset("SELECT [tbl-Customer].*, [tbl-Customer].[Customer ID] FROM [tbl-Customer] WHERE [Customer ID]=" & CustNum)

[ASpasaro]

Rabbit

I cannot thank you enough It worked perfectly

Thanks again
ASpasaro