Discussion :

[Anthonydu62]

Bonjour à toutes et tous.
Voila sur ma base, j'ai un vba qui fait afficher plusieurs état les un derrière les autres tous les 10 secondes.
Exemple: Affichage Etat1=>tempo=>Fermeture Etat1=>Affichage Etat2=>tempo=>Fermeture Etat2
Pour cela c'est OK.
Par contre si j'ai un état qui comporte plusieurs pages, comment je peux faire pour que ces autres pages s'affichent.

Exemple: Affichage Etat1=>tempo=>Fermeture Etat1=>Affichage Etat2(1)=>tempo=>Fermeture Etat2(1)=>Affichage Etat2(2).........
Dans cette exemple, l'état 2 a 2 pages, mais il pourrait y en avoir x page.

Donc comment faire afficher un état avec plusieurs page?

[User]

Bonjour,

Si vous souhaitez faire défiler les x pages, les unes après les autres alors une solution serait d'utiliser la commande SendKeys "{PgDn}", True exécutée sur l'événement minuterie d'un formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Compare Database
Option Explicit
 
Dim indPage As Long ' Déclaration de la variable d'indice au niveau du module du formulaire
 
Private Sub Form_Open(Cancel As Integer)
indPage = 1 ' initialisation du numéro de page par exemple sur ouverture du formulaire avec timer
End Sub
 
Private Sub Form_Timer() ' Exécution de la routine sur l'événement Timer (réglage aussi de l'intervalle sur minuterie)    
 
    If indPage <= 4 Then
        DoCmd.OpenReport "Etat1", acViewPreview ' ouvre l'état sur page n°1
        If indPage > 1 Then ' si page d'indice supérieur à 1
            SendKeys "{PgDn}", True ' passe à la page d'indice indpage
        End If
        indPage = indPage + 1 ' indice de page suivant
    Else
        DoCmd.Close acReport, "Etat1" ' ferme l'état si déjà ouvert
    End If
 
End Sub

Cdlt,

[Thierry_PALLIER]

Bonjour et bonne année à tous.

Le problème avec SendKeys, c'est qu'il provoque des effets "pervers".
Par exemple avec le SendKeys "{PgDn}" et "PgDn", celà fait sauter le verrouillage numérique (sur le clavier).
Cdlt

[User]

Bonjour et bonne année à tous.

Le problème avec SendKeys, c'est qu'il provoque des effets "pervers".
Par exemple avec le SendKeys "{PgDn}" et "PgDn", celà fait sauter le verrouillage numérique (sur le clavier).
Cdlt

Bonjour et merci

Oui je dois vous avouer que pour le verrouillage numérique j'ai aussi ce souci sans avoir recours à sendkey.

Cela dit il y a aussi le moyen d'ôter ce verrouillage en VBA.

Cdlt,

[Anthonydu62]

Bonjour et merci pour votre aide.

"If indPage <= 4 Then"
Je cherche à comprendre lorsque l'on m'aide. Et donc pourquoi le chiffre 4?

Et on fait comment pour ouvrir l'état sur la page 2?

Dès que j'aurais testé je reviens vers vous?
Cordialement
Anthony

[User]

Bonjour,

Le chiffre 4 c'est le nombre de pages à faire défiler dans votre état.

Ensuite, si au début vous souhaitez vous positionner directement sur la page 2, alors il faut ôter le if indPage>1, pour faire un page down aussi au début :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Timer() ' Exécution de la routine sur l'événement Timer (réglage aussi de l'intervalle sur minuterie)    
 
    If indPage <= 4 Then
        DoCmd.OpenReport "Etat1", acViewPreview ' ouvre l'état sur page n°1
        SendKeys "{PgDn}", True ' passe à la page d'indice indpage
        indPage = indPage + 1 ' indice de page suivant
    Else
        DoCmd.Close acReport, "Etat1" ' ferme l'état si déjà ouvert
    End If
 
End Sub

[User]

En fait ça reviens à écrire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
DoCmd.OpenReport "Etat1", acViewPreview ' 
SendKeys "{PgDn}", True ' page 2

FONCTION d'ATTENTE

DoCmd.OpenReport "Etat1", acViewPreview ' Pour rendre l'état actif
SendKeys "{PgDn}", True ' page 3

FONCTION d'ATTENTE

DoCmd.OpenReport "Etat1", acViewPreview  ' Pour rendre l'état actif
SendKeys "{PgDn}", True ' page 4

Cdlt,