[Fait]Comment afficher un état en plein écran avec un zoom ajusté ? [Trucs & Astuces]

[OtObOx]

Bonjour,

Lors d'une ouverture d'un état, je cherchais à l'afficher en plein écran, avec le zoom ajusté à la taille de l'écran au lieu du zoom à 100% comme l'état s'affiche par défaut. Il y a longtemps, j'avais posé la question ici même et personne n'avait su me répondre... La recherche dans la faq n'avait rien donné, pas plus que dans le forum Access.
Aujourd'hui, j'ai trouvé comment faire et je vous propose la solution que j'ai trouvée. Peut être trouvera t-elle sa place dans la faq ?

Je me suis servi du code de Tofalu pour simuler l'appui de la touche Z qui est le raccourci du zoom lorsque l'état est ouvert.
Voici ce que ça donne avec le code :

dans un module, mettre le code de Tofalu:

Code :

1
2
3
4
5
6
7
8
9
10
11
Public Declare Sub keybd Lib "user32" Alias "keybd_event" _
  (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long) 
 
 
Public Sub appui_touche(T as long) 
'appuie sur la touche 
keybd T, 0, 0, 0 
'relache la touche 
keybd T, 0, 2, 0 
End Sub

puis dans le module de l'état à ouvrir, mettre ça dans le code de "sur ouverture"

Code :

1
2
3
4
5
6
Private Sub Report_Open(Cancel As Integer)
'Agrandi la fenetre au maximum
DoCmd.Maximize
'Ajuste l'affichage de la page à la taille de l'écran
appui_touche (90)
End Sub

Voilà, c'était tout simple, il suffisait de le savoir
En espérant que ceci soit utile,

Jean-Marc

[FreeAccess]

Bonjour...

Lors d'une ouverture d'un état, je cherchais à l'afficher en plein écran, avec le zoom ajusté à la taille de l'écran au lieu du zoom à 100%.....

Ta solution répond certainement au problème............mais il y a plus simple.

Pour ouvrir n'importe quel état en plein écran et en mode ajusté: Fonctionne sous AC97 / AC2003

Code :

1
2
3
4
'Ouvrir Etat en mode Ajusté
DoCmd.OpenReport NomEtat, acViewPreview, , ..............
DoCmd.Maximize
DoCmd.RunCommand acCmdFitToWindow

Bonne continuation....

[OtObOx]

Héhéhé ! Comme quoi... Quand on cherche et qu'on demande, il n'y a pas de solution et puis quand on a trouvé, elles arrivent

Sauf que cette solution que j'ai essayée ce matin, ne marche pas chez moi (Access 97). J'ai un message d'erreur :

Erreur d'exécution '2046'
La commande ou l'action 'Ajuster à la fenêtre' n'est pas disponible actuellement

C'est d'ailleurs un message récurent (La commande ou l'action 'xxxxx' n'est pas disponible actuellement) que j'ai lors de l'ouverture d'un état. Par exemple, lorsque je veux remplir un champ texte indépendant ou une étiquette avec du vba. Dès fois ça marche, dès fois ça marche pas... Je déteste faire des états avec Access !!!!

Jean-Marc

[FreeAccess]

Re,

Ce code fonctionne correctement sous AC97 (testé depuis de nombreuses années....)

Pour exemple:
- crée un état (E_ESSAI)
- à partir d'un formulaire, un bouton de commande avec le code suivant...

Code :

1
2
3
4
5
6
Private Sub Commande0_Click()
'Ouvrir Etat en mode Ajusté
DoCmd.OpenReport "E_ESSAI", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdFitToWindow
End Sub

.....l'état doit être "actif" AVANT que la commande Maximize et acCmdFitToWindow ne soit exécutée......

[OtObOx]

OK A partir du formulaire, c'était là mon erreur ! Je le mettais dans l'état
Bon, alors mon super truc tombe à l'eau quoi
N'empêche, je pense que le truc devrait figurer dans la faq. Lorsque j'ai rechercher comment faire, j'ai vu dans les messages du forum que je n'étais pas le seul à chercher ça...

Merci pour le tuyau

Jean-Marc

[Nessie37]

Envoyé par FreeAccess

Re,

Ce code fonctionne correctement sous AC97 (testé depuis de nombreuses années....)

Pour exemple:
- crée un état (E_ESSAI)
- à partir d'un formulaire, un bouton de commande avec le code suivant...

Code :

.....l'état doit être "actif" AVANT que la commande Maximize et acCmdFitToWindow ne soit exécutée......

Bonjour,

Qu'entends-tu par "ACTIF" ? Car je viens de tester ta solution (je suis sous access 2003) et en fait je ne vois pas la différence entre avant le code et après. Mon état s'affiche pas en plein écran.
J'ai forcément loupé qqchose

[FreeAccess]

Bonjour.

...Qu'entends-tu par "ACTIF" ?

ACTIF = L'état doit être ouvert..... (DoCmd.Openreport....)

...de façon à ce que les commandes qui suivent s'appliquent à l'état en cours (DoCmd.Maximize et DoCmd.RunCommand acCmdFitToWindow)......

..je ne vois pas la différence entre avant le code et après.

...entre avant quoi et après quoi......là je n'ai pas compris ce que tu voulais dire.

[Nessie37]

Désolée, je me suis mal exprimée. Je voulais dire je ne vois pas la différence entre l'affichage avant que je ne mette ces codes et après que j'aie appliqué les codes