Table Description retrieval

[TheRealDeal]

Is it possible to return the Description of a Table for VBA? If so, how? I am wanting to use the Description of the table in a form to update the end-user about which table is being dynamically processed.

 

[ByteMyzer]

Try this function:

Public Function tableDescription(tableName As String) As String

    Dim Db As Database, Prp As Property
    Set Db = CurrentDb

    For Each Prp In Db.TableDefs(tableName).Properties
        If Prp.name = "Description" Then tableDescription = Prp.Value
    Next

    Db.Close
    Set Db = Nothing

End Function

For example, if the table MyTable has the Description as My Very Own Table, then:

?tableDescription("MyTable")

...will return: [tt]My Very Own Table[/tt]