如何隐藏/显示Access数据库某个表或者其他数据库对象

[重要通告]如您遇疑难杂症,本站支持知识付费业务,扫右边二维码加博主微信,可节省您宝贵时间哦!

方法一：

　　手动操作如下：
　　隐藏：右键单击某个表或者查询等对象->属性 ->隐藏
　　显示：菜单->工具->选项->视图->“隐藏对象”复选框前面打勾->确定后退出
　　右键单击某个表或者查询等对象->属性 ->去掉“隐藏”前面的勾

　　方法二：

　　最简单而有效的一个方法就是以“usys”开头命名。因为access认为这个字符串开头的是系统文件，而系统文件一般是不显现的。如果要看到，那么在“工具”－“选项”－“视图”中选中“系统对象”就可以了。记住，不要修改其他不属于你的文件，因为那很危险。

　　方法三：

　　用ADO编程隐藏表
　　sub hide_table()
　　Dim cnn As New ADODB.Connection
　　Dim cat As New ADOX.Catalog

　　Set cat.ActiveConnection = CurrentProject.Connection
　　Dim tbl As ADOX.Table
　　Dim pro As Property
　　For Each tbl In cat.Tables
　　Debug.Print tbl.name
　　For Each pro In tbl.Properties
　　Debug.Print pro.name & "=" & pro.Value
　　Next
　　If tbl.name = "需要隐藏的表名" Then tbl.Properties.Item("Jet OLEDB:Table Hidden In access") = True
　　Next
　　End Sub
　　
　　同理，你还可以隐藏其他的数据库对象，一样使用 ADO

　　方法四：

　　用access内置的 SetHiddenAttribute 方法

　　SetHiddenAttribute 方法用于设置 access 对象的隐藏属性。

　　expression.SetHiddenAttribute(ObjectType, ObjectName, fHidden)

　　expression 必需。返回 Application 对象的表达式。

　　ObjectType AcObjectType，必需。必须为 ObjectType 参数输入一个常量；acDefault 不是有效的输入项。

　　AcObjectType 可以是下列 AcObjectType 常量之一：
　　acDataaccessPage
　　acDefault
　　acDiagram
　　acForm
　　acFunction
　　acMacro
　　acModule
　　acQuery
　　acReport
　　acServerView
　　acStoredProcedure
　　acTable

　　ObjectName String 型，必需。字符串表达式，标识 access 对象的名称。

　　fHidden Boolean 型，必需。值为 True 会设置隐藏属性，值为 False 则会清除隐藏属性。

　　说明
　　GetHiddenAttribute 和 SetHiddenAttribute 方法一起使用时，可提供一种通过 Visual Basic 代码改变对象隐藏属性的方法。使用这两个方法，可以设置或读取对象的“属性”对话框中可用的隐藏选项。

　　若要使用 SetHiddenAttribute 方法来设置该选项，可将参数设为 True 或 False，如下例所示。

　　Application.SetHiddenAttribute acTable,"Customers", True

问题未解决？付费解决问题加Q或微信 2589053300 (即Q号又微信号)右上方扫一扫可加博主微信

所写所说，是心之所感，思之所悟，行之所得；文当无敷衍，落笔求简洁。 以所舍，求所获；有所依，方所成！