Get Table Data

[jo15765]

I am wanting to open the database stored in the variable filename. It prints the proper full location, and has 1 table in it called TestTable, however when I execute the code below it only prints the table names of the database I am executing the code from (which has no tables). How can I change the focus to the secondary database?

 Function GetTableInfo(ByVal filename As String)
 Dim accapp As Access.Application
 Set accapp = New Access.Application
 Debug.Print (filename)
 accapp.OpenCurrentDatabase (filename)
 accapp.Visible = True
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Set db = CurrentDb
    For Each tdf In db.TableDefs
    Debug.Print (tdf.name)
        If Not (tdf.name Like "MSys*") Then
            WriteData tdf.name, tdf.connect
        End If
    Next
    Set tdf = Nothing
    Set db = Nothing
 End Function

[ranman256]

if the internal db tables have no links, then there will be no connect path.
If you want the paths to a different db, run this code in THAT database.

[jo15765]

if the internal db tables have no links, then there will be no connect path.
If you want the paths to a different db, run this code in THAT database.

that is where my issue lies. I am recursively scanningn for .accdb files in a folder, and I want to open each .accdb found and list the linked tables.

So I am needing a parent --> child relationship or master --> sub.

Master would be the db I am executing code from and sub would be the database that was opened to get table info.

[aytee111]

For Each tdf In db.TableDefs

You are looping thru the TableDefs of db which is set to CurrentDB. Change the line to "Set db = accapp.CurrentDb"