אכסס - תצוגה זזה

[יששכר יעקבזון]

יש לי קובץ אכסס עם כ-100 שורות
אני מעוניין שהטופס תצוגה תזוז כל הזמן במסך ככה שיראו את כל השורות

[מלא]

@יששכר-יעקבזון
תדביק את זה באירוע פסיקת שעון של הטופס

    On Error GoTo err
    If Me.Recordset.RecordCount = 0 Then
        Exit Sub
    ElseIf Me.CurrentRecord = Me.Recordset.RecordCount Then
            DoCmd.GoToRecord , , acFirst
    Else
        DoCmd.GoToRecord , , acNext
    End If
    

err:
    Exit Sub

ותשים הגדרה של כמה שניות שאתה רוצה בקצב פסיקת שעון. (כל 1000 זה שניה)