Discussion :

[Claude40]

Bonjour,
Je cherche comment éviter ou maîtriser la fermeture intempestive d’une basse ACCESS lorsqu’elle est commandée par l’utilisateur via le bouton « fermer » de la barre de titre. J’ai prévu une fermeture via un bouton spécial qui réalise automatiquement une sauvegarde et je ne souhaite pas que l’on sorte de la base par un autre moyen (sauf Alt F4 que je ne saurais peut-être pas « piéger »).
Il s’agirait, soit de masque le bouton « fermer », soit d’exécuter une procédure personnalisée en cas de clic sur ce bouton.
Merci d’avance.

[Robert1957]

Bonjour Claude40,

Si ta question est de désactiver le X en haut à droite d'Access, la réponse est dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Compare Database
Option Explicit
 
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
 
Public Const SC_CLOSE = &HF060&
Public Const MF_BYCOMMAND = &H0&
 
Public Sub DesacFermeture()
 
    Dim hSysMenu As Long
 
    hSysMenu = GetSystemMenu(Application.hWndAccessApp, False)
    RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
 
End Sub

Tu appelles cette routine lors de l'ouverture de ton application.

Bonne journée

[Didier L]

Bonsoir,

Une autre solution est d'avoir un formulaire de "fond" toujours ouvert.
Sur libération de ce formulaire tu peux tester une variable globale afin de savoir si tu est passé ou non par ton bouton, et ainsi refuser la fermeture du formulaire et donc de ta base.
Même le "Alt F4" ne pourra fermer ta base.
Seul le kill du processus en cas de mauvaise programmation pourra fermer Access.

Le code de ton bouton pourra être le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Fermer_Click()
vbFermerOk=True
docmd.quit

Et le code sur ton formulaire de fond sera du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Form_Unload(Cancel As Integer)
    If Not vbfermerOk Then
        Cancel = True
    End If
End Sub

ou pour les puristes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Unload(Cancel As Integer)
    Cancel = Not vbfermerOk
End Sub

vbfermerOk étant une variable boolean globale déclarée dans un module

[Claude40]

Bonjour,
J'ai testé les deux et elles fonctionnent.
Mais il a fallu adapter la proposition de Robert car la fonction GetsystemMenu n'était pas déclarée et les constantes ne pouvaient pas être déclarées en "PUBLIC".
Je vais tâcher de bien cliquer le bouton "Résolu", car je me suis fais sermoner la dernière fois et j'ai un mauvais point dans mes statistiques !
Dur dur d'évoluer chez les "pros" quand on n'est qu'un amateur (éclairé j'espère !).

[Robert1957]

Bonjour Claude40, Didier L,

Erreur de ma part dans le copier/coller pour la fonction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour les contantes ça devrait fonctionner en public si tu es dans un module standard, je suis un peu surpris. J'ai plusieurs applications qui fonctionnent avec ce module et tout baigne...

Bonne journée

[Claude40]

Bonsoir Robert,
Pour la déclaration de la fonction GetSystemMenu, j'avais complété.
Pour les constantes effectivement, dans un module standard, ça marche en "PUBLIC". Mais j'avais placé le code sur l'événement "sur ouverture" d'un formulaire qui initialise des variables au début de l'application et non dans un module.
Voilà, tout est expliqué et doublement résolu.
Merci encore.