Access遍歷窗體的設(shè)置窗體的相關(guān)屬性（標(biāo)題，背景顏色，關(guān)閉按鈕）

有時(shí)候，我們需要對(duì)所有窗體進(jìn)行同一操作，比如修改窗體的某個(gè)屬性，如設(shè)置所有窗體的記錄選擇器為否

那么我們需要遍歷數(shù)據(jù)庫(kù)的所有窗體，然后修改相關(guān)的屬性

下面源碼實(shí)現(xiàn)對(duì)當(dāng)前數(shù)據(jù)庫(kù)中修改所有窗體的標(biāo)題為“Office交流網(wǎng)”,記錄選擇器為“否”,導(dǎo)航按鈕為“否”

Sub AllForms()
    Dim fm As AccessObject
    For Each fm In CurrentProject.AllForms
        DoCmd.OpenForm fm.Name, acDesign
        With Forms(fm.Name)
            .Caption = "Office交流網(wǎng)"
            .RecordSelectors = False
            .NavigationButtons = False
        End With
        DoCmd.Close acForm, fm.Name, acSaveYes
    Next
End Sub

代碼運(yùn)行結(jié)果：