Link manager 2

[Corsica]

When I run one of my database systems on my work computer, linked tables can be managed using the 'link manager' which is available by right-clicking on the linked table. However, when I work at home the link manager is not available, despite the fact that I have done a full install of my XP Professional Software, which is the same software package that runs of my work computer.

I would like to install in my home computer the neccessary files that will provide me with the link manager...

-The XP Pro discs that were used to install XP Pro on my work computer are not available to me.

Any ideas, feedback, suggestions, would be much appreciated!

Thanks,
CSC

 

[hymn]

Tools
Database Utilities
Linked Table Manager
Is the way to go on my Computer

Hope this helps
Hymn

 

[mustangcoupe]

do You need the link table manager or would code to link your tables be just as good??

Private Function ReconnectTables() As Boolean
On Error Resume Next

    Dim tdf As DAO.TableDef
    Dim dbs As DAO.Database
    Dim StrPath As String
    Dim strConnect As String
    
    Set dbs = CurrentDb
    
    StrPath = dbs.Name
    StrPath = Left(StrPath, LastInStr(StrPath, "\"))

    strConnect = "" 'access BE location

    For Each tdf In dbs.TableDefs
        If tdf.Connect <> "" Then
            tdf.Connect = ";DATABASE=" & strConnect
            tdf.RefreshLink
        End If
    Next
    
    Set dbs = Nothing
    If Err.Number = 0 Then ReconnectTables = True
    
End Function

--Todd


TechnicalUser pretending to be a programmer(shhh… the boss doesn’t know yet)

 

[Corsica]

Hi,

This is just to says thanks to Hymn (lovely name!) and Mustangcoupe for their answers to my question.

-Both answers 'did the trick'!

Many thanks to both of you...

CSC

 

[hymn]

Pleasure
thanks for the star

Hope this helps
Hymn

 

[mustangcoupe]

glad it worked

--Todd


TechnicalUser pretending to be a programmer(shhh… the boss doesn’t know yet)