Access徹底隱藏錶顯示錶

2017-09-18 16:48:00
tmtony8
原創
5790

有網友問及爲瞭安全起見,如何徹底隱藏所有Access錶?這樣就能避免其他員工誤刪瞭數據錶。

一般的操作是在客戶端中設置隱藏繫統錶。

1、菜單欄-文件-選項-當前數據庫 中的導航選項,“顯示隱藏對象”“顯示繫統對象”的“√”去掉。詳細的設置這裡不再纍贅。


2、這裡講的是利用DAO代碼徹底隱藏數據錶。直接通過代碼隱藏。TableDefs.Attributes屬性0爲顯示,1爲隱藏


詳細源碼:

Private Sub 顯示_Click()
    Dim tdf As Object
    
    
    For Each tdf In CurrentDb.TableDefs
        tdf.Attributes = 0
        Application.RefreshDatabaseWindow
        
        
    Next
End Sub

Private Sub 隱藏_Click()
    Dim tdf As Object
    
    For Each tdf In CurrentDb.TableDefs
        tdf.Attributes = 1
        Application.RefreshDatabaseWindow
        
    Next
End Sub

    分享