Access隱藏所有窗體

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

又有網(wǎng)友問到如何把所有窗體都隱藏或者顯示呢？

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

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 或者M(jìn)odules 卽可隱藏所有報(bào)錶或者模塊瞭。

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