access最大字号限制_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)

运行效果，如图所示：