Masquer la fenêtre Access [Sources]

[Macc]

Bonjour,

Voici comment masquer la fenêtre Access et laisser votre formulaire seul à l'écran.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'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

Exemple d'appel:

Code :

1
2
3
Private Sub Form_Load()
   Fenetre_Modale Me
end sub

[Kloun]

Le formulaire doit être indépendant.

A part ça, ça fonctionne nickel

[Macc]

Merci.

[Tofalu]

Il me semble que ce code est déjà présent dans les sources.

Toutefois, il ne faut pas oublier de préciser qu'il faut que l'application soit stable et que le développeur maitrise parfaitement son code VBA sans quoi un plantage non géré provoquera l'inutilisabilité de l'application voire même une corruption totale

[anthony_rexis]

Ou faut il appeler cette fonction pour quelle le fasse pour toute l'applicaiton, sachant que j'ai plusieurs formulaire et un menu général ???

[Macc]

A l'ouverture de ton formulaire général.

[ddamien63]

Bonsoir,
je suis nouveau en programmation et ce topic m'intéresse. En effet, s'il s'agit bien de ce que j'ai compris, il permet de masquer la fenêtre bleue access et donc d'afficher le formulaire en full screen.
Seulement celle-ci s'affiche toujours chez moi.
Il faut copier ce code dans un nouveau module c'est ça? Puis l'appel dans Form_Open de mon formulaire principal?

Merci de me confirmer l'utilisation de ce code car je commence à m'arracher les cheveux.

[le horla]

voile une commande que j'ai éssayer et qui marche bien biensure le formulaire doit être indépendant

Code :

1
2
3
Private Sub Form_Load()
     DoCmd.RunCommand acCmdAppMinimize
End Sub

merci

[idiot]

Exemple d'appel:

Code :

1
2
3
Private Sub Form_Load()
   Fenetre_Modale Me
end sub

j'ai voulu ouvrir mon formulaire qui s'appel menu
Fenetre_Modale (menu)

et il me dit objet requis.

manifestement je fait mal, mais quoi?

[jpcheck]

salut,
si tu mets des parenthèses, tu dois stocker une valeur en retour... là ce n'est pas le cas, tu peux enlever les parenthèses

sauf erreur bien sûr...

[idiot]

Envoyé par jpcheck

salut,
si tu mets des parenthèses, tu dois stocker une valeur en retour... là ce n'est pas le cas, tu peux enlever les parenthèses

sauf erreur bien sûr...

si j'enlève les parenthèse alors il me dit: type d'argument byref incompatible

[jpcheck]

peut-être ceci ?

Code :

1
2
3
Private Sub Form_Load()
   Fenetre_Modale "menu"
end sub

[idiot]

Envoyé par jpcheck

peut-être ceci ?

Code :

le mesage maintenant est : incompatibilité de type

[idiot]

j'ai trouvé la synthaxe est: Fenetre_Modale Forms![menu]

[idiot]

ok c'est bon!

[faressam]

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

Code :

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 :

Code :

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

[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 ?..?

[riri2938]

Bonjour, Cela fonctionne avec un formulaire, mais j'aimerais pouvoir ensuite réafficher l'état qui est lancé par l'action sur le formulaire en mode plein écran sans passer par la création d'un *snp ou un *.pdf
En clair masquer access pour l'ouverture du form et demasquer access pour affichage de l'état

[riri2938]

Bonjour, comme je n'ai toujours pas de réponse à mon message précédent, je me dis que je n'ai peut être pas été très clair. Aussi je reformule. Puisque l'on peut faire un <<Fenetre_Modale Me>>, ne pourrait on pas faire un <<Fenetre_UnModale Me>> qui permettrait de faire réapparaître la fenêtre compléte.

[kervin]

Bonjour,

Le code repris dans cette discution fonctionne super bien, mais hélas il ne permet plus d'utiliser les filtres, tri, ... du clik droit de la souris.
Y a-t-il une possibilité de réactiver ces fonctionalités tout en utilisant ce code ??

Merci

Envoyé par Macc

Bonjour,

Voici comment masquer la fenêtre Access et laisser votre formulaire seul à l'écran.

Code :

Exemple d'appel:

Code :