Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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 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