Can't repoint linked tables

[fastfish]

db is split access 2000

trying to replace production front end with the new dev front end

different path for the _be (linked tables) in the dev environment than
in production

when i start the new front end it stops w/ error "can't find linked
tables" then bails out w/out giving me a chance to change the path.

in the dev environment i can't put in a false path for linked tables
that would be true in the production environment.

any ideas?

-chris

[Terry Kreft]

Create another mdb file then you can open a reference to the new fe, iterate
through the tables collection and reset the connect property of the linked
tables, something like:-
Const FE_DB_PATH = "<enter the path to the fe db here>"
const BE_DB_CONNECT = "<enter the new connectdetails forthe ables here>"

dim loDb as DAO.Database
dim loTab as DAO.TableDef

set loDb = OpenDatabase(FE_DB_PATH)

for each loTab in loDb.Tabledefs
If Len(loTab.Connect) > 0 Then
With loTab
.Connect = BE_DB_CONNECT
.RefreshLink
End With
End If
Next

Set loTab = Nothing
loDb.Close
Set loDb = Nothing

Obviouly you need to change whats between the quotes in the declaration for
FE_DB_PATH and BE_DB_CONNECT.
--

Terry Kreft
"fastfish" <fa******@gmail.com> wrote in message
news:11**********************@g49g2000cwa.googlegr oups.com...

db is split access 2000

trying to replace production front end with the new dev front end

different path for the _be (linked tables) in the dev environment than
in production

when i start the new front end it stops w/ error "can't find linked
tables" then bails out w/out giving me a chance to change the path.

in the dev environment i can't put in a false path for linked tables
that would be true in the production environment.

any ideas?

-chris