Ajouter une fonction de zoom dans un état

Généralement, vous agrandissez ou réduisez l’affichage d’un état en activant la liste déroulante Zoom de la barre d’outils Standard d’Access 95 ou 97 de Microsoft. Pour automatiser cette modification, il convient d’élaborer une fonction en VBA et de la mettre en ?”uvre dans un programme. Avec Access 97, ouvrez une base. Dans la fenêtre Base de données, cliquez sur l’onglet Modules. Activez [nouveau] et saisissez le listing ci-après. Fermez le module et enregistrez-le sous le nom ZoomEtat. Ensuite, toujours dans la fenêtre Base de données, sélectionnez l’onglet Etats. Cliquez sur [nouveau]. Choisissez EtatInstantané : Colonnes, puis, dans la liste déroulante de la fenêtre Nouvel état, optez pour une des tables de votre base de données et validez par un clic sur [ok]. Une fois l’état affiché, appuyez sur les touches + pour l’enregistrer. Baptisez-le ET_Commandes. Dans la fenêtre Base de données, choisissez l’onglet Formulaires. Dans un formulaire, ajoutez un bouton en cliquant sur l’icône correspondant dans la barre d’outils. Puis, à l’emplacement voulu, dessinez un rectangle, tout en maintenant enfoncé le bouton gauche de la souris. Si vous avez installé l’assistant Bouton de commande, cliquez sur [annuler] afin de le désactiver. Effectuez un clic droit sur le bouton que vous venez de créer et optez pour la commande Propriétés. Sélectionnez l’onglet Autres. Dans le champ Nom, saisissez BT_Zoom50. Cliquez sur l’onglet Format. Dans le champ Légende, entrez Aperçu Etat Zoom 50%. Effectuez un clic droit sur ce nouveau bouton et optez pour Créer code événement. Dans la fenêtre qui s’affiche, choisissez Générateur de code. Entre Private Sub et End Sub, saisissez :

Dim FonctionZoom as integer

Puis

FonctionZoom = PreviewAndZoomReport(“ET_Commandes”, 50)ET_Commandes désigne le nom de l’état à afficher en taille réduite. 50 représente un facteur de zoom de 50%. Pour agrandir un état, choisissez une valeur entière comprise entre 100 et 2500 et pour réduire sa taille, optez pour un nombre entre 0 et 100.Listing :
Function PreviewAndZoomReport(ReportName As String, ZoomCoeff As Integer)
On Error GoTo Error_Handler
If Not (ZoomCoeff >= 0 And ZoomCoeff <= 2500) Then
ZoomCoeff = 0
End If
With DoCmd
.OpenReport ReportName, View:=acViewPreview
.Maximize
End With
Reports(ReportName).ZoomControl = ZoomCoeff
Exit Function
Error_Handler:
MsgBox Err.Description
Resume Next
End Function