[AccessD] Brain Fart on Report grouping

[Ryan W]

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
>