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

在程序設(shè)計(jì)中，會(huì)根據(jù)要求設(shè)置多個(gè)窗體供客戶操作使用。窗體控件也會(huì)按要求設(shè)置相關(guān)樣式。

但是在后續(xù)的設(shè)計(jì)的美觀，或者客戶需求的改變，往往樣式都需要微調(diào)。比如字體大小。如果逐個(gè)窗體去修改。這無疑是一項(xiàng)艱辛的工作。如何批量更改窗體控件的字體大小呢？

如原程序，控件字體為8號(hào)

在模塊中創(chuàng)建以下代碼：

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   '循環(huán)更改窗體控件的字體大小
            ctl.fontsize = intFontSize
        Next
        DoCmd.Close acForm, obj.Name, acSaveYes
    Next
End Function

調(diào)用改代碼，設(shè)置控件字體為12

frmFontSize(12)

運(yùn)行效果，如圖所示：