OVH Cloud OVH Cloud

Bouton X de fermeture d'Access...

2 réponses
Avatar
Renée
Bonjour,

J'ai monté une application en Access XP et je veux empêcher que
l'utilisateur ferme l'application en cliquant le X de fermeture de Access
(Pas celui d'un formulaire, mais bien celui de l'application).

Connaissez-vous un moyen pour désactiver la case de fermeture de Access ou
au moins l'intercepter et empêcher qu'Access se ferme ?

C'est la même situation pour le menu système.

Merci !

Renée.

2 réponses

Avatar
3stone
Salut,

Renée
J'ai monté une application en Access XP et je veux empêcher que
l'utilisateur ferme l'application en cliquant le X de fermeture de Access
(Pas celui d'un formulaire, mais bien celui de l'application).



Va voir ici...

http://www.mvps.org/accessfr/general/gen0005.htm


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------

Avatar
Raymond
Bonjour.

Tu peux interdire de quitter l'application si tu as un formulaire chargé en
permanence tel un menu sinon en créer un pour cet usage. En même temps que
ce formulaire va interdire la fermeture d'access, il va faire quitter Access
sur ta demande à partir de n'importe quel objet.
Sur ce formulaire qui n'est utilisé que pour interdire de quitter access tu
places une case à cocher que tu nommes "FautQuitter" avec la valeur par
défaut à Faux. Tant que cette case aura la valeur Faux (False) ta base
restera en exécution et dès que cette case aura la valeur True (Vrai)
l'application se terminera.
Tu places le code suivant dans ton formulaire:

Option Compare Database
Option Explicit

Private Sub FautQuitter_AfterUpdate()
If Me.FautQuitter Then Quit
End Sub

Private Sub Form_Load()
Me.FautQuitter = False
Me.TimerInterval = 5000
DoCmd.Minimize
End Sub

Private Sub Form_Timer()
If Me.FautQuitter Then Quit
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
If Me.FautQuitter Then
Quit
Else
Cancel = True
End If
End Sub

Si tu as un menu, tu places directement ce code dans ton formulaire menu.

Pour quitter la base il suffira de lancer la fonction:
Forms("QuitterAccess").Controls("fautquitter") = True
à partir de n'importe quel autre objet ou du menu lui-même.

Tu trouveras une base exemple sur :
http://access.seneque.free.fr/bases_exemples.htm N° 40

Il faut noter qu'avec un formulaire menu ou un formulaire particulier,
l'application ne quittera pas access mais tous les formulaires ouverts à
l'instant où le bouton X de access est cliqué seront fermés et seul le menu
restera en fonctionnement. Ceci peut être dangereux si des formulaires
paramètres sont ouverts en permanence et ne testent pas la situation. dans
ce cas dans l'événement unload et après la fonction cancel = True, il faut
tester si les formulaires permanents sont toujours chargés et les recharger
au besoin.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Renée" a écrit dans le message de
news:_6y1b.4103$
Bonjour,

J'ai monté une application en Access XP et je veux empêcher que
l'utilisateur ferme l'application en cliquant le X de fermeture de Access
(Pas celui d'un formulaire, mais bien celui de l'application).

Connaissez-vous un moyen pour désactiver la case de fermeture de Access ou
au moins l'intercepter et empêcher qu'Access se ferme ?

C'est la même situation pour le menu système.

Merci !

Renée.