In a continuous form's module, I create a constant:
Code:
Option Compare Database
Option Explicit
Const cstrSQL As String = "SELECT * FROM (SELECT TOP 10 * FROM (SELECT TOP $n * FROM Table ORDER BY ID DESC) ORDER BY ID ASC) ORDER BY ID DESC;"
With a unbound combobox in form's header named cboPage, as page selector, with a value list 1,2,3... etc, I choose the page (or the group of last ten records):
Code:
Private Sub cboPage_AfterUpdate()
Me.RecordSource = Replace(cstrSQL, "$n", Me.cboPage * 10)
End Sub
I think it's working.