Solved

Hide page header on first page of group

Posted on 2008-06-26
5
1,607 Views
Last Modified: 2013-11-28
I have a report with one group. When the group header displaying, I want to suppress the page header (the group header contains same information as page header + some addition information). The group header information must be displayed before the page header information, therefore I cannot combine these. The group footer has set the "Force new Page" property to "After Section".

I have tried to manipulate page header sections visible property in vba, but without success.
0
Comment
Question by:tselectro
  • 3
  • 2
5 Comments
 
LVL 23

Expert Comment

by:irudyk
Comment Utility
If I'm reading it correctly you want hide the Page header and display the Group header for page 1 and for pages 2 onwards, you want to display the Page header and hide the Group header.  If that is correct then try the following code to be place in the report page header's On Format routine.  You will need to change the PageHeaderSection and GroupHeader0 referneces to whatever they are called in your report.
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

PageHeaderSection.Visible = (Me.Page > 1)

GroupHeader0.Visible = (Me.Page <= 1)

End Sub

Open in new window

0
 

Author Comment

by:tselectro
Comment Utility
Hi, that is not exactly what I want. The reports can consist of lots of records, in many groups. Ex. page 1-3 is record belonging to group 1, page 4 is group 2, page 5-10 is group 3 etc.  The page header section must be suppressed for every first page of group, i.e in this ex. page 1, page 4 and page 5.
(NB the reports have one group (ex ProductionID))
0
 
LVL 23

Expert Comment

by:irudyk
Comment Utility
Okay, well try the following code
'Under the general declarations

Dim strProductionID As String
 

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)

If strProductionID <> Obj Then

    strProductionID = Obj

    GroupHeader0.Visible = True

Else

    GroupHeader0.Visible = False

End If

End Sub
 

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

If strProductionID <> Obj Then

    PageHeaderSection.Visible = False

Else

    PageHeaderSection.Visible = True

End If

End Sub

Open in new window

0
 
LVL 23

Accepted Solution

by:
irudyk earned 500 total points
Comment Utility
The Obj should have read ProductionID...See revised code below
'Under the general declarations

Dim strProductionID As String

 

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)

If strProductionID <> ProductionID Then

    strProductionID = ProductionID

    GroupHeader0.Visible = True

Else

    GroupHeader0.Visible = False

End If

End Sub

 

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

If strProductionID <> ProductionID Then

    PageHeaderSection.Visible = False

Else

    PageHeaderSection.Visible = True

End If

End Sub

Open in new window

0
 

Author Closing Comment

by:tselectro
Comment Utility
Hi, that is exactly what I want!
0

Featured Post

Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

Join & Write a Comment

Experts-Exchange is a great place to come for help with solutions for your database issues, and many problems are resolved within minutes of being posted.  Others take a little more time and effort and often providing a sample database is very helpf…
Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

7 Experts available now in Live!

Get 1:1 Help Now