G
Guest
I am getting the following message when attempting to delete a record in my
table. I am using access as my front end and sql 2000 as the back-end. No
other users are connected to this table when running the code.
Any suggestions as to the cause are appreciated.
ERROR MESSAGE:
The Microsoft Jet database engine stopped the process because you and
another user are attempting to change the same data at the same time. (Error
3197)
MY CODE:
Set rs = DB.OpenRecordset("Select * from tbl_wo_invoice Where wo_Id = " &
Me.wo_id & " AND (wo_billing_option = 2 Or wo_billing_option = 4) And
(inv_approved = -1) And booked = 0", dbOpenDynaset, dbSeeChanges)
If rs.EOF Then
MsgBox "Cannot post expenses to this work order."
Exit Sub
Else
bPostingExpenses = True
curSellPrice = rs!wo_selling_price
rs.Delete (THIS IS WHERE I GET THE ERROR CODE)
BuildInvoice True
End If
rs.Close
table. I am using access as my front end and sql 2000 as the back-end. No
other users are connected to this table when running the code.
Any suggestions as to the cause are appreciated.
ERROR MESSAGE:
The Microsoft Jet database engine stopped the process because you and
another user are attempting to change the same data at the same time. (Error
3197)
MY CODE:
Set rs = DB.OpenRecordset("Select * from tbl_wo_invoice Where wo_Id = " &
Me.wo_id & " AND (wo_billing_option = 2 Or wo_billing_option = 4) And
(inv_approved = -1) And booked = 0", dbOpenDynaset, dbSeeChanges)
If rs.EOF Then
MsgBox "Cannot post expenses to this work order."
Exit Sub
Else
bPostingExpenses = True
curSellPrice = rs!wo_selling_price
rs.Delete (THIS IS WHERE I GET THE ERROR CODE)
BuildInvoice True
End If
rs.Close