Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Ouvrir application access en grand

4 réponses
Avatar
Michel
Bonjour a tout le monde.

J'ai un bouton ou j'ai le le code suivant :

Set objAccess = CreateObject("Access.Application")
objAccess.RunCommand 10
With objAccess
.OpenCurrentDatabase
("W:\REPORTING\AccessEtAutres\Lipper_MorningStar_StyleResearch.mdb")
End With
Set objAccess = Nothing

Cela m'ouvre correctement mon fichier access et m'ouvre ma form en grand
(Maximize) dans la fenetre windows du nouveau fichier car j'ai mis le code
suivant dans ma form :

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Application.RunCommand acCmdAppMaximize
End Sub

Pouvez vous svp me dire si il existe un moyen pour que le fichier access
appelé s'ouvre en grand (maximize) comme le form lui meme ?

Merci d'avance de votre aide.

@+

Michel.

4 réponses

Avatar
chpa
Bonsoir,
Proposition : ouvrez votre base.mdb manuellement et mettez la en grand
(pleine écran) puis sauvegardez et fermez.
Access conserve la dernière configuration.

"Michel" a écrit dans le message de
news:
Bonjour a tout le monde.

J'ai un bouton ou j'ai le le code suivant :

Set objAccess = CreateObject("Access.Application")
objAccess.RunCommand 10
With objAccess
.OpenCurrentDatabase
("W:REPORTINGAccessEtAutresLipper_MorningStar_StyleResearch.mdb")
End With
Set objAccess = Nothing

Cela m'ouvre correctement mon fichier access et m'ouvre ma form en grand
(Maximize) dans la fenetre windows du nouveau fichier car j'ai mis le code
suivant dans ma form :

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Application.RunCommand acCmdAppMaximize
End Sub

Pouvez vous svp me dire si il existe un moyen pour que le fichier access
appelé s'ouvre en grand (maximize) comme le form lui meme ?

Merci d'avance de votre aide.

@+

Michel.



Avatar
Michel
merci pour la reponse,
mais j'ai essaye et.. ca ne marche pas.
Et si un utilisateur le minimise une fois... Je dois etre sur d'ouvrir a
tout les coups en grand.
Merci quan meme


"chpa" a écrit dans le message de news:

Bonsoir,
Proposition : ouvrez votre base.mdb manuellement et mettez la en grand
(pleine écran) puis sauvegardez et fermez.
Access conserve la dernière configuration.

"Michel" a écrit dans le message de
news:
Bonjour a tout le monde.

J'ai un bouton ou j'ai le le code suivant :

Set objAccess = CreateObject("Access.Application")
objAccess.RunCommand 10
With objAccess
.OpenCurrentDatabase
("W:REPORTINGAccessEtAutresLipper_MorningStar_StyleResearch.mdb")
End With
Set objAccess = Nothing

Cela m'ouvre correctement mon fichier access et m'ouvre ma form en grand
(Maximize) dans la fenetre windows du nouveau fichier car j'ai mis le
code suivant dans ma form :

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Application.RunCommand acCmdAppMaximize
End Sub

Pouvez vous svp me dire si il existe un moyen pour que le fichier access
appelé s'ouvre en grand (maximize) comme le form lui meme ?

Merci d'avance de votre aide.

@+

Michel.






Avatar
3stone
Salut,

Michel wrote:
J'ai un bouton ou j'ai le le code suivant :

Set objAccess = CreateObject("Access.Application")
objAccess.RunCommand 10
With objAccess
.OpenCurrentDatabase
("W:REPORTINGAccessEtAutresLipper_MorningStar_StyleResearch.mdb")
End With
Set objAccess = Nothing

Cela m'ouvre correctement mon fichier access et m'ouvre ma form en
grand (Maximize) dans la fenetre windows du nouveau fichier car j'ai
mis le code suivant dans ma form :

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Application.RunCommand acCmdAppMaximize
End Sub

Pouvez vous svp me dire si il existe un moyen pour que le fichier
access appelé s'ouvre en grand (maximize) comme le form lui meme ?




Il faut d'abord la rendre "visible"...

Set objAccess = CreateObject("Access.Application")
With objAccess
.OpenCurrentDatabase ("W:...LaBase.mdb")
.Visible = True
.DoCmd.RunCommand acCmdAppMaximize
End With
Set objAccess = Nothing

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
Michel
bonjour,

un tres grand merci, c'est exactement ce que je voulais....

@+

Michel.


"3stone" a écrit dans le message de news:
%23pjsw$
Salut,

Michel wrote:
J'ai un bouton ou j'ai le le code suivant :

Set objAccess = CreateObject("Access.Application")
objAccess.RunCommand 10
With objAccess
.OpenCurrentDatabase
("W:REPORTINGAccessEtAutresLipper_MorningStar_StyleResearch.mdb")
End With
Set objAccess = Nothing

Cela m'ouvre correctement mon fichier access et m'ouvre ma form en
grand (Maximize) dans la fenetre windows du nouveau fichier car j'ai
mis le code suivant dans ma form :

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Application.RunCommand acCmdAppMaximize
End Sub

Pouvez vous svp me dire si il existe un moyen pour que le fichier
access appelé s'ouvre en grand (maximize) comme le form lui meme ?




Il faut d'abord la rendre "visible"...

Set objAccess = CreateObject("Access.Application")
With objAccess
.OpenCurrentDatabase ("W:...LaBase.mdb")
.Visible = True
.DoCmd.RunCommand acCmdAppMaximize
End With
Set objAccess = Nothing

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)