Private Sub Paginate_RecordSource(ByVal lRecCount As Long, _
ByVal lRequestedPage As Long)
Dim sSQL As String
Dim lLastRec As Long
lLastRec = lRecCount - ((lRequestedPage - 1) * lRecPerPage)
sSQL = "SELECT TOP " & lRecPerPage & " Tmp1.* " & vbCrLf & _
"FROM ( " & vbCrLf & _
" SELECT TOP " & lLastRec & " [Inventory Transactions Extended].* " & vbCrLf & _
" FROM [Inventory Transactions Extended] " & vbCrLf & _
" ORDER BY TransactionID DESC " & vbCrLf & _
") AS Tmp1 " & vbCrLf & _
"ORDER BY TransactionID ASC"
Me.InventoryTransactionsExtended.Form.RecordSource = sSQL
End Sub