How to shade every other detail line on a report in Access 2002 (288154)

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: If you follow the steps in this example, you modify the sample database Northwind.mdb. You may want to back up the Northwind.mdb file and follow these steps on a copy of the database.

1. Open the sample database Northwind.mdb, and then open the Alphabetical List of Products report in Design view.
2. Add a text box to the detail section of the report, and then set the following properties:

      Name: LineNum
      ControlSource: =-1
      RunningSum: Over All
      Visible: No
   						

   Note the equal sign in the ControlSource property setting.
3. 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
   					

4. On the Debug menu, click Compile Northwind to compile the event procedure code.
5. Close the report module.
6. Open the report in Design view, open the property sheet for each control in the detail section, and verify that the BackStyle property is set to Normal.
7. 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.