Aplica-se 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 |
Pode utilizar a propriedade ÉVisível no código VBA (Visual Basic for Applications) para determinar se um controlo ou um relatório são visíveis. Booleano de leitura/escrita.
expressão.ÉVisível
expressão Obrigatório. Uma expressão que devolve um dos objetos na lista Aplica-se A.
Observações
A propriedade ÉVisível utiliza as seguintes definições.
Definição |
Descrição |
Verdadeiro |
(Predefinição) O controlo é visível. |
Falso |
O controlo não é visível. |
Nota: Pode definir a propriedade ÉVisível só no evento Imprimir de uma secção do relatório que tenha o controlo.
Pode utilizar a propriedade ÉVisível, em conjunto com a propriedade OcultarRepetições para determinar quando é que o controlo de um relatório é visível e, como resultado, mostra ou oculta outros controlos. Por exemplo, pode ocultar o controlo da linha quando o controlo de uma caixa de texto for ocultado devido a conter valores duplicados.
Exemplo
O seguinte exemplo utiliza a propriedade ÉVisível de uma caixa de texto para controlar a apresentação de uma linha de controlo de um relatório. O relatório baseia-se na tabela Produtos e utiliza três controlos com as seguintes propriedades.
Propriedades |
Controlo da linha |
Caixa de texto n.º 1 |
Caixa de texto n.º 2 |
Nome |
Linha0 |
IDDaCategoria |
NomeDoProduto |
OrigemDoControlo |
IDDaCategoria |
NomeDoProduto |
|
OcultarRepetições |
Sim |
Não |
|
Esquerda |
0 |
0 |
2.0 |
Superior |
0 |
0.1 |
0.1 |
Largura |
4.0 |
1.0 |
1.0 |
Cole o seguinte código na secção Declarações do módulo do relatório e, em seguida, veja o relatório para ver a formatação da linha controlada pela propriedade ÉVisível:
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