ListBox.ColumnHidden 属性 (Access)

使用 ColumnHidden 属性可在数据表视图中显示或隐藏指定的列。 读/写 Boolean。

语法

表达式。ColumnHidden

表达 一个代表 ListBox 对象的变量。

备注

例如，你可能希望隐藏过宽的 CustomerAddress 字段，以便可以查看 CustomerName 和 PhoneNumber 字段。

[!注释] ColumnHidden 属性应用到数据表视图中的所有字段和窗体控件窗体位于数据表视图中。

隐藏与 ColumnHidden 属性在数据表视图中的列将不隐藏窗体视图中的同一列中的字段。 同样，在窗体视图中控件的 可见 属性设置为 False 不会隐藏数据表视图中的相应列。

注意

[!注释] 若要设置或更改使用 Visual Basic 的表或查询此属性，必须使用列的 属性 集合。 有关使用 Properties 集合的详细信息，请参阅 Properties。

即使字段相应的列在表的“数据表”视图中是隐藏的，仍然可以在查询中显示该字段。 使用隐藏列中的值作为筛选器的条件，即使该列在应用筛选器后保持隐藏。

字段的 列宽 属性设置为 0，或调整为零宽度在数据表视图中，将导致 Microsoft Access 将相应的 ColumnHidden 属性设置为 True 。 取消隐藏列将 ColumnWidth 属性恢复为之前隐藏了该字段的值。

[!注释] ColumnHidden 属性不在设计视图中可用。

示例

以下示例隐藏“ 产品 ”窗体的“数据表”视图中的“ ProductID ”字段。

Forms!Products!ProductID.ColumnHidden = -1

下一个示例隐藏 Products 表的数据表视图中的 ProductID 字段。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。