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

 1224832 visiteurs

 15 visiteurs en ligne

Nous contacter

Contact

Scroll automatique

Dans un formulaire en mode continu, on peut vouloir obtenir un scroll automatique "par page" d'enregistrements - dans le cas d'un affichage de résultats par exemple.

Pour cela, il suffit de mettre dans la Sub de l'événement "Interval minuterie" la valeur souhaitée.

Par exemple : 5000 (millièmes de secondes) pour obtenir un changement de "page" tous les 5 secondes.

Dans la Sub de l'événement "Sur minuterie" on écrira le code suivant :

Private Sub Form_Timer()
    Dim lStep As Long
    '// ici il faut ajuster la valeur du "pas" (lStep) et qui représente
    '// normalement le nombre d'enregistrements affichés moins un

    lStep = 20
    On Error GoTo fin_boucle

    With Me.RecordsetClone
        If Me.CurrentRecord = .RecordCount Then
            .MoveFirst
            Me.Bookmark = .Bookmark
        Else
            .Move lStep
            Me.Bookmark = .Bookmark
        End If
    End With
    Exit Sub

fin_boucle:
    With Me.RecordsetClone
        .MoveLast
        Me.Bookmark = .Bookmark
    End With

End Sub



 

Catégorie : Les mémos - Formulaires
Page lue 8906 fois
Vous êtes ici :   Accueil » Scroll automatique