Run-Time Error 3061 - Expected 1

[Kim]

Hi,

I'm trying to write code to delete a record from a table
and I keep getting the error in the subject.

All of the table fields are number fields, except
for 'Date', which is a date field, 'Item_Descrip' which is
a text field, and 'Purchase_Order_Num' which is also a
text field. I can't seem to figure out what the problem
is.

Best Regards,
Kimberly

CurrentDb.Execute _
"Delete From tbl_equipmentparts_list " & _
"Where ((tbl_equipmentparts.login_id=" & _
Forms!frm_login.Controls!cboEmployee & ") and " & _
"(tbl_equipmentparts_list.Date=" & _
Format(Forms!frm_equipmentparts.Controls!
txtdate, "\#mm/dd/yyy\#") & ") and " & _
"(tbl_equipmentparts_list.Item_Descrip='" & _
Forms!frm_equipmentparts.Controls!txtitemdesc & "')
and " & _
"(tbl_equipmentparts_list.Item_Qty=" & _
Forms!frm_equipmentparts.Controls!txtitemqty & ")
and " & _
"(tbl_equipmentparts_list.Item_Unit_Cost=" & _
Forms!frm_equipmentparts.Controls!txtitemcost & ")
and " & _
"(tbl_equipmentparts_list.Payment_Frm_Id=" & _
Forms!frm_equipmentparts.Controls!cbopayment & ")
and " & _
"(tbl_equipmentparts_list.Purchase_Order_Num='" & _
Forms!frm_equipmentparts.Controls!txtpo & "'))"

 

[Dan Artuso]

Hi,
Why not make life a little easier and put that awful looking string into a variable
and then Debug.Print it so you can see what it's evaluating to?

Dim strSql As String

strSql = "Delete From tbl_equipmentparts_list " & _
"Where ((tbl_equipmentparts.login_id=" & _
Forms!frm_login.Controls!cboEmployee & ") and " & _
"(tbl_equipmentparts_list.Date=" & _
Format(Forms!frm_equipmentparts.Controls! txtdate, "\#mm/dd/yyy\#") & ") and " & _
"(tbl_equipmentparts_list.Item_Descrip='" & _
Forms!frm_equipmentparts.Controls!txtitemdesc & "') and " & _
"(tbl_equipmentparts_list.Item_Qty=" & _
Forms!frm_equipmentparts.Controls!txtitemqty & ") and " & _
"(tbl_equipmentparts_list.Item_Unit_Cost=" & _
Forms!frm_equipmentparts.Controls!txtitemcost & ") and " & _
"(tbl_equipmentparts_list.Payment_Frm_Id=" & _
Forms!frm_equipmentparts.Controls!cbopayment & ") and " & _
"(tbl_equipmentparts_list.Purchase_Order_Num='" & _
Forms!frm_equipmentparts.Controls!txtpo & "'))"

Debug.Print strSql

This will almost always let you see where you've gone wrong!

HTH
Dan Artuso, MVP