Code Snippet "VBA Access"

Namen aller geöffneten Formulare und Steuerelemente ausgeben

Sub AlleOffenenFormulare()
    Dim frm As Form, ctl As Control

    ' Forms-Auflistung durchlaufen.
    For Each frm In Forms
        ' Name des Formulars ausgeben.
        Debug.Print frm.Name
        ' Controls-Auflistung jedes Formulars durchlaufen.
        For Each ctl In frm.Controls
            ' Namen der Steuerelemente ausgeben.
            Debug.Print ">>>"; ctl.Name
        Next ctl
    Next frm
End Sub