回答：
如何隱藏/顯示某個表或者其他數(shù)據(jù)庫對象？《表》
方法一：
手動操作如下：
隱藏：右鍵單擊某個表或者查詢等對象->屬性 ->隱藏
顯示：菜單->工具->選項(xiàng)->視圖->“隱藏對象”復(fù)選框前面打勾->確定后退出
右鍵單擊某個表或者查詢等對象->屬性 ->去掉“隱藏”前面的勾
方法二：
最簡單而有效的一個方法就是以“usys”開頭命名。因?yàn)閍ccess認(rèn)為這個字符串開頭的是系統(tǒng)文件，而系統(tǒng)文件一般是不顯現(xiàn)的。如果要看到，那么在“工具”－“選項(xiàng)”－“視圖”中選中“系統(tǒng)對象”就可以了。記住，不要修改其他不屬于你的文件，因?yàn)槟呛芪ｋU。
方法三：
用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
同理，你還可以隱藏其他的數(shù)據(jù)庫對象，一樣使用 ADO
方法四：
用access內(nèi)置的 SetHiddenAttribute 方法
SetHiddenAttribute 方法用于設(shè)置 access 對象的隱藏屬性。
expression.SetHiddenAttribute(ObjectType, ObjectName, fHidden)
expression 必需。返回 Application 對象的表達(dá)式。
ObjectType AcObjectType，必需。必須為 ObjectType 參數(shù)輸入一個常量；acDefault 不是有效的輸入項(xiàng)。
AcObjectType 可以是下列 AcObjectType 常量之一：
acDataaccessPage
acDefault
acDiagram
acForm
acFunction
acMacro
acModule
acQuery
acReport
acServerView
acStoredProcedure
acTable
ObjectName String 型，必需。字符串表達(dá)式，標(biāo)識 access 對象的名稱。
fHidden Boolean 型，必需。值為 True 會設(shè)置隱藏屬性，值為 False 則會清除隱藏屬性。
說明
GetHiddenAttribute 和 SetHiddenAttribute 方法一起使用時，可提供一種通過 Visual Basic 代碼改變對象隱藏屬性的方法。使用這兩個方法，可以設(shè)置或讀取對象的“屬性”對話框中可用的隱藏選項(xiàng)。
若要使用 SetHiddenAttribute 方法來設(shè)置該選項(xiàng)，可將參數(shù)設(shè)為 True 或 False，如下例所示。
Application.SetHiddenAttribute acTable,"Customers", True
如何隱藏/顯示某個表或者其他數(shù)據(jù)庫對象？《表》
方法一：
手動操作如下：
隱藏：右鍵單擊某個表或者查詢等對象->屬性 ->隱藏
顯示：菜單->工具->選項(xiàng)->視圖->“隱藏對象”復(fù)選框前面打勾->確定后退出
右鍵單擊某個表或者查詢等對象->屬性 ->去掉“隱藏”前面的勾
方法二：
最簡單而有效的一個方法就是以“usys”開頭命名。因?yàn)閍ccess認(rèn)為這個字符串開頭的是系統(tǒng)文件，而系統(tǒng)文件一般是不顯現(xiàn)的。如果要看到，那么在“工具”－“選項(xiàng)”－“視圖”中選中“系統(tǒng)對象”就可以了。記住，不要修改其他不屬于你的文件，因?yàn)槟呛芪ｋU。
方法三：
用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
同理，你還可以隱藏其他的數(shù)據(jù)庫對象，一樣使用 ADO
方法四：
用access內(nèi)置的 SetHiddenAttribute 方法
SetHiddenAttribute 方法用于設(shè)置 access 對象的隱藏屬性。
expression.SetHiddenAttribute(ObjectType, ObjectName, fHidden)
expression 必需。返回 Application 對象的表達(dá)式。
ObjectType AcObjectType，必需。必須為 ObjectType 參數(shù)輸入一個常量；acDefault 不是有效的輸入項(xiàng)。
AcObjectType 可以是下列 AcObjectType 常量之一：
acDataaccessPage
acDefault
acDiagram
acForm
acFunction
acMacro
acModule
acQuery
acReport
acServerView
acStoredProcedure
acTable
ObjectName String 型，必需。字符串表達(dá)式，標(biāo)識 access 對象的名稱。
fHidden Boolean 型，必需。值為 True 會設(shè)置隱藏屬性，值為 False 則會清除隱藏屬性。
說明
GetHiddenAttribute 和 SetHiddenAttribute 方法一起使用時，可提供一種通過 Visual Basic 代碼改變對象隱藏屬性的方法。使用這兩個方法，可以設(shè)置或讀取對象的“屬性”對話框中可用的隱藏選項(xiàng)。
若要使用 SetHiddenAttribute 方法來設(shè)置該選項(xiàng)，可將參數(shù)設(shè)為 True 或 False，如下例所示。
Application.SetHiddenAttribute acTable,"Customers", True