En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1222729 visiteurs

 13 visiteurs en ligne

Nous contacter

Contact

Taille fenêtre Access

Il arrive que l'on souhaite donner une taille précise à la fenêtre de l'application

Pour cela, collez le code ci-dessous dans un module standard que vous sauverez par exemple sous "mod_TailleApplication".

Ensuite, créez une macro "AutoExec" qui exécutera du code et appellera la fonction fn_RedimFen()

Option Compare Database
Option Explicit
'/
'/ A placer dans la partie déclarative
'/
Private Declare Function MoveWindow Lib "user32" ( _
                         ByVal hwnd As Long, ByVal x As Long, _
                         ByVal y As Long, ByVal nWidth As Long, _
                         ByVal nHeight As Long, ByVal bRepaint As Long _
                                                 ) As Long

La fonction :

Public Function fn_redimfen()
   Dim x          As Long  '// Position
   Dim y          As Long  '//   ""
   Dim nWidth     As Long  '// Dimension (hauteur) (en pixel)
   Dim nHeight    As Long  '//   ""      (largeur)
   Dim bRepaint   As Long  '// Indique si redessine(1=oui).

   '// Place la fenêtre dans le coin gauche et en haut (0,0)
   '// la redimensionne à 800 * 600 et redessine la fenêtre.
   nWidth = 800: nHeight = 600: bRepaint = 1
   MoveWindow Application.hWndAccessApp, x, y, nWidth, nHeight, bRepaint

End Function

Catégorie : - Vrac
Page lue 12356 fois
Vous êtes ici :   Accueil » Taille fenêtre Access