Thanks Brendan, worked!

"Brendan Reynolds" brenreyn at indigo dot ie wrote in message
...
Public Sub ListDescriptions()

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb
For Each tdf In db.TableDefs
If Left$(tdf.Name, 4) "MSys" Then
For Each fld In tdf.Fields
Debug.Print tdf.Name, fld.Name, ;
On Error Resume Next
Debug.Print fld.Properties("Description");
On Error GoTo 0
Debug.Print
Next fld
End If
Next tdf

End Sub

--
Brendan Reynolds (MVP)


"Cindy H" wrote in message
...
Hi,



I need to create a list of all the data elements used in my project. The
list needs to include the descriptions that I typed into the description
column of the table design view. I've tried the
Tools-Analyze-Documenter, but it does not show the description column
data. Any ideas how to extract the description so I don't have to retype
all this info to create a data element dictionary?



Thanks, Cindy H