En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1224068 visiteurs

 15 visiteurs en ligne

Nous contacter

Contact

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

Catégorie : - Vrac
Page lue 6970 fois
Vous êtes ici :   Accueil » Inhiber le bouton de sortie