S
Steve
Hi,
Using code, I am attempting to run an Update query.
The query links my main 'tracking' table to a query that
uses a parameter to reference a form.
I get a 3061 too few parameters error, so I have attempted
to set the parameter using the QueryDef for the linked
query. I still get the error.
Can anyone help?
Cheers,
Steve.
Here is my code;
Dim qdef As QueryDef
Set qdef = db.QueryDefs(strFilter)
qdef.Parameters("forms!frmWorkflow!cmbQueue_List") =
strSelected_Queue
' User wants to update the status.
db.Execute "UPDATE " & strFilter & " INNER JOIN
tblMPR_Tracker ON " & strFilter & ".MRUN_Ref =
tblMPR_Tracker.MRUN_Ref " & _
"SET tblMPR_Tracker.Action = 'Exported to Excel',
tblMPR_Tracker.Last_Action_By = '" & Environ("UserName")
& "', " & _
"tblMPR_Tracker.Last_Action_Date = Date(), " & _
"tblMPR_Tracker.Last_Action_Time = Time();"
Using code, I am attempting to run an Update query.
The query links my main 'tracking' table to a query that
uses a parameter to reference a form.
I get a 3061 too few parameters error, so I have attempted
to set the parameter using the QueryDef for the linked
query. I still get the error.
Can anyone help?
Cheers,
Steve.
Here is my code;
Dim qdef As QueryDef
Set qdef = db.QueryDefs(strFilter)
qdef.Parameters("forms!frmWorkflow!cmbQueue_List") =
strSelected_Queue
' User wants to update the status.
db.Execute "UPDATE " & strFilter & " INNER JOIN
tblMPR_Tracker ON " & strFilter & ".MRUN_Ref =
tblMPR_Tracker.MRUN_Ref " & _
"SET tblMPR_Tracker.Action = 'Exported to Excel',
tblMPR_Tracker.Last_Action_By = '" & Environ("UserName")
& "', " & _
"tblMPR_Tracker.Last_Action_Date = Date(), " & _
"tblMPR_Tracker.Last_Action_Time = Time();"