一、问题描述：

      怎样实现Access对象隐藏与显示的自动化呢？比如将所有表都隐藏。

二、解决方法：

      SetHiddenAttribute方法可以解决这个问题，使用CurrentDb.TableDefs.Count获取当前数据库表的数量，利用For循环去设置隐藏。

如何获取Access对象的数量以及名称—

http://www.accessoft.com/blog/article-show.asp?userid=34546&id=10288

三、实现代码：

Private Sub Command42_Click()
    On Error Resume Next
    Dim Db    As dao.Database
    Dim str   As String
    Dim i     As Integer
    Set Db = CurrentDb()
    For i = 0 To Db.TableDefs.Count - 1
        str = Db.TableDefs(i).Name
               SetHiddenAttribute acTable, str, True  '实现隐藏
              'SetHiddenAttribute acTable, str, False '实现显示
    Next
End Sub

演示图: