Code VBA : Méthode OpenReport et Access en non visible : ShowWindow
Bonjour,
Afin de rendre mon application "plus professionnelle" j'ai rendu non visible l'interface ACCESS non visible et activé uniquement les formulaires de mon application. Ainsi, un utilisateur de mon application peut ne pas se rendre compte qu'il travaille en fait sur une base de données.
Tout marche bien sauf pour l'édition d'état avec la fonction openreport qui ne s'ouvre plus car elle est attachée à ACCESS. Pour voir le report je suis donc obligé d'activé ACCESS puis lorsque l'utilisateur ferme le report je "referme" aussi ACCESS. Cela est une rustine car pas très beau !
Voila le code pour "cacher" ACCESS mais pas mon formulaire de démarrage :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
| 'Cache le logiciel ACCESS
Call ShowWindow(Application.hWndAccessApp, 0) 'SW_HIDE
Call ShowWindow(Application.hWndAccessApp, 7) 'SW_SHOWMINNOACTIVE
'Ouvre le formulaire de démarrage
Call ShowWindow(Me.hWnd, 1) 'SW_SHOWNORMAL
Voila le code pour ouvrir mon report (état d'édition)
Set mobjReport = New Report_Fiche ' Fiche est un état créé dans ACCESS
Call ShowWindow(Application.hWndAccessApp, 3) 'SW_SHOW
Call ShowWindow(mobjReport.hWnd, 3) 'SW_MAXIMIZE
mobjReport.Visible = True |
Avez-vous une autre idée que l'API ShowWindow ?