Posted By

qrist0ph on 05/12/08


Tagged

access


Versions (?)

Loop durch alle Access Datenbank Container und Objekte


 / Published in: Visual Basic
 

  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

Report this snippet  

You need to login to post a comment.