<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1226" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=730173221-11092003>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:</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=730173221-11092003></SPAN></FONT> </DIV>
<DIV><FONT color=#0000ff><SPAN class=730173221-11092003>
<DIV><FONT face=Arial color=#4040ff size=2>Private Sub Detail_Format(Cancel As
Integer, FormatCount As Integer)</FONT></DIV>
<DIV><FONT face=Arial color=#4040ff size=2></FONT> </DIV>
<DIV><FONT face=Arial><FONT color=#4040ff><FONT size=2><SPAN
class=730173221-11092003> If FormatCount = 1
then</SPAN></FONT></FONT></FONT></DIV>
<DIV><FONT><FONT><SPAN class=730173221-11092003></SPAN><FONT face=Arial><FONT
color=#4040ff><FONT size=2><SPAN class=730173221-11092003>
</SPAN>If Me.Detail.BackColor = vbWhite Then<BR> <SPAN
class=730173221-11092003> </SPAN>Me.Detail.BackColor = vbGreen<BR><SPAN
class=730173221-11092003>
</SPAN>Else<BR> <SPAN class=730173221-11092003>
</SPAN>Me.Detail.BackColor = vbWhite<BR><SPAN
class=730173221-11092003> </SPAN>End
If</FONT></FONT></FONT></FONT></FONT></DIV>
<DIV><SPAN class=730173221-11092003><FONT face=Arial color=#4040ff
size=2> <FONT color=#0000ff>End If</FONT></FONT></SPAN></DIV>
<DIV><FONT face=Arial><FONT size=2><FONT
color=#4040ff></FONT></FONT></FONT> </DIV>
<DIV><FONT face=Arial><FONT size=2><FONT color=#4040ff>End
Sub</FONT><BR></DIV></FONT></FONT>
<DIV><FONT face=Arial><BR><FONT size=2></FONT></FONT></DIV></SPAN></FONT></DIV>
<P><FONT size=2>Jim Dettman<BR>President,<BR>Online Computer Services of WNY,
Inc.<BR>(315) 699-3443<BR>jimdettman@earthlink.net </FONT></P>
<BLOCKQUOTE>
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B>
accessd-bounces@databaseadvisors.com
[mailto:accessd-bounces@databaseadvisors.com]<B>On Behalf Of </B>Lonnie
Johnson<BR><B>Sent:</B> Thursday, September 11, 2003 4:38 PM<BR><B>To:</B>
'MS-ACCESS-L@lists.missouri.edu'; AccessDevelopers; ms_access; AccessD
solving'<BR><B>Subject:</B> [AccessD] Add "Green Bar" effect to your Access
Reports<BR><BR></FONT></DIV>
<DIV>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...</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><STRONG><FONT color=#4040ff>Private Sub Detail_Format(Cancel As Integer,
FormatCount As Integer)</FONT></STRONG></DIV>
<DIV><STRONG><FONT color=#4040ff>If Me.Detail.BackColor = vbWhite
Then<BR> Me.Detail.BackColor =
vbGreen<BR>Else<BR> Me.Detail.BackColor = vbWhite<BR>End
If</FONT></STRONG></DIV>
<DIV><STRONG><FONT color=#4040ff>End Sub</FONT></STRONG><BR></DIV>
<DIV><BR> </DIV><BR><BR>
<DIV>
<DIV>
<P align=center><STRONG>Lonnie Johnson<BR></STRONG><STRONG>ProDev</STRONG>,
Professional Development of MS Access Databases<BR>Visit me at ==> <A
href="http://www.prodev.us/">http://www.prodev.us</A></P>
<P><BR><A
href="http://www.galaxymall.com/software/PRODEV"><BR></A><BR> </P></DIV></DIV>
<P>
<HR SIZE=1>
Do you Yahoo!?<BR><A
href="http://us.rd.yahoo.com/evt=10469/*http://sitebuilder.yahoo.com">Yahoo!
SiteBuilder</A> - Free, easy-to-use web site design
software</BLOCKQUOTE></BODY></HTML>