Relink table with code 1

[Spyder1000]

I've got a database front end and backend. I've developed my database on one PC but I need to move it to a PC that does not use the same drives.

I'd like to create a button that when pressed brought up a prompt to find the new location of the database and reconnect the tables.

Any help?

 

[snyperx3]

Public Sub RelinkTables(NewPathname As String)
    Dim Dbs As Database
    Dim Tdf As TableDef
    Dim Tdfs As TableDefs
    Set Dbs = CurrentDb
    Set Tdfs = Dbs.TableDefs
'Loop through the tables collection
       For Each Tdf In Tdfs
        If Tdf.SourceTableName <> "" Then 'If the table source is other than a base table
            Tdf.Connect = ";DATABASE=" & NewPathname 'Set the new source
            Tdf.RefreshLink 'Refresh the link
        End If
    Next 'Goto next table
End Sub

as found on

http://www.fabalou.com/Access/Modules/refreshtables.asp

-Pete