Turn off messages

[emmy]

I used this code to turn the confirmation messages back
on when you click a button named Exit on a form. I also
need to turn the messages back on if they close the
database using the X button at the top of the screen. Can
anyone tell me how to do this on exit of the entire
database?
Thanks!!!

Private Sub cmdExit_Click()
On Error GoTo Err_cmdExit_Click

Application.SetOption ("Confirm Record Changes"), True
Application.SetOption ("Confirm Document Deletions"), True
Application.SetOption ("Confirm Action Queries"), True

DoCmd.Quit

Exit_cmdExit_Click:
Exit Sub

Err_cmdExit_Click:
MsgBox Err.Description
Resume Exit_cmdExit_Click

End Sub