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