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

 1218221 visiteurs

 6 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 : Les mémos - Vrac
Page lue 6951 fois

Vous êtes ici :   Accueil » Inhiber le bouton de sortie