Alternate Line Shading

[jeffgeorge]

Using a bit of code to produce alternate line shading in a report.
Seems it should work for a form as well but no luck. Does anyone have
any ideas what I need to change or if it is even possible to alternate
shade a form???

Private Sub Alternate_Detail_Format(Cancel As Integer, FormatCount As
Integer)

Const vbLightGrey = 12632256

If Me.CurrentRecord Mod 2 = 0 Then
Me.Section(acDetail).BackColor = vbLightGrey
Else
Me.Section(acDetail).BackColor = vbWhite
End If

End Sub

[Stephen Lebans]

Here are a couple of solutions.
For A97 or higher:
http://www.lebans.com/alternatecolordetailsection.htm
AlternateColorDetailSection.zip is a class to allow for alternate bands
of color for Forms in Continuous View.

For A2K or higher using Conditional Formatting for forms in Continuous
or Datasheet view see:
http://www.lebans.com/conditionalformatting.htm
New Feb 08,2002. Added support for Datasheet view and SubForms.

A2KConditionalFormatting.zip is a sample MDB demonstrating how to
programmatically setup Conditional Formatting to simulate:

1) Highlighting of the Current Row for a Form in Continuous or Datasheet
View

2) Highlighting of Alternate Rows for a Form in Continuous or Datasheet
View

Version 2.7

Added sample demonstrating how to achieve a background
Hover/Highlighting of rows for a form in Continuous view.

Version 2.3

Added sample demonstrating how to achieve pseudo enable/disable of an
unbound control on a form in Continuous View.

Version 1.9

Added sample form to show how to apply conditional formatting to based
on a Boolean(Yes/No) field.


--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"jeffgeorge" <ki*******@aol.com> wrote in message
news:4f**************************@posting.google.c om...

Using a bit of code to produce alternate line shading in a report.
Seems it should work for a form as well but no luck. Does anyone have
any ideas what I need to change or if it is even possible to alternate
shade a form???

Private Sub Alternate_Detail_Format(Cancel As Integer, FormatCount As
Integer)

Const vbLightGrey = 12632256

If Me.CurrentRecord Mod 2 = 0 Then
Me.Section(acDetail).BackColor = vbLightGrey
Else
Me.Section(acDetail).BackColor = vbWhite
End If

End Sub