Se aplica a
|
Objeto BoundObjectFrame |
Objeto Image |
Objeto OptionButton |
Objeto SubForm |
|
Objeto CheckBox |
Objeto Label |
Objeto OptionGroup |
Colección TabControl |
|
Objeto ComboBox |
Objeto Line |
Objeto Page |
Objeto TextBox |
|
Objeto CommandButton |
Objeto ListBox |
Objeto PageBreak |
Objeto ToggleButton |
|
Objeto CustomControl |
Objeto ObjectFrame |
Objeto Rectangle |
Puede usar la propiedad IsVisible en código de Visual Basic para Aplicaciones (VBA) para determinar si un control de un informe es visible. Valor Booleano de lectura y escritura.
expresión.IsVisible
expresión Requerido. Una expresión que devuelve uno de los objetos de la lista Se aplica a.
Observaciones
En la propiedad IsVisible se usan los valores siguientes.
|
Configuración |
Descripción |
|
True |
(Valor predeterminado) El control está visible. |
|
False |
El control no es visible. |
Nota: Solo puede establecer la propiedad IsVisible en el evento Print de una sección de informe que contiene el control.
Puede usar la propiedad IsVisible junto con la propiedad HideDuplicates para determinar cuándo es visible un control en un informe y mostrar u ocultar otros controles como resultado. Por ejemplo, puede ocultar un control de línea cuando un control de cuadro de texto está oculto porque contiene valores duplicados.
Ejemplo
En el siguiente ejemplo se usa la propiedad IsVisible de un cuadro de texto para controlar la visualización de un control de línea en un informe. El informe se basa en una tabla Productos y usa tres controles con las siguientes propiedades.
|
Propiedades |
Control de línea |
Cuadro de texto n.º 1 |
Cuadro de texto n.º 2 |
|
Name |
Line0 |
CategoryID |
ProductName |
|
ControlSource |
CategoryID |
ProductName |
|
|
HideDuplicates |
Sí |
No |
|
|
Left |
0 |
0 |
2,0 |
|
Top |
0 |
,1 |
,1 |
|
Width |
4,0 |
1,0 |
1,0 |
Pegue el código siguiente en la sección de declaraciones del módulo del informe y, después, vea el informe para ver el formato de línea controlado por la propiedad IsVisible:
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 IfEnd Sub
