IsVisible Property
Applies to
BoundObjectFrame Object | Image Object | OptionButton Object | SubForm Object |
CheckBox Object | Label Object | OptionGroup Object | TabControl Collection |
ComboBox Object | Line Object | Page Object | TextBox Object |
CommandButton Object | ListBox Object | PageBreak Object | ToggleButton Object |
CustomControl Object | ObjectFrame Object | Rectangle Object |
You can use the IsVisible property in Visual Basic for Applications (VBA) code to determine whether a control on a report is visible. Read/write Boolean.
expression.IsVisible
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
The IsVisible property uses the following settings.
Setting | Description |
True | (Default) The control is visible. |
False | The control isn't visible. |
Note: You can set the IsVisible property only in the Print event of a report section that contains the control.
You can use the IsVisible property together with the HideDuplicates property to determine when a control on a report is visible and show or hide other controls as a result. For example, you could hide a line control when a text box control is hidden because it contains duplicate values.
Example
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
No comments:
Post a Comment