Discussion :

[basto]

Bonjour

comment puis je controler le fait qu'un utilisateur ferme l'application via les menus windows (exemple : la petite croix rouge en haut à droite).

Ce que je souhaite, c'est explicitement lui afficher une boite de dialogue pour qu'il confirme son choix et d'annuler l'acte si c'est une erreur.

D'avance merci pour votre retour.

A+

[basto]

Je précise que j'ai déjà mis une form fantome pour capter l'evenement de fermeture mais si je ferme avec les menus windows, je n'arrive pas à afficher une boite de dialogue et imposer une validation de cet acte barbare.

Merci de votre aide
A+

[Domi2]

Bonjour,

Dans l'événement Sur libération de ton formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Unload(Cancel As Integer)
 
    If MsgBox("Voulez-vous vraiment quitter l'application ?", vbQuestion + vbYesNo + vbDefaultButton2, "Message") = vbNo Then
 
        Cancel = True
 
    End If
 
End Sub

Domi2

[basto]

Merci.

Je ne captais pas le bon évenement.

A+

[basto]

Je reviens sur cette question car la manip fonctionne correctement sauf que dans cet événement, je veux mettre à jour des infos dans la base.

Pour celà, j'ai une variable globale (module commun et global) qui me donne le nom de l'utilisateur.

Quand l'évenement est déclenché cette variable ne comporte plus du tout la bonne valeur.

L'événement upload à t il des fonctionnements particulier?

Voir la varible GNom_User dans l'exemple ci-joint.

A+

[Domi2]

Bonjour,

C'est surtout au niveau de l'organisation et de la gestion de tes événements que le problème se situe.

Dès le moment ou tu décides de quitter l'application et que tu exécutes un :

Code :

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

Application.Quit

toutes les variables sont déjà perdues.

Si tu dois exécuter du code avant la fermeture de ton application, il faut en empêcher la fermeture par la croix du menu système.

Et exécuter ton code sur l'événement Sur clic de ton bouton de sortie, avant de quitter l'application.

Domi2

[marsouin_89]

Bonjour Basto,

Pour activer et désactiver la croix rouge colle le code suivant 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
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
 
' ***********************API pour désactiver la croix rouge en haut et à droite de la fenêtre Access *********************
Private Declare Function GetSystemMenu Lib "user32" _
        (ByVal hwnd As Long, ByVal bRevert As Long) As Long
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&
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
 
Public Sub DesacFermeture()
'Désactive la croix rouge en haut et à droite de la fenêtre Access
Dim hSysMenu As Long
 
hSysMenu = GetSystemMenu(Application.hWndAccessApp, False)
RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
 
End Sub
 
 
Public Sub ReactiveFermeture()
'Réactive la croix rouge en haut et à gauche de la fenêtre Access
Dim hSysMenu As Long
hSysMenu = GetSystemMenu(Application.hWndAccessApp, True)
DrawMenuBar hSysMenu
 
End Sub

Pour désactiver la croix rouge :

Code :

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

Call DesacFermeture

Pour Réactiver la croix rouge :

Code :

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

Call ReactiveFermeture

Cordialement

Marsouin