Access VBA教程:ColumnHidden属性

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

expression.ColumnHidden

expression   必需。返回“Applies To”列表中的一个对象的表达式。

设置

在“数据表”视图中单击“格式”菜单上的“隐藏列”或“取消隐藏列”即可设置 ColumnHidden属性。

在Microsoft Access 数据库 (.mdb) 中,通过在Visual Basic 中使用Long Interger 值指定下列设置,也可以设置该属性:

设置 说明
True   隐藏列。
False   (默认值)列可见。

若要使用 Visual Basic 来设置或更改表或查询的这一属性,必须使用列的 Properties集合。有关使用 Properties集合的详细信息,请参阅Properties

注意   ColumnHidden属性在“设计”视图中不可用。

说明

例如,如果“客户地址”字段太宽,隐藏该字段便于查看“客户名称”和“电话号码”字段。

注意   ColumnHidden属性适用于“数据表”视图中所有的字段,并且当窗体处于“数据表”视图时,还适用于窗体控件。

在“数据表”视图中使用 ColumnHidden属性隐藏列,并不隐藏“窗体”视图中同一列的字段。同样,在“窗体”视图中将控件的Visible属性设为 False,也不会隐藏“数据表”视图中对应的列。

即使字段的列在表的“数据表”视图中是隐藏的,仍然可以在查询中显示该字段。

即使应用了筛选后列仍然是隐藏的,照样可以将隐藏列中的值用作筛选的标准。

不能使用“编辑”菜单上的“复制”、“粘贴”、“查找”和“替换”来影响隐藏的字段。

将字段的ColumnWidth属性设为 0,或在“数据表”视图中将字段宽度调整为零,会使 Microsoft Access 将相应的 ColumnHidden属性设为 True。取消隐藏列将使 ColumnWidth属性还原为字段隐藏前的值。

VBA示例

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


Forms!Products!ProductID.ColumnHidden = -1

下一个示例还隐藏“产品”表的“数据表”视图中的“产品ID”字段。


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

上页:Access VBA教程:ColumnHeads属性 下页:Access VBA教程:ColumnOrder属性

Access VBA教程:ColumnHidden属性

Access VBA教程:ColumnOrder属性 Access VBA教程:ColumnSpacing属性
Access VBA教程:ColumnWidth属性 Access VBA教程:ColumnWidths属性
Access VBA教程:COMAddIns属性 Access VBA教程:CommandBars属性
Access VBA教程:CommandBeforeExecute属性 Access VBA教程:CommandChecked属性
Access VBA教程:CommandEnabled属性 Access VBA教程:CommandExecute属性
Access VBA教程:CommitOnClose属性 Access VBA教程:CommitOnNavigation属性
Access VBA教程:Connection属性 Access VBA教程:ConnectionString属性
Access VBA教程:ControlBox属性 Access VBA教程:Controls属性
Access VBA教程:ControlSource属性 Access VBA教程:ControlTipText属性
Access VBA教程:ControlType属性 Access VBA教程:Copies属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号