Solved

suppressing page break on last item in group - access report

Posted on 2012-04-12
7
598 Views
Last Modified: 2012-04-13
Hi Experts:
I have a report with multiple breaks. For simplicity sake, I'll keep the question refined to three breaks:
Group Header
   Location Header
      Plan Header
      Plan Footer (new page)
   Location Footer (new page)
Group Footer  (Group totals > inserted page break > fancy page finalizing group)

My problem:  When the last Location comes in for the Group, I don't want a page break. I want the Group totals to appear directly under the location totals, then, the inserted page break will take care of printing the fancy page all by itself.  How do I prevent the final Location within the group from breaking a page?   Is there an event that the last Location will trigger that I can interrogate?  
e.g., If Location.Last_Record = true then
        else new page
Thanks,
Betty
0
Comment
Question by:cninghm
  • 4
  • 3
7 Comments
 
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 37838021
I believe there may be a simple solution...
Can you post a simple sample of the DB
Also note that using a Group called "Group" is confusing...

Sample database notes:
1. Back up your database(s).
2. Combine the front and back ends into one database file.
3. Remove any startup options, unless they are relevant to the issue.
4. Remove any records unless they are relevant to the issue.
5. Delete any objects that do not relate directly to the issue.
6. Remove any references to any "linked" files (files outside of the database, Images, OLE Files, ...etc)
7. Remove any references to any third party Active-x Controls (unless they are relevant to the issue)
8. Remove, obfuscate, encrypt, or otherwise disguise, any sensitive data.
9. Compile the code. (From the VBA code window, click: Debug-->Compile)
10. Run the compact/Repair utility.
11. Remove any Passwords and/or security.
12. If a form is involved in the issue, set the Modal and Popup properties to: No
    (Again, unless these properties are associated with the issue)
13. Post the explicit steps to replicate the issue.
14. Test the database before posting.

In other words, ...post a database that we can easily open and immediately see and/or troubleshoot the issue.
And if applicable, also include a clear graphical representation of the *Exact* results you are expecting, based on the sample data.

JeffCoachman
0
 
LVL 74

Accepted Solution

by:
Jeffrey Coachman earned 500 total points
ID: 37838133
Among some techniques is to count the number of records (In the entire report, or the group or, whatever) then use code to turn off the page break:

Private lngprvtRecCount As Long

Private Sub Report_Open(Cancel As Integer)
    'Get a count of all the records
    lngprvtRecCount = DCount("*", "Orders")
End Sub

Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
    If Me.txtRecCount = lngprvtRecCount Then
        'No Page break
        Me.Section(6).ForceNewPage = 0
    Else
        'Page break, after section
        Me.Section(6).ForceNewPage = 2
    End If
End Sub



But again a sample would be a lot easier to work with...
0
 

Author Comment

by:cninghm
ID: 37838215
Jeff:
On the "Group" thing.  I agree, but it's an inherited nightmare and I have limited time (no time to re-design).

On the posting example, I cannot - confidentiality.
I'm working with users to convince them of alternative design in report.  Thought it might be something simple.  
I will keep your suggestion in mind and get back to  you.
Thanks,
Betty
0
What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

 
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 37838260
<On the posting example, I cannot - confidentiality.>
See steps 8.
I only need a database that *Replicates* the issue...
0
 

Author Closing Comment

by:cninghm
ID: 37842837
Jeff:
The users are ok with 3 blank lines between breaks instead of page break.  I accepted your solution since I believe it would work if they insisted on the break.  
Thanks,
Betty
0
 
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 37843315
ok

Enjoy the weekend
0
 

Author Comment

by:cninghm
ID: 37843512
You too, buddy!
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

This article is a continuation or rather an extension from Cascading Combos (http://www.experts-exchange.com/A_5949.html) and builds on examples developed in detail there. It should be understandable alone, but I recommend reading the previous artic…
Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…
This is Part 3 in a 3-part series on Experts Exchange to discuss error handling in VBA code written for Excel. Part 1 of this series discussed basic error handling code using VBA. http://www.experts-exchange.com/videos/1478/Excel-Error-Handlin…

744 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

11 Experts available now in Live!

Get 1:1 Help Now