docmd.setwarnings false isn't working...

[natural]

Good Afternoon

I have an option grou[ and on the after update i would like to provide the user with a msgbox, and then action

placed my docmd.setwarnings false everywhere, but i still get my "record has been deleted".

Is i possilbe to please assist in where i am going wrong

Private Sub RecOffLet_AfterUpdate()
On Error GoTo Err_Handler

DoCmd.SetWarnings False

Dim nResponse As Integer

If Me.RecOffLet = -1 Then

nResponse = MsgBox("Would You Like to Move The Candiate to The Eployment Table", vbYesNo + vbQuestion, "Question")

If nResponse = vbYes Then


DoCmd.RunSQL ("INSERT INTO tblEmpInfo SELECT * FROM TblOffer " & _
"Where ID = Forms!frmOffer!ID;")


DoCmd.RunSQL ("DELETE * FROM TblOffer " & _
"Where ID = Forms!frmOffer!ID;")

DoCmd.SetWarnings False



Forms!FrmOffer.Requery

DoCmd.SetWarnings False

'End If
DoCmd.SetWarnings False


Exit_RecOffLet_AfterUpdate:
Exit Sub

Err_Handler:
MsgBox Err.Description
Resume Exit_RecOffLet_AfterUpdate
End If
'End If
End If

[Stewart Ross]

Hi. There is no need for the profusion of DoCmd SetWarnings False. Once is enough - and you should turn them on again by placing DoCmd SetWarnings True after the last action statement has run.

You are confusing the warnings - which are the user messages asking for confirmation before commitment of action queries such as insert or delete - and what happens when you delete the current record showing on a form. If SetWarnings False was not functioning you would be asked for confirmation of your Insert and your Delete.

This is nothing to do with what happens if you delete through code (or by the actions of another user) the current record displayed on your user form. As that record no longer exists, on refresh Access has to let you know that it has been deleted. This is not a warning message as such - its an indication that the record it was displaying no longer exists, and you can't fault Access for letting you know!

Problem is that you may not have thought through what you want to show your user in these circumstances; do you go back to the first record, or show the next one, or what? If you want to show the record you have just deleted, you need to rethink the deletion part altogether.

-Stewart

ps you need to sort out your IF... END IF structure. The end if's lie outside of the main body of the SUB for some reason and seem to encompass your error handler, which is normally at the very end of the code on its own.