Discussion :

[jacou]

Bonjour,

Cette question concerne deux objets Access:
1. rptEtat
2. frmChoiceDialog

J'ai un formulaire "frmChoiceDialog" ouvert en mode DIALOG par l'évènement Fermeture d'un état "rptEtat" afin de faire un choix par utilisateur:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Report_close()
'...
'
' ouvrir un dialog pour un choix:
'
  DoCmd.OpenForm "frmChoiceDialog", acNormal, "", "",  acFormPropertySettings, acDialog, Null
'...
'
End Sub

Quand rptEtat est ouvert, et je quitte Access.Application() au lieu d'abord de fermer l'état, ce qui provoque la fermeture de l'état, qui à son tour ouvre le formulaire frmChoiceDialog comme prévu par Report_Close().

Le problème est que, ce formulaire (frmChoiceDialog) demeure ouvert à jamais sans pouvoir accepter aucun clic de souris, ni touche clavier: on ne peut plus le fermer. Ainsi, Access demeure ouvert, on ne peut plus le quitter.

La seule solution reste alors taskmgr.exe pour supprimer le processus msaccess.exe.

Avez-vous le même problème, et une solution SVP ?

[Demco]

Quand rptEtat est ouvert, et je quitte Access.Application() au lieu d'abord de fermer l'état

Tu peux peut-être mettre un vérification avant Access.Application() et demander à l'utilisateur de fermer l'état.

Ou alors avant de quitter Access.Application() tu vérifies si l'état est ouvert, tu le ferme et ensuite tu fermes frmChoiceDialog qui a dû s'ouvrir entre temps.

Algo :
Si rptEtat ouvert : Fermer rptEtat
Fermer frmChoiceDialog
Quitter Access.Application()

En espérant t'aider.

[jacou]

Merci de ta réponse.

En fait, Access.Application.Quit() est provoqué par un clic souris sur le bouton de fermeture de la fenêtre Windows Access, intentionnellement ou non. Comme il n'y a pas d'évènement Application.Quit(), je ne peux faire aucune prévision.

[Domi2]

Bonjour,

Il est possible de désactiver le x de fermeture de la fenêtre de l'application.

Regarde ici.

Domi2

[jacou]

Merci de ta proposition,
Mais j'ai essayé API::RemoveMenu(), ça n'a pas marché chez moi avec Access 2007/Windows Vista.

[Domi2]

Re,

Sorry, pas pensé à ça...

Dans la FAQ 2007, il n'y a rien de similaire ?

Domi2

[micniv]

Salut,
une suggestion: avant de lancer ton ...application.quit , lance une commande qui te fermera tous les états eventuellement ouverts :

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
 
Public Sub closeAllReports()
'M Nivet
 
    On Error GoTo Err_Section
 
    Do While Reports.Count > 0
        DoCmd.Close acReport, Reports(0).Name
    Loop
 
Exit_Section:
    Exit Sub
 
Err_Section:
    MsgBox err.Description, vbCritical, "Erreur Sub CloseAllReports"
    Resume Exit_Section
 
End Sub

[jacou]

=> micniv,

En fait je ne peux pas présentir la fermeture de l'application Access. L'expression de Application.Quit() n'est qu'un raccourci de description, elle n'est pas lancée par le code VBA. Car dans mon cas Access est quitté par un clic souris sur le bouton [x] fermer de fenêtre Windows Access. cf http://www.developpez.net/forums/sho...34&postcount=3

[micniv]

Edit : oups , je viens de lire le début du fil.
La solution propre, comme proposée plus haut est donc de désactiver (même temporairement) le bouton de fermeture d'access et d'ajouter un bon de fermeture dans ton menu ...

[jacou]

Bonjour,

Non seulement je n'arrive pas à désactiver [x] en Access 2007/
Windows Vista. Mais aussi pour l'instant il serait souhaitable d'avoir un moyen que Acess ferme même le formulaire ouvert en Mode Dialog.

Par ailleur, j'ai essayé de remplacer le Formulaire frmChoiceDialog par un MsgBox() qui est elle aussi bloquante, Access arrive bel et bien à la fermer automatiquement. Je ne comprends pas pourquoi ça ne se fait pas avec un formulaire Access utilisateur.

[micniv]

Sorry, mais je n'ai pas access 2007