Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Get Table documents

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