[AccessD] Table description

Barbara,

Here's some code that will assist, hopefully. 
I got some code from AccessD (Bill Mitchell) a few years ago.
Just passing some back.

Sub testDesc()
Dim y As Long
Dim db As Database
Dim tdf As TableDef
Set db = CurrentDb()

 For y = 0 To db.TableDefs.Count - 1
        Set tdf = db.TableDefs(y)
              For z = 0 To tdf.Properties.Count - 1
                If tdf.Properties(z).Name = "Description" Then 
                Debug.Print tdf.Properties(z)
              Next z
 Next y
End Sub


jack
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Barbara Ryan
Sent: Friday, September 10, 2004 10:31 AM
To: Access List
Subject: [AccessD] Table description


I am trying to find the description of a table (Access 97) using code.  I
tried the following (which doesn't work):

For intI = 0 To db.TableDefs.Count - 1
   Set MyDef = db.TableDefs(intI)
   Debug.Print MyDef.Properties("Description").Value
Next intI

Any ideas?

Thanks,
Barb Ryan
-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com