如何隱藏/顯示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