Export design view as a query?

[securitywyrm]

Greetings! I am inheriting a few databases of questionable integrity and need to re-evaluate all their fields. To assist with this, I'd like to export the information that you normally see in the design view of a table: Name, data type, and description. I am aware of the "Database documenter" option which can export ALL of the information of a table, but this requires significant post-processing to narrow down to relevant information. Is there an easier way to extract this information?



Really, just being able to "select all" and copy while in design view would suit my needs.

Your help is much appreciated!

[June7]

For table properties:

    Dim o As Object, p As Property, db As DAO.Database
    Set db = Application.CurrentDb
    Set o = db.Containers("tables").Documents("your table name")
    On Error Resume Next
    For Each p In o.Properties
        Debug.Print p.Name & vbTab & vbTab & p.value
    Next p
    Set o = Nothing
    Set db = Nothing

Getting content of field Description property:

Dim db As Database, tdf As TableDef, fld As Field
Set db = CurrentDb()  'change this to OpenDatabase on the BE db if your app is split
Set tdf = db.TableDefs("table name")
Set fld = tdf.Fields("field name")
On Error Resume Next 'will error if there is no info in this property
Debug.Print fld.Properties("Description")
Set tdf = Nothing
Set fld = Nothing
Set db = Nothing

Expand code to cycle through tables and fields.

Otherwise, use SnippingTool to get screenshots.