Salut
Je pense que je me suis mélangé les Pinceaux.
Est ce qu'on peut refaire étape par étape, car dans le Forum il y'a plein de Topic qui parle de la même chose, ouvrir ces Formulaire et naviguer entre Formulaire sans pour autant ouvrir Acces.
Alors si je comprends bien :
Etape 1 : Mettre le Code Suivant dans un Module: Nom Module1
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| '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 |
Etape 2 : Mettre le Code Suivant dans le formulaire de démarrage (le formulaire qu'on a lors de l'ouverture de l'application qui contient tous les menus: Nom Formulaire1 :
1 2 3 4 5 6 7 8 9
| Private 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 |
Et aprés ça on ouvre notre Bdd avec double Clic, et on a sur l'écran un Formulaire de Démmarge seulement sans l'ouverture d'access au Premier Plan.
Hors même si j'ai fait exactement ça, ça ne marche pas, c'est vrai que Access ne se montre pas à l'écran mais non plus le Formulaire1, je suis
obligé de faire "Shifte + Entrée" Pour que ça s'ouvre.
Merci de me dire ce qu'il ne va pas dans ma démarche
Partager