如何隱藏/顯示Access數(shù)據(jù)庫某個(gè)表或者其他數(shù)據(jù)庫對象

[重要通告]如您遇疑難雜癥,本站支持知識(shí)付費(fèi)業(yè)務(wù),掃右邊二維碼加博主微信,可節(jié)省您寶貴時(shí)間哦!

方法一：

　　手動(dòng)操作如下：
　　隱藏：右鍵單擊某個(gè)表或者查詢等對象->屬性 ->隱藏
　　顯示：菜單->工具->選項(xiàng)->視圖->“隱藏對象”復(fù)選框前面打勾->確定后退出
　　右鍵單擊某個(gè)表或者查詢等對象->屬性 ->去掉“隱藏”前面的勾

　　方法二：

　　最簡單而有效的一個(gè)方法就是以“usys”開頭命名。因?yàn)閍ccess認(rèn)為這個(gè)字符串開頭的是系統(tǒng)文件，而系統(tǒng)文件一般是不顯現(xiàn)的。如果要看到，那么在“工具”－“選項(xiàng)”－“視圖”中選中“系統(tǒng)對象”就可以了。記住，不要修改其他不屬于你的文件，因?yàn)槟呛芪ｋU(xiǎn)。

　　方法三：

　　用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ù)輸入一個(gè)常量；acDefault 不是有效的輸入項(xiàng)。

　　AcObjectType 可以是下列 AcObjectType 常量之一：
　　acDataaccessPage
　　acDefault
　　acDiagram
　　acForm
　　acFunction
　　acMacro
　　acModule
　　acQuery
　　acReport
　　acServerView
　　acStoredProcedure
　　acTable

　　ObjectName String 型，必需。字符串表達(dá)式，標(biāo)識(shí) access 對象的名稱。

　　fHidden Boolean 型，必需。值為 True 會(huì)設(shè)置隱藏屬性，值為 False 則會(huì)清除隱藏屬性。

　　說明
　　GetHiddenAttribute 和 SetHiddenAttribute 方法一起使用時(shí)，可提供一種通過 Visual Basic 代碼改變對象隱藏屬性的方法。使用這兩個(gè)方法，可以設(shè)置或讀取對象的“屬性”對話框中可用的隱藏選項(xiàng)。

　　若要使用 SetHiddenAttribute 方法來設(shè)置該選項(xiàng)，可將參數(shù)設(shè)為 True 或 False，如下例所示。

　　Application.SetHiddenAttribute acTable,"Customers", True

問題未解決？付費(fèi)解決問題加Q或微信 2589053300 (即Q號(hào)又微信號(hào))右上方掃一掃可加博主微信

所寫所說，是心之所感，思之所悟，行之所得；文當(dāng)無敷衍，落筆求簡潔。 以所舍，求所獲；有所依，方所成！