Sub Change_All_Reports()
Dim rpt As Report
Dim dbs As Object
Dim ct As DAO.Container
Dim obj As AccessObject
Dim rptname As String
Dim sSQl As String
On Error GoTo Err_Change_All_Reports
Set dbs = Application.CurrentProject
'Alle Reports im Projekt durchlaufen und öffnen
For Each obj In dbs.AllReports
    rptname = obj.Name' nur zum leichteren Debuggen
    DoCmd.OpenReport obj.Name, acViewDesign
    Report_Anpassen obj
Next obj
 
Err_Change_All_Reports:
If Err.Number <> 0 Then
    MsgBox Err.Number & " " & Err.Description
    Resume Exit_Change_All_Reports
End If
 
Exit_Change_All_Reports:
Exit Sub
 
End Sub
 
' das ist die Funktion zum ändern der Report-Controls!
Function Report_Anpassen(rpt As Object) As String
Dim ctl As Control
On Error GoTo Err_Report_Anpassen
For Each ctl In rpt.Controls' und hier steigt er mir jetzt aus - Fehler 438 - 
                           'Objekt unterstützt diese Eigenschaft oder Methode 
                           ' nicht
    'bei Textfeldern
    If ctl.ControlType = acTextBox Then
        ctl.FontName = "Arial"
        ctl.FontSize = 11
    End If
Next ctl
DoCmd.Save acReport, rpt.Name
 
Err_Report_Anpassen:
If Err.Number <> 0 Then
    MsgBox Err.Number & " " & Err.Description
    Resume Exit_Report_Anpassen
End If
 
Exit_Report_Anpassen:
Exit Function
 
End Function