By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
425,805 Members | 1,100 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 425,805 IT Pros & Developers. It's quick & easy.

Alternate Line Shading

P: n/a
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
Nov 12 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a
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


Nov 12 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.