pagination

[mikekal]

How can fix the pagination in Form1

 

[CJ_London]

what is the problem? how do you replicate it?

If you are referring to the buttons across the bottom, I don't see any code to fix

 

[mikekal]

When im going to open the Form1 shows me that;

 

[Mike Krailo]

Maybe wrap square brackets around the query name in the above noted error message. You have spaces in most of you object names.

 

[arnelgp]

as advised on post #4:

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

 

[mikekal]

Thank you so much.Its working fine