Trouble opening recordset 1

[sanders720]

I am trying to open a recordset...

For some reason, I am getting the error "Run-time error '-2147217904 (80040e10)':
No value given for one or more required parameters.

Thanks in advance for the help!


Dim rsmax As ADODB.Recordset
Dim sqlmax As String
sqlmax = "SELECT Max(BubbleNo) as Expr1 from tblBOM WHERE (((tblBOM.JobNo) = " & JobNo & &quot);"
Set rsmax = New ADODB.Recordset
rsmax.Open sqlmax, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\deepblue\EngineeringBOM\Data\EngineeringBOM_data.mdb;Persist Security Info=False", adOpenStatic, adLockReadOnly, adCmdText

 

[IFELSETHEN]

Hi,
A couple of items to look for. Does your statement work when you hard code a job number? Is your job number field a number field or a char field?
You can shorten the statement to look like this:

sqlmax = "SELECT Max(BubbleNo) as Expr1 from tblBOM WHERE tblBOM.JobNo = " & JobNo

If JobNo is a string then it should look like this:

sqlmax = "SELECT Max(BubbleNo) as Expr1 from tblBOM WHERE tblBOM.JobNo = '" & JobNo & "'"

John

*********************
John Nyhart

http://www.nyhart.com

*********************