James,
Consider creating a new standard module and adding this DAO code:
Function GetConnections()
Dim td As DAO.TableDef
Dim qd As DAO.QueryDef
Dim db As DAO.Database
Dim strConnect As String
Set db = CurrentDb
For Each td In db.TableDefs
If Len(td.Connect)> 1 Then
Debug.Print td.Name & " " & td.Connect
End If
Next
For Each qd In db.QueryDefs
If Len(qd.Connect)> 1 Then
Debug.Print qd.Name & " " & qd.Connect
End If
Next
Set td = Nothing
Set qd = Nothing
Set db = Nothing
End Function
You can then open the debug window (press Ctrl+G) and enter:
?GetConnections()
You will get a display of all your table and query connection strings.
Duane Hookom MVP
MS Access
________________________________
> From: forums01@james-mc.com
>
>
> James
> www.james-mc.com<http://www.james-mc.com>
> Words To Live By
>
> I'm using Access 2010 and have a number of linked tables (mostly Excel
> files but at least one Access file). I've made some changes in
> directory structure, and that broke the links to several of the linked
> tables. I can visually spot a bad one by hovering the mouse cursor over
> a table's icon in the sidebar, which pops up the path, but I'm
> wondering if there's a better way to identify which ones have broken
> links since there's no error given when I run the a query that involves
> the linked table.
>
> I've been fixing the broken links (with the linked table manager) as I
> find them but would appreciate suggestions for a more efficient way to
> handle that as well.
>
> Hopefully this is clear.
>
> Thanks for any pointers.
------------------------------------
Yahoo Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/MS_Access_Professionals/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/MS_Access_Professionals/join
(Yahoo! ID required)
<*> To change settings via email:
MS_Access_Professionals-digest@yahoogroups.com
MS_Access_Professionals-fullfeatured@yahoogroups.com
<*> To unsubscribe from this group, send an email to:
MS_Access_Professionals-unsubscribe@yahoogroups.com
<*> Your use of Yahoo Groups is subject to:
http://info.yahoo.com/legal/us/yahoo/utos/terms/
Tidak ada komentar:
Posting Komentar