dao.property fld.Properties Values

[DDBeards]

Ok, I have a question that I am sure I am not asking right but help the best
you can.

I am using code I got from a great answer to fill a table with field names,
types, descriptions ect..(shown at the bottom of message). I works great!
However in the field value type there appears a number between 1 and 12.
What I would like is to find the table that shows me what these numbers
relate to. For instance a text or lookup field have the value of 10 and
numbers have a value or 4. Any idea where I can find this list.

Thanks Chris

Public Function getColNamesAndProps()
On Error GoTo ErrHandler
Dim db As Database
Dim tbl As TableDef
Dim fld As DAO.Field
Dim prp As DAO.Property
Dim sqlStmt As String
Dim fSkipExecute As Boolean

Set db = CurrentDb()

For Each tbl In db.TableDefs
If ((Mid$(tbl.Name, 1, 4) <> "MSys") And (Mid$(tbl.Name, 1, 7) <>
"~TMPCLP")) Then
For Each fld In tbl.Fields
For Each prp In fld.Properties
sqlStmt = "INSERT INTO tblColNames (TableName, ColName,
PropName, PropValue) " & "VALUES ('" & Replace(tbl.Name, "'", "''", 1, -1,
vbDatabaseCompare) & "', '" & Replace(fld.Name, "'", "''", 1, -1,
vbDatabaseCompare) & "', '" & prp.Name & "', '" & Replace(CStr(prp.Value),
"'", "''", 1, -1, vbDatabaseCompare) & "');"

If (Not (fSkipExecute)) Then
db.Execute sqlStmt, dbFailOnError
Else
fSkipExecute = False ' Reset.
End If
Next prp
Next fld
End If
Next tbl
more ...