|
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 docs.Count
For Each doc In docs
Debug.Print doc.Container
Debug.Print doc.DateCreated
Debug.Print doc.LastUpdated
Debug.Print doc.Name
Debug.Print doc.Owner
Next doc
End Sub
|