make visible based on pages in Group in Report

[MMcCarthy]

Interesting title isn't it.

Ok everyone, I have a problem and I'm hoping some of you genius's have a solution.

I have a Report which after being printed will have the pages run through an automated process. The process needs to know when each group has finished. This will be done using visual aid of 3 lines. The first line is a marker and will aways be visible on the page. The second line will be visible on all pages in the group except the last page of the group. The third line will only be visible on the last page of the group.

Each group will start on a new page but I'm stumped on how to work out how many pages are in the group. The report page numbering will only count how many pages are in the report as a whole. I know I can print each group individually but I'm looking for a better solution.

All suggestions welcome.

Mary

P.S. Please ask any questions if this doesn't make sense. It's a difficult situation to explain.

[NeoPa]

Option Compare Database
Option Explicit
 
Public lngPage As Long
 
Private Sub RouteHdr_Format(Cancel As Integer, FormatCount As Integer)
    lngPage = Page - 1
End Sub

Does this give you enough information?

[MMcCarthy]

Option Compare Database
Option Explicit
 
Public lngPage As Long
 
Private Sub RouteHdr_Format(Cancel As Integer, FormatCount As Integer)
    lngPage = Page - 1
End Sub

Does this give you enough information?

I kinda get where you're going but I'm not sure. Can I ring you?

[Rabbit]

I haven't read the whole thing but it sounds close to what you want.
How to reset the page number and the total page count for each group in a Microsoft Access report.

[MMcCarthy]

I haven't read the whole thing but it sounds close to what you want.
How to reset the page number and the total page count for each group in a Microsoft Access report.

Now I get what Ade was on about. Thanks a million Rabbit.

[Rabbit]

Now I get what Ade was on about. Thanks a million Rabbit.

No problem.

[MMcCarthy]

No problem.

Still I'd love to find a way to avoid creating that table.

[NeoPa]

I kinda get where you're going but I'm not sure. Can I ring you?

Course you can.
Sorry - I was AFK watching Spurs.

[MMcCarthy]

Course you can.
Sorry - I was AFK watching Spurs.

Thanks everyone. With Ade's help I have managed to get the lines to work in the Code footer but not the header. The header Format is processed first and therefore cannot have anything triggered by the group header and footer. Hopefully this will be an accepted solution.

For anyone who's interested, please see the template code below. linestop and lineparity are the two lines that have to be made visible or invisible.

Option Compare Database
Option Explicit
 
Public lngPage As Long
 
Private Sub GroupFooter0_Format(Cancel As Integer, FormatCount As Integer)
 
    Me.linestop.Visible = True
    Me.lineparity.Visible = False
 
End Sub
 
Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
 
    Me.linestop.Visible = False
    Me.lineparity.Visible = True
    lngPage = Page - 1
 
End Sub
 
Function PageNo()
    PageNo = "Page " & [Page] - [lngPage]
End Function
 

Mary