Fechar aplicativo Access pelo botão "X" ou pelo seu botão personalizado.
Com este código, ao fecha seu aplicativo pelo botão Sair ou pelo botão "X", uma mensagem de alerta será exibida para confirmação.
'Cole o código abaixo no seu formulário principal
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Você deseja sair do aplicativo?", vbYesNo + vbQuestion, "Confirmação") = vbYes Then
Application.Quit acQuitSaveAll
Else
Cancel = True 'cancela o evento Unload do Formulário.
End If
End Sub
Private Sub Form_Close()
DoCmd.Quit
End Sub
'Observação:
'Caso tenha um botão "Sair" no seu formulário,cole o seguinte código no evento deste botão:
Private Sub Cmd_Sair_Click()
On Error Resume Next
DoCmd.Close
End Sub