Loop durch alle Access Datenbank Container und Objekte

Sub foo()
With CurrentDb
        ' Durchlaufen der Containers-Auflistung.
        For Each ctrLoop In .Containers
            Debug.Print "Eigenschaften von" & ctrLoop.Name & " Container"
            ' Durchlaufen der Properties-Auflistung jedes
            ' Container-Objekts.
            For Each prpLoop In ctrLoop.Properties
                Debug.Print "    " & prpLoop.Name & " = "; prpLoop
            Next prpLoop
 
            For Each it In ctrLoop.Documents
                Debug.Print it.Name
            Next
        Next ctrLoop
    End With
End Sub