Propriedade ListBox.ColumnHidden (Access)

Use a propriedade ColumnHidden para mostrar ou ocultar uma coluna especificada no modo de exibição Datasheet. Boolean de leitura/gravação.

Sintaxe

expressão. ColumnHidden

Expressão Uma variável que representa um objeto ListBox .

Comentários

Por exemplo, talvez você queira ocultar um campo CustomerAddress muito largo para que você possa exibir os campos CustomerName e PhoneNumber .

[!OBSERVAçãO] A propriedade ColumnHidden se aplica a todos os campos no modo folha de dados e aos controles de formulário quando o formulário está no modo folha de dados.

Ocultar uma coluna com a propriedade ColumnHidden no modo folha de dados não campos da mesma coluna no modo formulário. Da mesma forma, a definição de propriedade Visible de um controle como False no modo formulário não ocultar a coluna correspondente no modo folha de dados.

Observação

Para definir ou alterar essa propriedade para uma tabela ou consulta usando o Visual Basic, você deve usar o conjunto de Propriedades de uma coluna. Para obter mais informações sobre como usar a coleção Propriedades , consulte Propriedades.

Você pode exibir um campo em uma consulta mesmo que a coluna do campo esteja oculta no modo de folha de dados da tabela. Use valores de uma coluna oculta como critérios para um filtro, embora a coluna permaneça oculta após a aplicação do filtro.

A configuração da propriedade ColumnWidth de um campo como 0, ou o redimensionamento do campo para uma largura zero no modo de folha de dados, faz com que o Microsoft Access definir a propriedade ColumnHidden correspondente como True. Reexibir uma coluna restaura a propriedade ColumnWidth para o valor que tinha antes do campo ser oculto.

[!OBSERVAçãO] A propriedade ColumnHidden não está disponível no modo de Design.

Exemplo

O exemplo a seguir oculta o campo ProductID na exibição Datasheet do formulário Produtos .

Forms!Products!ProductID.ColumnHidden = -1

O próximo exemplo oculta o campo ProductID na exibição Datasheet da tabela Produtos .

Public Sub SetColumnHidden() 
 
 Dim dbs As DAO.Database 
 Dim fld As DAO.Field 
 Dim prp As DAO.Property 
 Const conErrPropertyNotFound = 3270 
 
 ' Turn off error trapping. 
 On Error Resume Next 
 
 Set dbs = CurrentDb 
 
 ' Set field property. 
 Set fld = dbs.TableDefs!Products.Fields!ProductID 
 fld.Properties("ColumnHidden") = True 
 
 ' Error may have occurred when value was set. 
 If Err.Number <> 0 Then 
 If Err.Number <> conErrPropertyNotFound Then 
 On Error GoTo 0 
 MsgBox "Couldn't set property 'ColumnHidden' " & _ 
 "on field '" & fld.Name & "'", vbCritical 
 Else 
 On Error GoTo 0 
 Set prp = fld.CreateProperty("ColumnHidden", dbLong, True) 
 fld.Properties.Append prp 
 End If 
 End If 
 
 Set prp = Nothing 
 Set fld = Nothing 
 Set dbs = Nothing 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.