用代码更改所有窗体控件的字体

时　间:2017-02-23 08:22:02
作　者:MDZZ   ID：47512  城市：南京
摘　要:用代码更改所有窗体控件的字体
正　文:

最近有人问我 如何用代码更改窗体控件的字体   答曰 ME.控件名.FontName =字体名   继续追问如何更改所有窗体所有控件的字体呢 

这里就需要写个函数了

Function ChangeFont(ziti As String)
    On Error Resume Next
    Dim frm As Object 'AccessObject
    Dim ctl As Object 'Control
   
    For Each frm In Application.CurrentProject.AllForms
            DoCmd.OpenForm frm.Name, acDesign, , , , acHidden 
            For Each ctl In Forms(frm.Name).Controls   '更改窗体控件的字体 
               ctl.FontName = ziti
            Next
            DoCmd.Close acForm, frm.Name, acSaveYes
    Next
    MsgBox "字体设置完成。", vbInformation
End Function

调用示例

Call ChangeFont("隶书")