ERROR 3061

[mikeba1]

I get the error 3061 when I run the following
CurrentDb.Execute "qryremovepurchaseinvoicesplplinks"

However when I run it as
DoCmd.OpenQuery "qryremovepurchaseinvoicesplplinks"

I get no errors.

The query is as follows
UPDATE PurchaseInvoices SET PurchaseInvoices.PLIPmtShedNo = Null, PurchaseInvoices.PLIPmtSchedDate = Null
WHERE (((PurchaseInvoices.PLIPmtShedNo)=[Forms]![frmPaymentSchedule]![PLPNo]));

Any ideas??

 

[dhookom]

What happens if you try:

Dim strSQL As String
[COLOR=#4E9A06]' assuming the code is running in frmPaymentSchedule and PLIPmtShedNo is numeric[/color]
strSQL = "UPDATE PurchaseInvoices SET PLIPmtShedNo = Null, PLIPmtSchedDate = Null " & _
    "WHERE PLIPmtShedNo= " & Me![PLPNo]
CurrentDb.Execute strSQL, dbFailOnError

or

Dim strSQL As String
[COLOR=#4E9A06]' assuming the code is running in frmPaymentSchedule and PLIPmtShedNo is Text[/color]
strSQL = "UPDATE PurchaseInvoices SET PLIPmtShedNo = Null, PLIPmtSchedDate = Null " & _
    "WHERE PLIPmtShedNo= """ & Me![PLPNo] & """"
CurrentDb.Execute strSQL, dbFailOnError

Duane
Hook'D on Access
MS Access MVP

 

[mikeba1]

Thanks,the first bit of code worked.
But why ?

The code looks like the query ?

 

[dhookom]

The query executed by the code I suggested didn't include a reference to a form and control name. It did include the actual value from that control. It also used dbFailOnError.

Duane
Hook'D on Access
MS Access MVP

 

[mikeba1]

Thanks Duane