原文链接:http://access911.net/73FAB51E.htm
回答:
方法一:
|
手动操作如下: 隐藏:右键单击某个表或者查询等对象->属性 ->隐藏 显示:菜单->工具->选项->视图->“隐藏对象”复选框前面打勾->确定后退出 右键单击某个表或者查询等对象->属性 ->去掉“隐藏”前面的勾 |
方法二:
|
最简单而有效的一个方法就是以“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 |
|
|