On Thu, 13 Mar 2008 08:52:38 -0500, "M Skabialka"
I ran this on an older db (from within A2007) and got some interesting
results.
Sub test()
Dim db As Database
Dim doc As Document
Dim prp As Property
Set db = CurrentDb
For Each doc In db.Containers!Databases.Documents
For Each prp In doc.Properties
Debug.Print doc.Name, prp.Name, prp.Value
Next prp
Next doc
End Sub
Results included:
MSysDb AccessVersion 08.50
-Tom.