sanders720
Programmer
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 & ");"
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
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 & ");"
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