[FAQ] Ouvrir un formulaire sans ouvrir Access

[trotters213]

à tous,

Voilà une astuce que les merveilleux modo Access m'on fait découvrir aujourd'hui afin d'ouvrir un formulaire sans pour autant ouvrir Access.
Je trouve cette astuce très pratique et ça m'étonne fort qu'elle ne soit pas dans la FAQ donc voici une solution :

Avant tout : Attention lorsque vous rendez la fenêtre Access invisible, vous n'y aurais plus du tout accès donc si vous souhaitez modifier le code ce n'est plus possible donc faîtes une sauvegarde avant la manip' (du moins moi je n'arrive plus à accéder au code donc si quelqu'un de plus expérimenté pouvais confirmer ceci ).

Pour commencer, il faut que vous rendiez la fenêtre de votre formulaire indépendante et modale via les propriétés du formulaire.
Puis dans le code de votre formulaire, il faut rajouter :

Sub Form_Load()
    'Ouverture du formualire sans la fenêtre principale Access
    ShowWindow Application.hWndAccessApp, 0
End Sub
 
Private Sub Form_Close()
    'fermeture d'Access lors de la fermeture du formulaire
    Application.Quit
End Sub

Application.Quit sert à fermer Access automatiquement lors de la fermeture du formulaire sinon le processus MSACCESS.EXE tourne toujours.

En espérant que ça pourra éviter des galères à certains

[francishop]

Bonsoir,

Il ne faut pas avoir des données ultra importantes lorsqu'on joue avec ce genre de manipulation.
En tous les cas un complément genre :

Option Compare Database
'Appel API et constante pour masquage et affichage
Const SW_HIDE = 0 ' Masquer
Const SW_NORMAL = 1 ' Restaurer- afficher
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal FHCmdShow As Long) As Long

sera le bienvenue et pour avoir accés à la base sur un bouton :

ShowWindow Application.hWndAccessApp, 1

Cordialement

[trotters213]

Envoyé par francishop

Il ne faut pas avoir des données ultra importantes lorsqu'on joue avec ce genre de manipulation.

Bè typiquement dans mon projet j'ai scindé la base et l'appli donc même dans le cas où tu ne peux plus ouvrir Access et modifier ton appli, tu pourras modifier ta page et y avoir accès (c'est un plus au MDE en fait).

[mnssylvain]

bonjour j'ai essayé votre méthode qui est effectivement super esthétique...

par contre les etat ne sont plus visible. Existe t'il un moyen de visualiser quand meme les états..

merci

[domik]

bonjour,
en essayant cette méthode un msg d'erreur apparait

Erreur de compilation :
Sub ou Fonction non définie

ou ShowWindow est surligné ds le code:

Sub Form_Load()
    'Ouverture du formualire sans la fenêtre principale Access
    ShowWindow Application.hWndAccessApp, 0
End Sub

une idée ?

[domik]

C'est ok,
j'avais oublié de copier ce code ds un module...

[faressam]

Juste une Question est ce que aprés la création du module et l'intégration du Code, le rendu ça sera ça : http://access.developpez.com/faq/?pa...ce#AffBarrMenu

si c'est le Cas, ça vaut peut être la peinne de passer sans code ?..?

[Bastien95]

Bonjour,

Voilà je suis tout nouveau dans access et votre sujet m'intéresse bcp. Ton code doit être mis dans la partie du formulaire que l'on affiche dès le début c'est bien cela? C'est bien dans une procédure évènementielle?

Comme Domik j'ai eu la même erreur. Alors j'ai rajouté le bout de code qu'il manquait mais j'ai toujours un problème.

Peut être je ne place pas le code au bon endroit. Si vous pouviez me guider ça serait super sympa.

Merci

[domik]

Bonjour Bastien95,
le code qu'il me manquait , est à copier dans un module : c'est celui ci

'Déclaration API
 Const SW_HIDE = 0             'Hide the window.
  Const SW_MAXIMIZE = 3         'Maximize the window.
  Const SW_MINIMIZE = 6         'Minimize the window.
  Const SW_RESTORE = 9          'Restore the window (not maximized nor minimized).
  Const SW_SHOW = 5             'Show the window.
  Const SW_SHOWMAXIMIZED = 3    'Show the window maximized.
  Const SW_SHOWMINIMIZED = 2    'Show the window minimized.
  Const SW_SHOWMINNOACTIVE = 7  'Show the window minimized but do not activate it.
  Const SW_SHOWNA = 8           'Show the window in its current state but do not activate it.
  Const SW_SHOWNOACTIVATE = 4   'Show the window in its most recent size and position but do not activate it.
  Const SW_SHOWNORMAL = 1       'Show the window and activate it (as usual).
  
  Public Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
 
 
'minimise la fenetre access et active le formulaire
Function Fenetre_Modale(pForm As Form)
  ShowWindow Application.hWndAccessApp, SW_HIDE
  ShowWindow pForm.hWnd, SW_SHOWNORMAL
  ShowWindow Application.hWndAccessApp, SW_SHOWMINNOACTIVE
End Function

[Bastien95]

Merci d'avoir répondu aussi rapidement. Je vais tester de suite. Mais il faut bien mettre le code dans la partie évênementielle de mon formulaire, c'est bien ça?

[Bastien95]

Donc voilà j'ai rajouté tout le code que tu m'as donné. Ce code je l'ai mis dans le fichier où il y a toute les procédures évênementielles de mon formulaire. Mon formulaire s'appelle Form_Menu et pour la procédure évênementielle load je fais appel à la fonction Fenetre_Modale Forms![Form_Menu].

Malheureusement, j'ai toujours un souci. Forcément je dois mal placer mon code, je ne vois que ça.

[Bastien95]

Voilà après quelques heures de persévérence j'ai enfin réussi.

Merci pour ton aide.