Discussion :

[smicky77]

Bonjour à tous,

Pour contourner mon problème de visualisation d'état que je ne peut pas passer en modal/indépendant (à priori Access2000 ne sait pas faire...), je cherche à agrandir ma fenêtre Access en plein écran et mon état maximisé au maximum.

- Je ne trouve pas comment agrandir la fenêtre Access :-(

Si vous avez des idées, merci.
Alain

[Sinclar]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Docmd.Maximize

Ca devrait t'aider

[smicky77]

Ben non, ça c'est pour maximiser l'état dans la fenêtre Access.
Mon problème c'est d'agrandir la fenêtre Access elle-même sur tout l'écran parce qu'à l'ouverture elle n'y est pas volontairement.

Merci tout de même.
Alain

[Sinclar]

Tu as certainement une bonne raison pour chercher dans cette voie, mais là j'ai beau chercher je n'en vois pas l'intérêt; ta fenêtre ACCESS dispose bien des boutons Réduire/Agrandir; et la fenêtre s'ouvre toujours en plein écran sur mon PC, j'ai mis un bout de code pour virer la barre de menu standard c'est tout; je suis curieux de voir les réponses des modos là dessus...

[smicky77]

La bonne raison, c'est que dès le départ de mon appli, la fenêtre est réduite au minimum et la navigation se fait par des formulaires en mode modal et indépendant.

Par contre je me heurte maintenant à la visualisation des états, et dans ce cas il faut que j'agrandisse la fenêtre Access car les états n'ont pas la propriété modal et indépendant (Access 2000)

Voili, voilou.
Alain

[Tofalu]

Je pense que tu trouveras des pistes ici :
http://access.developpez.com/sources...rms#PleinEcran

Tu y verra notamment des fonctions de l'api windows afin de redimensionner la fenetre Access

[smicky77]

Oui merci Tofalu, j'avais déjà vu cette solution. (de toi d'ailleurs )

Je ne sais pas si je finirai par utiliser cette solution, pour l'instant, je cherchais plutôt un truc du genre "do.cmd maximize" mais pour la fenêtre Access.

Alain

[Faw]

Jamais testé dans ce sens mais essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunCommand acCmdAppMaximize

Ja ne sais pas non plus si ton form doit être en mode
Indépendant comme pour DoCmd.RunCommand acCmdAppMinimize

[Tofalu]

L'API ShowWindow pourrait suffir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_MAXIMIZE = 3
 
Sub agrandir()
ShowWindow Application.hWndAccessApp, SW_MAXIMIZE
End Sub

[Faw]

Pour en revenir au problème de l'état Modal/Indépendant

Pour contourner mon problème de visualisation d'état que je ne peut pas passer en modal/indépendant (à priori Access2000 ne sait pas faire...), je cherche à agrandir ma fenêtre Access en plein écran et mon état maximisé au maximum.

j'ai testé avec une base 2000 et il est tout à fait possible
de le faire.

Dans ma (petite) base (2000 convertie 2002) j'affiche
aussi mon application sans le cadre Access et les états s'affichent
bien en preview.

[smicky77]

Pour en revenir au problème de l'état Modal/Indépendant

Pour contourner mon problème de visualisation d'état que je ne peut pas passer en modal/indépendant (à priori Access2000 ne sait pas faire...), je cherche à agrandir ma fenêtre Access en plein écran et mon état maximisé au maximum.

j'ai testé avec une base 2000 et il est tout à fait possible
de le faire.

Dans ma (petite) base (2000 convertie 2002) j'affiche
aussi mon application sans le cadre Access et les états s'affichent
bien en preview.

Tu y arrives en 2000 ? Tu es sûr que ce n'est pas en 2002 ? Personnellement je ne trouve pas du tout ces propriétés, tu es passé par le code ?
J'aimerai bien que tu me retrouves ça.

Merci d'avance
Alain

[smicky77]

Jamais testé dans ce sens mais essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunCommand acCmdAppMaximize

Cette commande de Faw ne donne rien

Alain

[smicky77]

L'API ShowWindow pourrait suffir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_MAXIMIZE = 3
 
Sub agrandir()
ShowWindow Application.hWndAccessApp, SW_MAXIMIZE
End Sub

Là Tofalu, tu me perturbes
Ce code je le mets où ? J'ai essayé plusieurs possibilité mais j'ai des soucis.
Si tu veux bien me donner quelques précisions, merci.

Alain

[Tofalu]

Et bien tu le mets dans un module et tu appelles la sub Agrandir à l'ouverture de ton état

[smicky77]

Tofalu, tu commences à me plaire

Bien placé, ça marche bien.
Maintenant si ce n'est pas trop te demander (j'ai essayé de comprendre le code, mais là c'est trop fort pour moi )
Il faut que j'arrive de la même façon à réduire cette fenêtre à l'état initial quand je ferme mon état.

Encore merci.
Alain

[Faw]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShowWindow Application.hWndAccessApp, 0

je pense.
pour répondre à ta question c'est bien une base 2000 lue sous 2002
(Pas convertie)
Ce qui est bizarre c'est que la MacroCommande fonctionne ds le
sens Minimize (chez moi) et pas ds le sens Maximize.

pourtant cette Macro Fait appel à cette api...
:

[Steph9]

L'API ShowWindow pourrait suffir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_MAXIMIZE = 3
 
Sub agrandir()
ShowWindow Application.hWndAccessApp, SW_MAXIMIZE
End Sub

Là Tofalu, tu me perturbes
Ce code je le mets où ? J'ai essayé plusieurs possibilité mais j'ai des soucis.
Si tu veux bien me donner quelques précisions, merci.

Alain

merci bien pour ce code qui fonctionne très bien !!! Mais j'ai un problème c'est que ça fait disparaitre mon menu general... Donc j'ai ma fenetre access maximisée mais vide mon formulaire étant ouvert (laffiche dans l'onglet access de la barre des taches) mais invisible...

au secours !!!!!!!!!