Jim Dettman
jimdettman at earthlink.net
Thu Sep 11 16:35:56 CDT 2003
That should be modified a bit. If the report has grouping and certain options selected, the detail section may get formatted more then once. Depending on the number of times Access would retreat up the page, you might end up with two lines with the same color. So it should be done like this: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If FormatCount = 1 then If Me.Detail.BackColor = vbWhite Then Me.Detail.BackColor = vbGreen Else Me.Detail.BackColor = vbWhite End If End If End Sub Jim Dettman President, Online Computer Services of WNY, Inc. (315) 699-3443 jimdettman at earthlink.net -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Lonnie Johnson Sent: Thursday, September 11, 2003 4:38 PM To: 'MS-ACCESS-L at lists.missouri.edu'; AccessDevelopers; ms_access; AccessD solving' Subject: [AccessD] Add "Green Bar" effect to your Access Reports This will give a green bar effect on a report. Every other line green. You may want to play around with the numeric color expressions if you don't like the loud green you get from vbGreen. Just a tip... Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.Detail.BackColor = vbWhite Then Me.Detail.BackColor = vbGreen Else Me.Detail.BackColor = vbWhite End If End Sub Lonnie Johnson ProDev, Professional Development of MS Access Databases Visit me at ==> http://www.prodev.us ---------------------------------------------------------------------------- -- Do you Yahoo!? Yahoo! SiteBuilder - Free, easy-to-use web site design software -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030911/552fccca/attachment-0001.html>