ACCESS FEED: [MS_AccessPros] Error 3061 Too few parameters

Kamis, 27 Juni 2013

[MS_AccessPros] Error 3061 Too few parameters

I need some help with this error. I'm trying to update some records in a table using a button on a form and using controls on the form for parameters and data to update the records with. This form is unbound. Here is my code:

Dim db As Database, strSQL As String
Set db = CurrentDb
strSQL = "UPDATE VinMaster SET VinMaster.CustPONo = [Forms]![frmAddInvoiceDetail]![txtCustPO], " & _
"VinMaster.Mat_Labor = [Forms]![frmAddInvoiceDetail]![txtMatAndLabor], " & _
"VinMaster.FET = [Forms]![frmAddInvoiceDetail]![txtFET], " & _
"VinMaster.Freight = [Forms]![frmAddInvoiceDetail]![txtDelChg], " & _
"VinMaster.BOM = [Forms]![frmAddInvoiceDetail]![cboBOM] " & _
"WHERE (((VinMaster.[Cust ID])=[Forms]![frmAddInvoiceDetail]![cboCustomer]) " & _
"AND ((VinMaster.[Unit #]) Between [Forms]![frmAddInvoiceDetail]![cboStartNo] " & _
"And [Forms]![frmAddInvoiceDetail]![cboEndNo]));"
db.Execute strSQL, dbFailOnError
'Debug.Print strSQL
Set db = Nothing

I get Error 3061 Too few parameters expected 8.

Thanks for any help.
Doyce