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 即可隱藏所有報表或者模塊了。

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