Microsoft Accessレポートのすべてのコントロールのフォントを変更

Question

非常に複雑なMicrosoft Accessレポートがあります。このレポートは、複数の顧客に対して実行されます。私は特定の顧客のためのレポートのコントロールのサブセット**（フォントがある）にフォントを変更したいですが、他のフォントは変更しません。フォントはコントロールレベルで設定されているため、プログラムで変更することはできますか？

**サブセットを選択する基準は、現在のフォントに基づいています。たとえば、現在Arialを使用しているすべてのコントロールのフォントを変更したいとします。

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" 

Answer 1

方法について：あなたは、次のような何かを行うことができ

Answer 2

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