Propiedad ListBox.ColumnHidden (Access)

Utilice la propiedad ColumnHidden para mostrar u ocultar una columna especificada en la vista Hoja de datos. Boolean de lectura y escritura.

Sintaxis

expresión. ColumnHidden

Expresión Variable que representa un objeto ListBox .

Comentarios

Por ejemplo, es posible que quiera ocultar un campo CustomerAddress demasiado ancho para que pueda ver los campos CustomerName y PhoneNumber .

[!NOTA] La propiedad ColumnHidden se aplica a todos los campos en la vista Hoja de datos y a los controles de formularios cuando el formulario está en vista Hoja de datos.

Ocultar una columna con la propiedad ColumnHidden en la vista Hoja de datos no oculta los campos de la misma columna en la vista formulario. De forma similar, al establecer la propiedad Visible de un control en False en la vista formulario no oculta la columna correspondiente en la vista Hoja de datos.

Nota:

[!NOTA] Para establecer o cambiar esta propiedad para una tabla o consulta usando Visual Basic, debe utilizar la colección de Propiedades de una columna. Para obtener más información sobre el uso de la colección Properties , vea Propiedades.

Puede mostrar un campo en una consulta aunque la columna del campo esté oculta en la vista Hoja de datos de la tabla. Use valores de una columna oculta como criterios para un filtro aunque la columna permanezca oculta después de aplicar el filtro.

Al establecer la propiedad ColumnWidth de un campo en 0 o cambiar el tamaño del campo a ancho cero en la vista Hoja de datos, hace que Microsoft Access establece la propiedad ColumnHidden en True. Al mostrar una columna, restablece la propiedad ColumnWidth al valor que tenía antes de que el campo se oculta.

[!NOTA] La propiedad ColumnHidden no está disponible en la vista Diseño.

Ejemplo:

En el ejemplo siguiente se oculta el campo ProductID en la vista Hoja de datos del formulario Productos .

Forms!Products!ProductID.ColumnHidden = -1

En el ejemplo siguiente se oculta el campo ProductID en la vista Hoja de datos de la tabla Products .

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.