如何用VBA隐藏数据表窗体上的列？

zhengjialon

一个数据表视图的窗体，需要用VBA方法隐藏其中的几个列，不知是否有方法？
谢谢各位。

竹笛

用工具栏的按钮不行？再说用代码隐藏了，操作员可以恢复啊。

竹笛

用代码的方法我以前看到过，不过现在不知放到哪去了，晕~~

不知是否可以用  子窗体!字段名.visible=false

[此贴子已经被作者于2004-1-16 12:50:07编辑过]

zhengjialon

好像不行，这种方法在数据表视图中仍然可以出现。

zhengjialon

本题已解决：（帮助里的。）

ColumnHidden 属性
参阅应用于示例特性使用 ColumnHidden 属性可以在“数据表”视图中显示或隐藏指定的列。Boolean 型，可读写。

expression.ColumnHidden
expression      必需。返回“应用于”列表中的一个对象的表达式。

设置
在“数据表”视图中单击“格式”菜单上的“隐藏列”或“取消隐藏列”即可设置 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 属性还原为字段隐藏前的值。

示例
以下示例隐藏“产品”窗体“数据表”视图中的“产品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

tmtony

1.DoCmd.RunCommand acCmdHideColumns
2.窗体名.字段名.columnhidden=true

pengkuo

非常的感谢哦！！！