Display XX number of records per page

[cactuspete13]

I am building a small database for home use to track what movies and TV shows I have. I'm trying to make a continuous forms form that will show xx number (10-20) per page, let's say 15 for example. I'm still entering my movies into the list and I'm already over 300 movies, so having to scroll up and down is a pain. I've already built functions to sort and filter the whole list, but I'm trying to limit how many show up at a time. This is partly to make it easier to find movies but also that I like a challenge.

[NTC]

a continuous form is continuous. no way around that.

you would need to move to a report....

[rpeare]

I don't know that it's possible to create breaks in continuous forms which is what you're asking for.

Personally I wouldn't do a number of items per page, I'd set the whole form up as a search.

I should think you'd be far better off typing in a partial string and search movie titles or actors or directors for the information then displaying only the relevant results.

[amrut]

You can use the following code using two buttons
Button to PageUp -

If Me.CurrentRecord < 25 Then
        DoCmd.GoToRecord , , acFirst
    Else
        DoCmd.GoToRecord , , acPrevious, 20
    End If
Endif

Button to PageDown -

If Me.CurrentRecord + 20 > Me.Recordset.RecordCount Then
        DoCmd.GoToRecord , , acLast
    Else
        DoCmd.GoToRecord , , acNext, 20
    End If

[Missinglinq]

An extra EndIf crept into that first bit of code:

If Me.CurrentRecord < 25 Then
        DoCmd.GoToRecord , , acFirst
    Else
        DoCmd.GoToRecord , , acPrevious, 20
    End If
Endif

[cactuspete13]

Amrut: That code works perfectly, except it is shifting through 20 at a time and I'm shooting for 15 at a time. I tried adjusting the code but got lost a little. I was able to adjust the page up numbers to 25 and 15, and it works perfectly. When I tried to update the page down, numbers to 20 and 15, nothing happens when I first click on that button nothing happens, then it jumps to record 30. That pattern continues, click once and nothing happens, click again and it jumps 30 records.

I've tried sitting here with Visual Basic open and plugging in different numbers. I was able to get the previous page (page up) to work using 25 and 15, but I'm having problems with the next page (page down). I've run every combination for those two using 10, 15, 20, and 25, (for the first value I even tried 5 and 0, I just changed it to read Me.CurrentRecord > Me.Recordset.RecordCount). All I'm getting is shifting 20, 25 or 30, and either single click or having to click twice.

[amrut]

The form I used displayed 25 records hence I used 25 and 20. I have tried with all numbers changed to 15, and it is working.

If Me.CurrentRecord < 15 Then
        DoCmd.GoToRecord , , acFirst
    Else
        DoCmd.GoToRecord , , acPrevious, 15
    End If

If Me.CurrentRecord + 15 > Me.Recordset.RecordCount Then
        DoCmd.GoToRecord , , acLast
    Else
        DoCmd.GoToRecord , , acNext, 15
    End If

[cactuspete13]

Let me remove everything that you won't need and I will send you a copy of this so you can take a look.

[cactuspete13]

Database1.accdb

Attached is a dumbed down copy of the database. Trying to get the coding found on two buttons in the MovieListSubFormAll form to scroll through 15 at a time. I left 60 records in there for you to experiment with. Thanks for the assist

[azhar2006]

Hi cactuspete13
Prefer
And give your opinion

[cactuspete13]

Works like a charm, thanks. I'm going to spend the next week or two figuring out how it works, but it works, thanks. I'm guessing that as long as I have the "RowNum([Form])" column on the form, it will work on multiple forms? I'm still pretty new when it comes to working with vba.

[azhar2006]

Very good I am very happy to help you