Изменить шрифт на всех элементах управления в отчете Microsoft Access

Question

У меня очень сложный отчет Microsoft Access. Этот отчет запускается для нескольких клиентов. Я хотел бы изменить шрифт в подмножестве ** элементов управления в отчете (их много) для конкретного клиента, но не для других. Поскольку шрифт установлен на уровне управления, возможно ли его изменить программно?

** Критерии, которые выбирают подмножество, будут основаны на текущем шрифте. Например, я хотел бы изменить шрифт на всех элементах управления, которые в настоящее время используют Arial.

Answer 1

Как насчет:

Private Sub Report_Load()
If Me.OpenArgs = "1" Then
    ChangeFont Me
End If
End Sub


Sub ChangeFont(rpt As Report)
Dim ctl As Control

    For Each ctl In rpt.Controls
        If ctl.ControlType = acSubform Then
            ChangeFont ctl.Report
        ElseIf ctl.ControlType = acTextBox Then
            If ctl.FontName = "Calibri" Then

                 ctl.FontName = "Times"
            End If
        End If
    Next
End Sub

Answer 2

Вы можете сделать что-то вроде следующего:

DoCmd.OpenReport "MyReport", acViewDesign, , , acHidden
For Each ctl In Reports.Item("AmbulanceServices")
  If ctl.FontName = "Arial" Then
    ctl.FontName = "Tahoma"
    ctl.FontSize = 10
  End If
Next
DoCmd.Save acReport, "MyReport"