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 VBA (Visual Basic for Applications) para determinar se um controle em um relatório está visível. Booliano de leitura/gravação.
expressão.IsVisible
Expressão Necessário. 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 de caixa de texto estiver oculto porque ele 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