Update function not working

[BigLouie]

I am trying to update records in a table. The code I have created returns two errors. One that "UPDATE" is not defined and an Expected ) referencing "In". Here is the code. ANy help is greatly appreciated.

Function Cost()

Update ARInvoice
Set [ARInvoice]![SOUnitCost] = [ARInvoice]![SOUnitCost] * 1.06
WHERE ((([ARInvoice]![LineType]) = "1") And Not(([ARInvoice]![SOItemNumber]) In ("SV-PATROLIR","SV-PATROLIR-9","SV-PATROLIR-Q","SV-PATROLIR-Q9","SV-PATROLIR-B2","SV-PATROLIER-B2-9","SV-PATROLIR-VSK","SV-PATROLIR-HSK")))

End Function

 

[MajP]

Is that supposed to be VBA, SQL or something in between?

 

[PHV]

What about this ?
Function Cost()
DoCmd.RunSQL "UPDATE ARInvoice Set SOUnitCost=SOUnitCost * 1.06 WHERE LineType='1' AND NOT(SOItemNumber In ('SV-PATROLIR','SV-PATROLIR-9','SV-PATROLIR-Q','SV-PATROLIR-Q9','SV-PATROLIR-B2','SV-PATROLIER-B2-9','SV-PATROLIR-VSK','SV-PATROLIR-HSK'))"
End Function

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886