ACC2000: How to Print a Label After a Set Number of Lines of a Report

MORE INFORMATION

1. Start Microsoft Access, and open the sample database Northwind.mdb or the sample project NorthwindCS.adp.
2. In the Database window, click Reports under Objects, and then click New.
3. In the New Report dialog box, click Report Wizard, select the Employees table from the list box indicating where the object's data comes from, and then click OK.
4. Select one-by-one the EmployeeID, LastName, FirstName, and BirthDate fields from the Available Fields list by highlighting each field, and then clicking the > button. The selected fields will appear in the Selected Fields list.
5. Click Finish.
6. On the View menu, click Design View.
7. Click the Detail bar to select the detail section of the report. On the View menu, click Properties.
8. Click the Format tab, and then change the Height property to 0.75".
9. Add a text box to the detail section of the report below the existing fields, and set the following properties:

   Name: txtCounter
   Control Source: =1
   Running Sum: Over All
   Visible: No

10. Add another text box to the detail section, and set the following properties:

    Name: txtTextLabel
    Control Source: ="Any text you want on your label"
    Top: .25"
    Height: .45"
    Visible: No
    Can Shrink: Yes
    Can Grow: Yes

11. Select only the label attached to the txtTextLabel text box, and then press DELETE. This prevents the text box label from appearing with the text box.
12. Click the Detail bar to select the detail section of the report.
13. In the Properties box, click the Event tab.
14. Right-click the On Format box, and then on the shortcut menu, click Build. In the Choose Builder dialog box, click Code Builder, and then click OK.
15. Type the following code:

    Private Sub Detail_Format (Cancel As Integer, _
          FormatCount As Integer)
       If ((Me![txtCounter]) Mod 3 = 0) Then
          Me![txtTextLabel].Visible = True
       Else
          Me![txtTextLabel].Visible = False
       End If
    End Sub
    					

16. On the File menu, click Close and Return to the Microsoft Access.
17. On the File menu, click Print Preview. Note that the label appears after every third record.