OVH Cloud OVH Cloud

ALT F4

2 réponses
Avatar
yannick
Bonjour,
d'apres le post du 20/01/05 de Pierre pour desactiver le ALT F4 il faut
mettre ceci

flagClose = true
et dans un module standart
Public flagClose as boleen
puis dans l'évenement unload du form
if Not flagclose then cancel = true

Dans mon appli je n'ai pas de formulaire de demarrage j'ai simplement une
bare de menu avec un menu Quitter
Ou dois je mettre ces lignes pour que cela fonctionne ?
DANS mon menu quitter j'ai mis : flagClose = true, puis dans l'autoexec je
lance un formulaire vide avec if Not flagclose then cancel = true sur
l'evenement unload mais dans un module standart je dois mettre Public
flagClose as boleen mais cela ne fonctionne pas pour compiler.
Quelqu'un aurait-il une solution?

Merci de votre aide.

@+

Yannick

2 réponses

Avatar
Raymond [mvp]
Bonjour.

sa fonction n'est pas pour désactiver Alt-F4 mais annuler son action.
il faut obligatoirement un formulaire indépendant que tu mets à visible =
non
tu mets cet événement:
Private Sub Form_Unload(Cancel As Integer)
If Not FlagClose Then Cancel = True
End Sub

dans un module standard de n'importe quel nom tu mets:
Public FlagClose As Boolean

La touche Alt-F4 ne fermera pas access tant que tu n'auras pas mis la
variable FlagClose à True.
pour pouvoir fermer access il faut que dans une fonction, n'importe où, tu
mettes:
FlagClose = True
et si tu cliques sur la croix de fermeture ou Alt-F4 , access se fermera.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yannick" a écrit dans le message de
news:
Bonjour,
d'apres le post du 20/01/05 de Pierre pour desactiver le ALT F4 il faut
mettre ceci

flagClose = true
et dans un module standart
Public flagClose as boleen
puis dans l'évenement unload du form
if Not flagclose then cancel = true

Dans mon appli je n'ai pas de formulaire de demarrage j'ai simplement une
bare de menu avec un menu Quitter
Ou dois je mettre ces lignes pour que cela fonctionne ?
DANS mon menu quitter j'ai mis : flagClose = true, puis dans l'autoexec je
lance un formulaire vide avec if Not flagclose then cancel = true sur
l'evenement unload mais dans un module standart je dois mettre Public
flagClose as boleen mais cela ne fonctionne pas pour compiler.
Quelqu'un aurait-il une solution?

Merci de votre aide.

@+

Yannick







Avatar
yannick
Rebonjour Raymond,
cela fonctionne à merveilles.
Merci

@+

Yannick



Bonjour.

sa fonction n'est pas pour désactiver Alt-F4 mais annuler son action.
il faut obligatoirement un formulaire indépendant que tu mets à visible =
non
tu mets cet événement:
Private Sub Form_Unload(Cancel As Integer)
If Not FlagClose Then Cancel = True
End Sub

dans un module standard de n'importe quel nom tu mets:
Public FlagClose As Boolean

La touche Alt-F4 ne fermera pas access tant que tu n'auras pas mis la
variable FlagClose à True.
pour pouvoir fermer access il faut que dans une fonction, n'importe où, tu
mettes:
FlagClose = True
et si tu cliques sur la croix de fermeture ou Alt-F4 , access se fermera.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"yannick" a écrit dans le message de
news:
Bonjour,
d'apres le post du 20/01/05 de Pierre pour desactiver le ALT F4 il faut
mettre ceci

flagClose = true
et dans un module standart
Public flagClose as boleen
puis dans l'évenement unload du form
if Not flagclose then cancel = true

Dans mon appli je n'ai pas de formulaire de demarrage j'ai simplement une
bare de menu avec un menu Quitter
Ou dois je mettre ces lignes pour que cela fonctionne ?
DANS mon menu quitter j'ai mis : flagClose = true, puis dans l'autoexec je
lance un formulaire vide avec if Not flagclose then cancel = true sur
l'evenement unload mais dans un module standart je dois mettre Public
flagClose as boleen mais cela ne fonctionne pas pour compiler.
Quelqu'un aurait-il une solution?

Merci de votre aide.

@+

Yannick