run-time error 3662

[daveinchicago]

run-time error 3622: You must use the dbSeeChanges option with OpenRecordset when accessing a SQL Server table that has an identity column.

I have the following code and am getting the above error. I am accessing SQL Server Tables. (this worked when using local tables)

Can anyone help? Thanks in advance...

If Not (Me.RLCatssubform1.Form.Recordset.EOF And Me.RLCatssubform1.Form.Recordset.BOF) Then
If MsgBox("Are you sure you want to Delete?", vbYesNo) = vbYes Then
CurrentDb.Execute "Delete from dbo_COMPLIANCE_RESTR_CATEG " & _
"where ID=" & Me.RLCatssubform1.Form.Recordset.Fields("ID")
Me.RLCatssubform1.Form.Requery
End If
End If

 

[daveinchicago]

I updated the code to add

dbFailOnError + dbSeeChanges

to the delete statement and it works...