|
Sub exaTablesDocuments()
Dim db As Database
Set db = CurrentDb
Dim docs As Documents
Dim doc As Document
Set docs = db.Containers!Tables.Documents
Debug.Print "Count: " & docs.Count
For Each doc In docs
Debug.Print "Container: " & doc.Container
Debug.Print "DateCreated: " & doc.DateCreated
Debug.Print "LastUpdated: " & doc.LastUpdated
Debug.Print "Name: " & doc.Name
Debug.Print "Owner: " & doc.Owner
Debug.Print
Next doc
End Sub
|