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 IfEnd Sub