Dim db As Database
Dim td As TableDef
DatDatabase.DatabaseName = TxtText1.Text
Set db = OpenDatabase(TxtText1.Text)
For Each td In db.TableDefs
List1.AddItem td.Name
Next
Dim fld as Field
For Each fld in db.TableDefs(tablename).Fields
List1.AddItem fld.Name
Next
Morris <mor...@chch.planet.org.nz> wrote in article
<3453B8...@chch.planet.org.nz>...
> How can I display a list of field in a table?
the listfields method will allow you to create a snapshot of the fields in
a recordset.
--
---------------------------------------------------------------------------
Ken Hagans
k...@kgh.com
http://www.kgh.com