HI
please look at the function below (use cut and paste!)
I could not found how to access field descriptions with VB 3.0
It workes fine with Access 2.0 !!!
Any Idea ?
Hans

Function test ()
' This ACCESS 2.0 Function shows for all Tables Fields Names AND Field
DESCRIPTIONS !!!                                            
' Problem: it does not work with Visual Basic 3.0 (prof. version)
' the line:  text =db.tabledefs(i).fields(j).properties("description")
' does not work (VB 3.0 prof. version)

Dim db As Database
' If Visual Basic the use next line
' set db = opendatabase ("C:\....")
' if Visual Basic then comment out next line
Set db = CurrentDB()
For i = 0 To db.tabledefs.count - 1
If (db.tabledefs(i).Attributes) = 0 Then
  Debug.Print "Table:", db.tabledefs(i).name
  For j = 0 To db.tabledefs(i).fields.count - 1
    text = db.tabledefs(i).fields(j).properties("description") If
    Not IsNull(text) Then
       Debug.Print db.tabledefs(i).fields(j).name, text
    End If
  Next j
End If
Next i
End Function

Hans,

I haven't actually looked at your code but if you want a function to return the description of
a field you can use this function.

Function GetFieldDescription(ByVal TableName As String, ByVal FieldName As String)

  Dim Db As Database
  Dim Td As TableDef
  Dim Fld As Field

  On Error GoTo errGetFieldDescription

  Set Db = DBEngine.Workspaces(0).Databases(1)

  Set Td = Db.TableDefs("mp" + TableName)
  Set Fld = Td.Fields(FieldName)

  GetFieldDescription = Fld.Properties("Description")

EndGetFieldDescription:
  Exit Function

errGetFieldDescription:
  GetFieldDescription = Null
  Resume Next
  Resume EndGetFieldDescription

End Function

Hope this helps

Fergal Moran.

Ammendment to last mail

the line   Set Td = Db.TableDefs("mp" + TableName)
should read   Set Td = Db.TableDefs(TableName)

Sorry but it's a throwback from the app I copied it from.