Select rows to view

[mikekal]

How can make a combobo with values 1,2,3,4,5............... and when select them i can view only those rows.When select 4 i can view 4 rows.When select 7 i can view 7 rows

 

[plog]

Gonna need a bigger picture. When you select "4" which 4 rows do you expect to see? Where do you expect to see them? Have a copy of your database for reference?

 

[mikekal]

That my database.On the left combobox if select a number i can view only those lines.

 

[mikekal]

Like that

 

[pbaldy]

Generally speaking, use the value from your combo when building SQL that the form is based on. Use it with the TOP predicate and the appropriate sorting.

SELECT TOP 4 Field1, ...
FROM TableName
WHERE ...
ORDER BY ...

Getting the "4" from your combo.

 

[mikekal]

Maybe im not understand.I want to view those rows that the combobox shows.

 

[pbaldy]

If you mean that when you choose 7, you want to see 7 rows, then I'd use what I mentioned. If you mean that when you choose 7, you want to see records where a given value is 7, then perhaps:

Open a second form to the record

But based on your second picture, you want to view a quantity of rows matching the value in the combo. That's easy, but then getting the "next" 7 (or whatever value was chosen in the combo) gets trickier. I feel like I've seen that done but can't recall how offhand.

 

[MajP]

So you want to see X records per page. And the buttons up top would be what page. The only problem is you will have to write code for the correct amount of buttons. I will assume you can do the code to modify the buttons and show the correct amount of pages, and scroll pages. I did not do that part.

If you want to see page 3 where you are showing 20 records per page then
page = 3
perPage = 20
and you want to see the Top 20 from some query Not In the Top (40) because the top 40 where on page 1 and 2.

This is untested by something like

private page as integer
private perpage as integer

public CmboCount_AfterUpdate
  if not isNull me.CmboCount then
    perPage = me.cmboCount
    page = 1
    'some code here to set focus to button 1
    SelectRecords
end if

Private sub SelectRecords()
  dim strSql as string
  dim notIn as integer
  if page = 1 then
    strSql = "Select Top " & perpage & " * from someQuery"
  else
    notIn = (Page - 1) * perpage
    strSql = "Select Top " & perpage & " * from somequery where someID NOT in (Select Top " & NotIN & " someID from somequery"
  end if
  me.rowSource = strSql
end sub

I will assume you have 6 buttons and code to change the caption of the buttons

Private sub BtnA_Click()
  'same code for B,C,D,E,F
  'you will have to write code to change the button captions as you scroll
  page = cint(btnA.caption)
  selectRecords
end sub

 

[mikekal]

Ok thank you
In the begining of my pagination form the code is like that:

Option Compare Database
Option Explicit
Private Const lRecPerPage As Long = 32


Private Sub cmd_page_1_Click()
Call Paginate(Me.cmd_pagination_1)
End Sub

Private Sub cmd_page_10_Click()
Call Paginate(Me.cmd_pagination_10)
End Sub

Private Sub cmd_page_2_Click()
Call Paginate(Me.cmd_pagination_2)
End Sub

Private Sub cmd_page_3_Click()
Call Paginate(Me.cmd_pagination_3)
End Sub

Maybe whith combobox can change when i want the "lRecPerPage As Long = 32"

 

[MajP]

This is pretty close. I have not coded the buttons to scroll to additional pages but 1 to 4 work. However, this subquery (Not in) is slow. You may be able to write this as a outer join instead.

 

[mikekal]

Thank you very much.That i was want.Sorry for bad english.Many thanks from Greece

 

[arnelgp]

here is your paginator that you upload.

 

[mikekal]

here is your paginator that you upload.

Can i do it and with combobox

 

[mikekal]

Ok i did it.Thank you so much