tabeldefs to linked tables conversion

[waely]

hi,
can some one help converting the codes from connection to local tables to linked tables. I have this piece of codes:
---------------------------------------------------
for each fld In dbs.TableDefs(tbls(tableNr)).Fields
backuptbl.fields.append backuptbl.createField(fld.name, fld.type)
Next fld
dbs.TableDefs.Append backup
---------------------------------------------------
I'm using linked tables now so I need to change tabledefs syntax. can someone help?

thanks in advance,

 

[SkipVought]

Hi,

If you have linked tables into your database, the linked tables have tabledefs a well as internal tables.

Sub test()
    Dim tdf As TableDef, fld As Field, dbs As Database
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
        For Each fld In tdf.Fields
             MsgBox tdf.Name & ":" & fld.Name
        Next fld
    Next
End Sub

Skip,
[sub]
[red]Be Advised![/red]
The band of elderly oriental musicians, known as Ground Cover, is, in reality...
Asian Jasmine![/sub]