Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Find linked tables 1
- Thread starter ndalli
- Start date
-
1
- #2
Paste this into the On Click event of a button:
Dim dbs As Database, tdf As TableDef
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If Len(tdf.Connect) > 0 Then
Debug.Print tdf.Name & ", is connected to: " & _
tdf.SourceTableName & ", in: " & tdf.Connect
End If
Next
Set dbs = Nothing
This will display the link info you require to the Immediate Window (Ctrl+G)
Bill
Dim dbs As Database, tdf As TableDef
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If Len(tdf.Connect) > 0 Then
Debug.Print tdf.Name & ", is connected to: " & _
tdf.SourceTableName & ", in: " & tdf.Connect
End If
Next
Set dbs = Nothing
This will display the link info you require to the Immediate Window (Ctrl+G)
Bill
- Status
Similar threads
- Locked
- Helpful tip
- Locked
- Question