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:
puis dans le module de l'état à ouvrir, mettre ça dans le code de "sur ouverture"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Voilà, c'était tout simple, il suffisait de le savoir
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
En espérant que ceci soit utile,
Jean-Marc
Partager