Friendsnippets

 1 Sub foo()
 2 With CurrentDb
 3         ' Durchlaufen der Containers-Auflistung.
 4         For Each ctrLoop In .Containers
 5             Debug.Print "Eigenschaften von" & ctrLoop.Name & " Container"
 6             ' Durchlaufen der Properties-Auflistung jedes
 7             ' Container-Objekts.
 8             For Each prpLoop In ctrLoop.Properties
 9                 Debug.Print "    " & prpLoop.Name & " = "; prpLoop
10             Next prpLoop
11             
12             For Each it In ctrLoop.Documents
13                 Debug.Print it.Name
14             Next
15         Next ctrLoop
16     End With
17 End Sub