The following example uses the IsVisible property of a text box to control the display of a line control on a report. The report is based on a Products table and uses three controls with the following properties.
| Properties | Line control | Text box #1 | Text box #2 |
|---|---|---|---|
| Name | Line0 | CategoryID | ProductName |
| ControlSource | CategoryID | ProductName | |
| HideDuplicates | Yes | No | |
| Left | 0 | 0 | 2.0 |
| Top | 0 | .1 | .1 |
| Width | 4.0 | 1.0 | 1.0 |
Paste the following code into the Declarations section of the report module, and then view the report to see the line formatting controlled by the IsVisible property:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Me!CategoryID.IsVisible Then
Me!Line0.Visible = True
Else
Me!Line0.Visible = False
End If
End Sub