Runtime Error 3061 Expected 3 (1 Viewer)

I am trying to run a vba procedure. I am unable to because i get a runtime error 3061 expected 3. Here is the code with the problem. The coloured line is what needs to be debugged.


Set rs = cts.OpenRecordset(qry, dbOpenDynaset)
Do While Not rs.EOF
RawMaterial = rs!Product_Weight_lbs


rs.MoveNext
Loop

rs.Close


Any suggestions and assistance is much appreciated!

Is qry a variable with SQL or a saved query? You're running into this I suspect:

http://support.microsoft.com/default.aspx?scid=kb;en-us;209203

Another workaround is to use Eval() around each parameter in the query. If qry is a variable, you'd want to concatenate your form references.

qry is a variablw

So have you done this?

pbaldy said:

If qry is a variable, you'd want to concatenate your form references.

Click to expand...

I tried to concatenate the form references. I still get the same error. Here is the variable and the form references.


'Retrieves the rawMaterial amount in the Stageing table that is associated with the values being currently entered
'And storing it in the variable RawMaterial
ProductionDate.SetFocus
qry = "Select Product_Weight_lbs From tbl_Stageing Where Production_Date = " & ProductionDate.Text

StageID.SetFocus
qry = qry & " and Stage_ID = " & StageID.Text

ProductCondition.SetFocus
qry = qry & " and Product_Condition = " & ProductCondition.Text

ProductCategory.SetFocus
qry = qry & " and Product_Category = " & ProductCategory.Text

TrailerID.SetFocus
qry = qry & " and Trailer_ID = " & TrailerID.Text

EmployeeID.SetFocus
qry = qry & "and Employee_ID = " & EmployeeID.Text

Set rs = cts.OpenRecordset(qry, dbOpenDynaset)
Do While Not rs.EOF
RawMaterial = rs!Product_Weight_lbs

mailman26 said:

I tried to concatenate the form references. I still get the same error. Here is the variable and the form references.


'Retrieves the rawMaterial amount in the Stageing table that is associated with the values being currently entered
'And storing it in the variable RawMaterial
ProductionDate.SetFocus
qry = "Select Product_Weight_lbs From tbl_Stageing Where Production_Date = " & ProductionDate.Text

StageID.SetFocus
qry = qry & " and Stage_ID = " & StageID.Text

ProductCondition.SetFocus
qry = qry & " and Product_Condition = " & ProductCondition.Text

ProductCategory.SetFocus
qry = qry & " and Product_Category = " & ProductCategory.Text

TrailerID.SetFocus
qry = qry & " and Trailer_ID = " & TrailerID.Text

EmployeeID.SetFocus
qry = qry & "and Employee_ID = " & EmployeeID.Text

Set rs = cts.OpenRecordset(qry, dbOpenDynaset)
Do While Not rs.EOF
RawMaterial = rs!Product_Weight_lbs

Click to expand...

Without any additional information, the following information would normally be made regarding the DataTypes of Fields in your Query:

Production_Date: Date/Time
Stage_ID: Number
ProductCondition: Text
ProductCategory: Text
TrailerID: Number
EmployeeID: Number

Your Text Fields are not formatted like they are Text Fields, and there is no gaurantee that they will work. Text Fields need to be Surrounded by Quotes:

(qry = qry & " and Trailer_ID = '" & TrailerID.Text & "'").

You may also find this helpful:

http://www.baldyweb.com/ImmediateWindow.htm