Aplicável a
Objeto BoundObjectFrame |
Objeto Image |
Objeto OptionButton |
Objeto SubForm |
Objeto CheckBox |
Objeto Label |
Objeto OptionGroup |
Coleção TabControl |
Objeto ComboBox |
Objeto Line |
Objeto Page |
Objeto TextBox |
Objeto CommandButton |
Objeto ListBox |
Objeto PageBreak |
Objeto ToggleButton |
Objeto CustomControl |
Objeto ObjectFrame |
Objeto Rectangle |
Você pode usar a propriedade IsVisible no código do Visual Basic for Applications (VBA) para determinar se um controle em um relatório está visível. Booliano de leitura/gravação.
expressão.IsVisible
expressão Obrigatória. Uma expressão que retorna um dos objetos na lista Aplica-se a.
Comentários
A propriedade IsVisible usa as configurações a seguir.
Configuração |
Descrição |
True |
(Padrão) O controle está visível. |
False |
O controle não está visível. |
Observação: Você pode definir a propriedade IsVisible apenas no evento Imprimir de uma seção do relatório que contém o controle.
Você pode usar a propriedade IsVisible juntamente com a propriedade HideDuplicates para determinar quando um controle em um relatório está visível e mostrar ou ocultar outros controles de acordo. Por exemplo, você pode ocultar um controle de linha quando um controle caixa de texto estiver oculto porque contém valores duplicados.
Exemplo
O exemplo a seguir usa a propriedade IsVisible de uma caixa de texto para controlar a exibição de um controle de linha em um relatório. O relatório está baseado em uma tabela Produtos e usa três controles com as seguintes propriedades.
Propriedades |
Controle de linha |
Caixa de texto #1 |
Caixa de texto #2 |
Nome |
Line0 |
CategoryID |
ProductName |
ControlSource |
CategoryID |
ProductName |
|
HideDuplicates |
Sim |
Não |
|
Para a Esquerda |
0 |
0 |
2.0 |
Superior |
0 |
.1 |
.1 |
Largura |
4.0 |
1.0 |
1.0 |
Cole o código a seguir na seção Declarações do módulo do relatório e, em seguida, exiba o relatório para ver a formatação de linha controlada pela propriedade 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 If
End Sub