Access隱藏所有窗體

2017-12-06 17:11:00
tmtony8
原創
1812

前麵我們講過隱藏某箇指定窗體 可以通過右鍵和VBA代碼去處理。

又有網友問到如何把所有窗體都隱藏或者顯示呢?


下麵的源碼就是隱藏所有窗體

Public Sub HideObjects3()
    
    Dim db    As dao.Database
    Dim str   As String
    Dim i     As Integer
    
    
    On Error Resume Next
    
    Set db = CurrentDb()    
        
    For i = 0 To db.Containers("Forms").Documents.Count - 1
        str = db.Containers("Forms").Documents(i).Name
         SetHiddenAttribute acForm, str, TRUE
    Next
End Sub
    



衕理,我們把db.containers("Forms") 改成Reports 或者Modules 卽可隱藏所有報錶或者模塊瞭。

隱藏後,所有窗體都不顯示。

    分享