Record locking and delete warning not working

[Emery]

Hi. I have a shared Access 03 database, and the Default Record Locking is set to "Edited Record." Also, the options are set to warn when a record is being deleted.

However,

When 2 people have the same record open, they can both make edits. I never see the circle with the slash you're supposed to see when someone already has the record open. It still displays the triangle.

Also, when I click the "delete" button on a record (delete button was made via the built in "delete record" macro you can choose when making a button), it deletes the record without asking if you really want to delete.

Any ideas why these two options don't seem to function?

thanks,

-Emery

 

[tarcona]

Did you put this code ANYWHERE in any of your forms?

DoCmd.SetWarnings False

?

If you did, you have to put:

DoCmd.SetWarnings True

I don't know...it is just a thought.

 

[Emery]

No, but I created all new buttons and used the code below, and it fixed it. Not sure why I had the problem to begin with.

Also, I noticed there is a record lock setting on each subform's properties, so I set those to edited. So now the delete is working properly, and hopefully the multiple user editing does too.

Thanks for the help.

***

If Not IsNull(Me.MedExpenseID) Then 'This simply checks for a record before prompting to delete.
Dim Msg, Style, Title, Response
Msg = "Are you sure you want to delete this expense?"
Style = vbYesNo + vbDefaultButton2
Title = "Emery's App"
Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
Else
DoCmd.CancelEvent
End If
End If