[AccessD] Brain Fart on Report grouping

[Ryan W]

Yeah maybe it was Me.pages.

Ah well this will work for now. I was feeling rusty for a moment.





On Wed, Jan 24, 2018 at 1:37 PM, Jim Dettman <jimdettman at verizon.net> wrote:

> Maybe you're thinking of just knowing when you're on the last page, which
> is
> when you can do:
>
>  If Me.Page = Me.Pages then
>
> But for last group, you need to know what the last group is.
>
> You can do what you did, walk through the recordset that the report is
> based
> on, or enable two pass printing and capture the last group on the first
> pass.
>
> For what you needed, what you did is the most efficient.   Might possibly
> break in the future more easily if something is changed, but it is the most
> efficient method that I can think of.
>
> Jim.
>
> -----Original Message-----
> From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Ryan W
> Sent: Wednesday, January 24, 2018 12:47 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Brain Fart on Report grouping
>
> Huh. Alright. I could have sworn there were some VBA properties in the
> OnPrint event to help tell where you were but it's been a while since I've
> had to write any VBA for report formatting on the fly.
>
>
>
>
>
> On Wed, Jan 24, 2018 at 11:28 AM, Jim Dettman <jimdettman at verizon.net>
> wrote:
>
> > Well you need some type of flag to tell you when you are on the last
> > client.
> >
> > There are several ways to do that, and believe it or not, what your
> > doing is probably the cleanest.
> >
> > Jim.
> >
> > -----Original Message-----
> > From: AccessD [mailto:accessd-bounces at databaseadvisors.com] On Behalf
> > Of Ryan W
> > Sent: Wednesday, January 24, 2018 10:54 AM
> > To: Access Developers discussion and problem solving
> > Subject: [AccessD] Brain Fart on Report grouping
> >
> > I have a report that's grouped by Client name, each grouping has a
> > footer that draws a line (thickness 1) to help break the report up
> > between clients.
> >
> > At the end of the report, I have a REPORT footer that draws a line
> > (thickness 2) with some statistics under it.
> >
> >
> > Right now, when the last group footer prints a line, and the report
> > footer prints it's line they're stacked on top of each other. I could
> > have sworn there was some magic wizardry I've done in the past to not
> > draw that last grouped footer line relatively easily.  I have a
> > solution that works NOW but it feels like kludge.
> >
> >
> > Basically I have a global report variable defined at the top "strClient"
> >
> >
> > In Report_Open event I set that variable using:
> >
> > strClient =  DMax("ClientName", "Table")
> >
> > For GroupFooter1_Print event I have :
> >
> > Me.LineName.visible = not (Me.ClientName = strClientName)
> >
> > It works but as I said feels Kludgy.
> >
> > Thoughts?
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>