[AccessD] Table description

Thanks, Jack....that worked!.................Barb



----- Original Message ----- 
From: <Drawbridge.Jack at ic.gc.ca>
To: <accessd at databaseadvisors.com>
Sent: Friday, September 10, 2004 3:58 PM
Subject: RE: [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
> -- 
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com