ACC2000: How to Shade Every Other Detail Line on Reports

ID: Q210392

The information in this article applies to:

Microsoft Access 2000

This article applies to a Microsoft Access database (.mdb) and a Microsoft Access project (.adp).

Moderate: Requires basic macro, coding, and interoperability skills.

SUMMARY

This article shows you how to shade every other detail line on a Microsoft Access report. Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Solution Provider or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Solution Providers, please see the following page on the World Wide Web:

http://www.microsoft.com/mcsp/

For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp

MORE INFORMATION

The following example uses an event procedure to alternate the background color between white and yellow. On black and white printers, yellow typically appears as light gray.

CAUTION: Following the steps in this example will modify the sample database Northwind.mdb. You may want to back up the Northwind.mdb file and perform these steps on a copy of the database.

Open the sample database Northwind.mdb, and then open the Alphabetical List Of Products report in Design view.

Add a new text box control to the detail section of the report and set the following properties:
```
   Name: LineNum
   ControlSource: =-1
   RunningSum: Over All
   Visible: No 
```
Note the equal sign in the ControlSource property setting.

Set the OnPrint property of the detail section to the following event procedure:


Const WHITE = 16777215
Const YELLOW = 65535

If (Me![LineNum] Mod 2) = 0 Then
   Me![ProductName].BackColor = YELLOW
   Me![CategoryName].BackColor = YELLOW
   Me![QuantityPerUnit].BackColor = YELLOW
   Me![UnitsInStock].BackColor = YELLOW
Else
   Me![ProductName].BackColor = WHITE
   Me![CategoryName].BackColor = WHITE
   Me![QuantityPerUnit].BackColor = WHITE
   Me![UnitsInStock].BackColor = WHITE
End If

On the Debug menu, click Compile Northwind to compile the event procedure code.

Close the report module.

Preview or print the report by clicking Print Preview or Print on the File menu. Note that every other detail line on the report is shaded to the extent that the line is covered with a text box.

Additional query words: greenbar green bar


Keywords          : kbusage kbdta AccCon RptLayou RptProp 
Version           : WINDOWS:2000
Platform          : WINDOWS 
Issue type        : kbhowto

Last Reviewed: July 6, 1999