Option Compare Database
Option Explicit

' Был шрифт
Const CURRENT_FONT_NAME = "MS Sans Serif"
' Стал шрифт
Const NEW_FONT_NAME = "Arial CYR"

' Изменение шрифта во всех формах
' Главная программа, та которую надо запускать
Sub Change_Font()
Dim dbs As Database, ctr As Container, doc As Document

    ' Возвращает ссылку на текущую базу данных.
    Set dbs = CurrentDb
    ' Возвращает ссылку на контейнер Forms.
    Set ctr = dbs.Containers!Forms
    ' Перечень содержимого семейства Documents в контейнере Forms.
    For Each doc In ctr.Documents
        ' Открывает форму в режиме конструктора
        DoCmd.OpenForm doc.Name, acDesign
        ' Вызывает функцию
        SetControlProperties Forms(doc.Name)
        ' Закрывает форму
        DoCmd.Close acForm, doc.Name, acSaveYes
        
    Next doc
Set dbs = Nothing

MsgBox "УСЁ ГОТОВО!!!"

End Sub

' Меняет шрифт с заданного на заданный
Sub SetControlProperties(frm As Form)
    Dim ctl As Control, prp As Property

    ' Перебор всех компонентов семейства Controls.
    For Each ctl In frm.Controls
        ' Перебор всех компонентов семейства Properties
        For Each prp In ctl.Properties
    
         If prp.Name = "FontName" Then
            ' Задает свойства элемента управления.
            With ctl
                If .FontName = CURRENT_FONT_NAME Then
                 .FontName = NEW_FONT_NAME
                End If
            End With
         End If
        Next prp
    Next ctl
End Sub

' Изменение шрифта во всех формах
' Главная программа, та которую надо запускать
Sub Change_Font()
Dim doc As Variant

    For Each doc In CurrentProject.AllForms
        ' Открывает форму в режиме конструктора
        DoCmd.OpenForm doc.Name, acDesign
        ' Вызывает функцию
        SetControlProperties Forms(doc.Name)
        ' Закрывает форму
        DoCmd.Close acForm, doc.Name, acSaveYes
        
    Next doc

MsgBox "УСЁ ГОТОВО!!!"
End Sub