Dim ctl As Control, prp As Property, fld As Field, frm As Form, str As Variant
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
    str = obj.Name
    DoCmd.OpenForm str, acDesign
    Set frm = Forms(str)
    'search for all Controls in actual Form
    For Each ctl In frm.Controls
        If ctl.ControlType = acTextBox Then 'Einstellungen für 
        ' Texteingabefelder festlegen
            For Each prp In ctl.Properties
                Select Case prp.Name
                    Case "BackStyle" 'Hintergrundart
                        prp.Value = 1 'normal
                    Case "BackColor" 'Hintergrundfarbe
                        prp.Value = 12632256 'Grau
                    Case "ForeColor" 'Textfarbe
                        prp.Value = 0 'Schwarz
                    Case "FontName"  'Schriftart
                        prp.Value = "Arial"
                    Case "FontSize"  'Schriftgröße
                        prp.Value = 8
                    Case "FontWeight" 'Schriftbreite
                        prp.Value = 400 'Normal
                    Case "TextAlign" 'Textausrichtung
                        prp.Value = 3 'Rechtsbündig
                    Case Else
                End Select
            Next prp
        End If
        If ctl.ControlType = acLabel Then 'Einstellungen für Bezeichnungsfelder 
        ' festlegen
            For Each prp In ctl.Properties
                Select Case prp.Name
                    Case "AllowAutoCorrect" 'Autokorrektur zulassen
                        prp.Value = False
                    Case "BackStyle" 'Hintergrundart
                        prp.Value = 1
                    Case "BackColor" 'Hintergrundfarbe
                        prp.Value = 16777215 'Weiß
                    Case "ForeColor" 'Textfarbe
                        prp.Value = 0 'Schwarz
                    Case "FontName"  'Schriftart
                        prp.Value = "Arial"
                    Case "FontSize"  'Schriftgröße
                        prp.Value = 8
                    Case "FontWeight" 'Schriftbreite
                        prp.Value = 400 'Normal
                    Case "TextAlign" 'Textausrichtung
                        prp.Value = 1 'Linksbündig
                    Case Else
                End Select
            Next prp
        End If
    Next ctl
    DoCmd.Save acForm, str
    DoCmd.Close acForm, str
Next obj