Refresh linked tables on startup

[jcc285]

I have two problems, if I could solve the first one the second one disappears.

1. I have a split database with 50 + tables. The tables are in a folder C:\Database\Back End. When I change the front end of the database, C:\Database\Front End, having redesigned a form for example, all existing table links work fine with the exception of one table. The missing table appears in the table list in the Front End and is shown as linked. My Front End though reports that the table is not there. When I run Table linking manager to re-create the link the table is in the list and looks no different to any other. The only way is to run the Link Manager which I cannot expect my users to do, however, all then works fine.

2. To get round this I attempted to Re-link the tables on Startup within my 'Splashscreen' as follows
Private Sub ....................
'Make sure tables are correctly linked
'Set Database variables
Dim dbCurrent As DAO.Database
'Dim Tdf As DAO.TableDef
'Dim Tdfs As DAO.TableDefs
'Dim NewPathName As String
Set dbCurrent = CurrentDb()
Set Tdfs = dbCurrent.TableDefs
NewPathName = "C:\Database\Back End"
For Each Tdf In Tdfs
If Not (Tdf.Name Like "MSys*") Then
Tdf.Connect = ";DATABASE=" & NewPathName
Tdf.RefreshLink
End If
Next
Set Tdf = Nothing
Set dbCurrent = Nothing
End Sub

When this runs I get a 3051 error with the Debugger stopping at the Tdf.RefreshLink line.

I have noticed that all folders are tagged as Read Only and I don't seem to be able to remove this. If I do remove it it just comes back again !

Any help gratefully received.

[ranman256]

i use:

dim tdf as tabledef
dim db as database

set db  = currentdb
For Each tdf In db.TableDefs
   If tdf.Connect <> "" Then      tdf.RefreshLink
Next

[jcc285]

Thank you, that's sorted it. I don't know why one table loses the link but this puts it back.