Access批量更改所有窗體控件的字體大小

在程序設計中，會根據要求設置多箇窗體供客戶操作使用。窗體控件也會按要求設置相關樣式。

但是在後續的設計的美觀，或者客戶需求的改變，往往樣式都需要微調。比如字體大小。如果逐箇窗體去修改。這無疑是一項艱辛的工作。如何批量更改窗體控件的字體大小呢？

如原程序，控件字體爲8號

在模塊中創建以下代碼：

Function frmFontSize(intFontSize As Integer)
   On Error Resume Next
    Dim obj As AccessObject, dbs As Object
    Dim ctl As Control
    Set dbs = Application.CurrentProject
    For Each obj In dbs.AllForms
        DoCmd.OpenForm obj.Name, acDesign, , , , acHidden
        For Each ctl In Forms(obj.Name).Controls   '循環更改窗體控件的字體大小
            ctl.fontsize = intFontSize
        Next
        DoCmd.Close acForm, obj.Name, acSaveYes
    Next
End Function

調用改代碼，設置控件字體爲12

frmFontSize(12)

運行效果，如圖所示：