Discussion :

[Renardo]

Bonjour a tous et meilleur voeux pour cette annee 2007
Je cherche a creer un bouton sur un formulaire pour aller sur la page d'un etat qui correspondrais tous les deux a la meme date,tout en sachant que cela doit se faire quand l'etat est ouvert (Je voudrais eviter de fermer et de reouvrir l'etat a chaque fois)
Merci d'avance et bon reveillon a tous

[=JBO=]

Bonjour,

Je ne connais aucun moyen simple de programmer l'aperçu avant impression d'un état pour afficher la page suivante (ou même la page "n").

Du côté de la programmation des objets Access, un objet Report possède bien une propriété Page en lecture/écriture... mais lui attribuer une valeur précise n'a aucun effet sur l'état affiché dans un aperçu avant impression.
Et apparemment c'est comme ça dans toutes les versions d'Access, même la récente 2007 ... Quelqu'un d'autre peut-il confirmer ?

En fait, la propriété Page ne doit pas être utilisée pour l'aperçu avant impression, mais plutôt lors du formatage de l'état.

Pour contourner le Pb, je te propose 2 pistes:

(1) Utiliser le contrôle ActiveX Snapshot Viewer
A partir de l'état, produire un fichier "snapshot" (format *.snp).
Ce fichier snapshot est ensuite visualisé et "feuilleté" grâce à un contrôle ActiveX (fourni avec Access) et que tu peux insérer dans un formulaire.

C'est une solution qui marche bien, mais elle demande pas mal de travail.
Je me souviens d'avoir lu quelques posts sur ce sujet, mais je ne sais pas où... il faut chercher .

(2) Simuler la saisie du n° de page à afficher
On peut simuler la saisie du n° de page à afficher en utilisant la fonction VBA SendKeys.

Attention ! SendKeys a une "grosse limitation".
Cette fonction simule des "envois de touches" et ne peut fonctionner que si l'aperçu de l'état est bien la fenêtre active (c'est à dire, qu'il a le focus et reçoit les événements clavier).

Je te donne le code d'une procédure VBA qui fait le boulot.
Tu peux l'insérer dans un module de code de ton projet Access.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub ReportGotoPage(oReport As Access.Report, nPage As Integer)
    Dim nPages As Integer
 
    nPages = oReport.Pages
 
    Select Case nPage
    Case Is < 1, Is > nPages
        ' impossible d'afficher cette page
    Case Else
        DoCmd.SelectObject acReport, oReport.Name, False
        SendKeys "{F5}" & nPage & "{ENTER}", True
    End Select
End Sub

Par exemple, pour afficher la page n°2 de l'état nommé "MON ETAT":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReportGotoPage Reports("MON ETAT"), 2

D'autres pistes... ?
Tu peux simuler le clic de la souris sur les boutons [Page précédente] ou [Page suivante]...

[Renardo]

Merci pour ton aide je vais etudier tes idees .