Hi Neil,

just wrap the

if msgbox....

end if

around the code you want to run under that condition.

e.g

Private Sub QuitApplication_Click()
   On Error GoTo Err_QuitApplication_Click

   if Msgbox("Are you sure you want to
exit?",vbyesno+vbquestion,"Confirmation!")=vbyes then
      DoCmd.Quit
   end if

Exit_QuitApplication_Click:
  Exit Sub
Err_QuitApplication_Click:
   MsgBox Err.Description
   Resume Exit_QuitApplication_Click
End Sub

Does that answer your question?

you may want to try either of these as they may save you being prompted on
other issues when closing.

DoCmd.Quit acQuitSaveAll

DoCmd.Quit acQuitSaveNone