Inhiber le bouton de sortie

Pour empêcher la sortie brutale d'Access, il est possible d'inhiber son bouton de sortie

Placer le code ci-dessous dans un module général que l'on nommera "mod_InhiberSortie", par exemple.

Option Compare Database
Option Explicit
'/
'/ A placer dans la partie déclarative
'/
Private Declare Function EnableMenuItem Lib "user32" _
        (ByVal hMenu As Long, ByVal wIDEnableItem As Long, _
         ByVal wEnable As Long) As Long

Private Declare Function GetSystemMenu Lib "user32" _
        (ByVal hWnd As Long, ByVal bRevert As Long) As Long

Les deux fonctions :

Public Function NoExitButton()
    ' Désactive le bouton de sortie d'Access, de cette façon,
    ' l'utilisateur ne pourra quitter que par votre bouton !
    Dim vReponse As Variant
    Dim vHandle As Variant

    vHandle = GetSystemMenu(Application.hWndAccessApp, False)
    vReponse = EnableMenuItem(vHandle, 6, 1025)

End Function

Public Function YesExitButton()
    ' Active le bouton de sortie d'Access
    Dim vReponse As Variant
    Dim vHandle As Variant

    vHandle = GetSystemMenu(Application.hWndAccessApp, False)
    vReponse = EnableMenuItem(vHandle, 6, 1024)

End Function