[AccessD] Export Metadata or Schema

Dim db as dao.database
Dim tdf as dao.tabledef
Dim fld as dao.field
set db = currentdb
For each tdf in db.tabledefs
  For each fld in tdf.fields
    debug.print fld.name
  Next fld
Next tdf
set db = nothing

Michael R. Mattys
MapPoint & Access Dev
www.mattysconsulting.com

----- Original Message ----- 
From: "Joe Rojas" <JRojas at tnco-inc.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Monday, July 30, 2007 1:54 PM
Subject: [AccessD] Export Metadata or Schema


> Hello,
>
> Is there a way in Access (I'm using 2007 but DB is 2000 format) to
> export the information that is displayed when you are working with a
> table in Design View?
>
> I am trying to compare the structure of two tables and I thought it
> would be user to compare this if I could export or copy and paste into
> Excel.
>
> Thanks in advance!
>
> Joe Rojas
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com