怎样在数据库窗口隐藏表

(答)：如果你想在数据库窗口中隐藏你不想让其它用户选择的表，你可以在前面加上前缀'Usys'。例如，如果你的表名为:Employee，将它改名为:UsysEmployee，这将使你的表加入到系统对象中，这样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

---