Rendre invisible une instance d'accessRésolu

Question

Bonjour a tous,
Actuellement je cr&#233;e une instance d'access, pour appeler un mde, comme ceci :
    Set Shel = CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f1 = fso.GetFile(chemin & "\base.mde")
    Shel.Run f1.ShortPath
La base qui est appeler detient une macro autoexec qui fait l'ouverture d'un formulaire en independant et modale.
J'aurai voulu avoir a l'ecran que le formulaire (qui est pas tres grand) en rendant acces invisible.
Je ne suis pas sur qu'en faisant application.visible = false ca marche surtout que je voudrait rendre l'instance invisible a partir du programme appelant.
Je sais pas si j'ai et&#233; clair.

Phalalis · Accepted Answer

Bon on a trouv&#233; une solution qui fait ce qu'on veut aussi bien sur access 2003 que sur son runtime.
cette solution n'est peut etre pas tres propre mais fonctionne. Par contre je n'ai pas essayer ta solution, desol&#233;.
la voici
Dim BD
'd&#233;claration d'API
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'dans mon code
BD = FindWindow(vbNullString, "Micromatique_majgigax")
Call ShowWindow(BD, 0)
' Micromatique_majgigax correspond au nom de l'application mis dans les options de d&#233;marrage.
Voila ca me cache tout sauf mon formulaire.
En tout cas merci grandement de m'avoir repondu.

Phalalis · Answer

Bon apres du multiple recherche, je suis toujours pas avancer. Tout les codes me disent d'utiliser Access.Application, or cet commande n'est pas reconnu par un runtime (et oui mon prog va fonctionner sous un runtime)
J'ai donc changer d'optique et essayer de le faire avec l'api shellexecute comme ceci
ret = ShellExecute(0&, vbNullString, che & "\bdtest.mdb", "", vbNullString, 0)
Mais le dernier param&#233;tre n'a apparement pas d'influence (que je mette 0 ,1 ou 7 il m'ouvre toujours mon formulaires et la base)
Je ne sait plus comment faire.
Merci d'avance.

Tuning Max · Answer

Bonjour, je ne suis pas s&#251;r d'avoir compris ta question. Pour ma part &#224; l'ouverture de mes applications Access, j'affiche un formulaire de menu g&#233;n&#233;ral dans lequel je rajoute une ou deux commande vb pour r&#233;duire ou masquer la fen&#234;tre "base de donn&#233;es"

    DoCmd.Minimize
    DoCmd.RunCommand acCmdWindowHide

Sinon peut tu d&#233;velopper un peu plus, je verrais ce que je peux faire

Phalalis · Answer

Le souci c'est que j'ouvre une application a partir d'une autre instance d'access. Ensuite une fois que l'application est lanc&#233;, une macro s'execute qui m'ouvre un formulaire et deroule le code qui va avec.
En fait il me faudrait l'equivalent de application.visible=false, ce qui fait que access (menu, fond, barre d'etat,...) n'est pas visible alors que mon prog tourne avec seulement mon formulaire en visible.
J'espere avoir mieux expliqu&#233;, sinon dis moi sur quoi ca peche.

Tuning Max · Answer

Oui et la m&#233;thode que je t'ai donn&#233;e devrait fonctionner, il te suffit de de rajouter &#224; ta macro l'execution du code "Hidedb" par exemple et de mettre dans un module une fonction "Hidedb" contenant les param&#234;tres que tu souhaite
quelque chose du genre:

Function Hidedb()
Dim cmb As CommandBar, mnu As MenuBar
'Masque toutes les barres de commande visible (sauf menubar obligatoire)
For Each cmb In Application.CommandBars
    With cmb    If .Visible True And Not .Index 4 Then cmb.Visible = False
    End With
Next cmb
' Apr&#232;s avoir cr&#233;&#233; un menu sans rien dedans, tu l'affecte &#224; ton formulaire
Forms![Mon Formulaire].MenuBar = "Nom de mon menu"
' Minimize la fen&#234;tre database.
DoCmd.SelectObject acForm, "Menu G&#233;n&#233;ral ", True
DoCmd.Minimize
DoCmd.RunCommand acCmdWindowHide
End Function

Tuning Max · Answer

Juste une petite modification &#224; apporter sur la fin du code concernant le masquage de la barre de menu. Je l'ai &#233;crit un peu vite sans trop regarder. Apr&#232;s je me suis souvenu avoir d&#233;j&#224; fait quelque chose du genre pour une de mes appli.

Function Hidedb()
Dim cmb As CommandBar, oldMnubar, newMnubar
'Masque toutes les barres de commande visible (sauf menubar obligatoire)
For Each cmb In Application.CommandBars
    With cmb    If .Visible True And Not .Index 4 Then cmb.Visible = False
    End With
Next cmb
' Masque la barre de menus active et la remplacer par une barre de menus provisoire ancr&#233;e le long du c&#244;t&#233; droit de la fen&#234;tre de l'application et prot&#233;g&#233;e par l'utilisateur
Set oldMnubar = CommandBars.ActiveMenuBar
Set newMnubar = CommandBars.Add _
(Name:="NewMnu", Position:=msoBarRight, _
MenuBar:=True, temporary:=True)
With newMnubar
    .Visible = True
    .Protection = msoBarNoMove
End With
' Minimize la fen&#234;tre database.
DoCmd.SelectObject acForm, "Menu G&#233;n&#233;ral ", True
DoCmd.Minimize
DoCmd.RunCommand acCmdWindowHide
End Function
End Function

cocotille · Answer

Bonjour &#224; tous
Petite pr&#233;cision sur le code accept&#233; ci-dessus :
Objectif : Prog1 doit lancer Prog2
Dans Prog1 :
    Set Shel = CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f1 = fso.GetFile(chemin & "\base.mde")
    Shel.Run f1.ShortPath
Dans Prog2 :
   Dim BD
   'd&#233;claration d'API
   Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
   'dans mon code
   Function MasquerAcc()
      BD = FindWindow(vbNullString, "Micromatique_majgigax")
      Call ShowWindow(BD, 0)
   End Function
   ' Micromatique_majgigax correspond au nom de l'application mis dans les options de d&#233;marrage.
Cr&#233;ation d'une macro Autoexec qui appel la fonction MasquerAcc()
ATTENTION : cela ne fonctionne qu'avec des formulaires  Ind&#233;pendants et Modal (d&#233;sol&#233; je n'ai pas essay&#233; l'un sans l'autre)

Rendre invisible une instance d'access

7 réponses

Discussions similaires