office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access隱藏所有窗體

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

前麵我們講過隱藏某箇指定窗體 可以通過右鍵和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 卽可隱藏所有報錶或者模塊瞭。

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

    分享