Show only a given number of places on a report

[CD Tom]

In the data that feeds the report there are standings 1,2,3,4 etc. These standing can go from 1 to 100 or more. And these can be divided into categories. I want to give the user the option to on show a certain number of places for each category.
In the report Open I prompt the user for the number of places they want to show.
I then count the number of records in the Detail_Print
In the Detail_Format I check the number of records and when I reach the Places the user entered I set Cancel = true, But it doesn't stop if continues printing.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    If VPlaces <> 0 Then
        If Me.txtcount > VPlaces Then
            Cancel = True
        End If
    End If
End Sub
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    txtcount = txtcount + 1
End Sub
Private Sub Report_Open(Cancel As Integer)
   stdmsg = "Show how many places. Enter 0 for complete list"
   VPlaces = InputBox(stdmsg, , 10)
 
End Sub

Can someone show me what I'm doing wrong.

Thanks

[NeoPa]

Hi Tom.

Setting Cancel = True in the _Format event procedure simply cancels the formatting. If you want to cancel the printing then you need to set it in the _Print event.

What your logic is trying to do is unclear as most of your variables aren't declared in what you show. There is also nothing to indicate you've considered or handled grouping within your categories or that you've taken PrintCount into consideration.

[twinnyfo]

Tom,

This also begs the question as to why you are determining the number of places at the time you are generating your report. Why not get the number of places first, and then use that value to filter your report appropriately? Unless I am missing something fundamental (which is possible, as your description is a bit unclear), this may be a very simple solution to your problem.

[NeoPa]

I suspect the complication comes from the fact that X number of items per category are required. That's much harder to do in SQL.