[AccessD] Linking Tables manually

If you know the path to the BE you can use something like the sub below, I
run this either prior to delivery or after it's on their network.  If you
run prior to delivery you can leave the .RefreshLink line commented out, it
will set the Connect string of the table to the setting for the client
network but it won't error out trying to actually use that .Connect string.

Public Sub RelinkTables()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim rst As DAO.Recordset

Set db = CurrentDb()
For Each tdf In db.TableDefs
    If tdf.Connect <> "" Then
        Debug.Print tdf.Name
        Debug.Print tdf.Connect
        tdf.Connect = ";DATABASE=F:\Database\Backend\GWD3_Dat9.mdb"
'        tdf.RefreshLink
        Debug.Print tdf.Connect
    End If
Next

rst.Close
Set rst = Nothing
db.Close
Set db = Nothing

End Sub


Chris Mackin
Denver Database Consulting, LLC
chris at denverdb.com




-----Original Message-----
From: accessd-admin at databaseadvisors.com
[mailto:accessd-admin at databaseadvisors.com]On Behalf Of Jim Hewson
Sent: Wednesday, January 29, 2003 8:34 AM
To: 'accessd at databaseadvisors.com'
Subject: [AccessD] Linking Tables manually


Folks,

New FE and BE for a client.  I can use FTP to get the files to their
network.
I know the network path from the FE to the BE.
I also know that the MSysObjects table cannot be edited manually.

Is there a way to update the links without using the Linked Table Manager at
the client's site?

Thanks,

Jim
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd