Définir Largeur Formulaire et état

Question

Bonjour,

Je travaille sous Access 2003 et je souhaite définir la largeur et la hauteur de mes formulaires, ou de mes états à l'ouverture de ces derniers avec le code suivant (dans le cas d'un état)  :
Reports!MON_ETAT.WindowWidth = 10206
Ce code déclenche imanquablement l'erreur suivante :
"Erreur d'exécution 2135"
"Cette propriété est en lecture seule, impossible de la définir"
Pourtant, l'aide d'access concernant cette propriété (WindowWith) m'indique qu'elle est accessible par macro ou par VBA.
Dans le meme genre de soucis, je cherche à définir la valeur du zoom d'un état lors de l'ouverture, mais là je n'ai pas trouvé de propriété le permettant.

Merci d'avance et bon weekend
Chris25

CarSoftAja · Answer

Il existe une fonction toute simple qui est DoCmd.MoveSize Droite,bas,largeur ,hauteur
Cette fonction permet de déplacer et/ou déterminer la taille d'une fenêtre

Exemple pour ouvrir un état "Customer" dans une fenêtre de 10cm x 10cm sur clic d'un bouton BTN1 se touvant dans un formulaire

Private Sub BTN1_Click()
    Dim stDocName As String



    stDocName = "Customers"
    DoCmd.OpenReport stDocName, acPreview
    'Ne pas déplacer l'état, mais l'ouvrir dans une fenêtre de 10cm x 10
    'Rappel 1 cm = 567 twips
    DoCmd.MoveSize 0, 0, 10 * 567, 10 * 567 
    'Pour le zoom, utiliser les constantes prédéfinies de Access
    'acCmdZoom10,acCmdZoom100,acCmdZoom50,acCmdZoom25,etc,,,
    'Par exemple pour 50%
    DoCmd.RunCommand acCmdZoom50
End sub

Définir Largeur Formulaire et état

1 réponse

Votre réponse

Discussions similaires