Does anyone have any idea of how to connect to another access database and get table names and field names? If anyone has sample coding that would help to....thnx in advance

If you link the table from the other database, it will recognize it as it's own in any code, forms, reports, or queries. On the table tab of the database window, click on new, then link table. An open dialog box will come up for you to select the other database, then it will let you choose which table.

Hope I understood what you are trying to do and was a help.


Regards,
Laura

The only thing standing between you and your goal is doubt. Quit doubting yourself and you'll be able to accomplish anything!

I thank you for your reply but unfortunately link won't help in this case. Let me explain alittle more deeper. I plan on merging two databases and I want to compare table names and fields before hand. So I plan on pulling that information into some form for visual comparison.

Well, Here's how to do it.

Sub subGetFieldNames(vtxDbName As String, vtxTableName as string)

'Print out field names to the Debug Window

Dim vdb as DAO.Database
Dim vtd as DAO.TableDef
Dim vfd as DAO.Field

   Set vdb = OpenDatabase(vtxDbName)
   set vtd = vdb.TableDefs(vtxTableName)

   For Each vfd In vtd.Fields
       debug.Print vfd.Name 'Note Intellisense tells you properties
       debug.Print vfd.Size

   'If Property does not exist from vfd.Property("PropertyName")
   'You will get an Error
   Next

   vdb.Close

End Sub

Function fuTestFieldNames()

    Call subGetFieldNames("C:\dbs\LibraryBooks.mdb", "tblBook")


End Function
---------------

You will need another loop for the Table Defs. Along the Same lines as for For Each statement.

Watch out for properites you are looking for which are not defined.
You will definitely learn more about what MS Access does to create new properties.

Sal


Database Agreements