Solved

suppressing page break on last item in group - access report

Posted on 2012-04-12
7
600 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
Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

 
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

Ransomware: The New Cyber Threat & How to Stop It

This infographic explains ransomware, type of malware that blocks access to your files or your systems and holds them hostage until a ransom is paid. It also examines the different types of ransomware and explains what you can do to thwart this sinister online threat.  

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Launch app from Access custom ribbon 8 33
Top 1 of each supplier 55 57
Question about Relationship and Userform in Access Database 17 54
Dlookup MSACCESS 5 25
Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
A theme is a collection of property settings that allow you to define the look of pages and controls, and then apply the look consistently across pages in an application. Themes can be made up of a set of elements: skins, style sheets, images, and o…
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.
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…

810 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