refresh table links problem

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am using the following code to check the links in my FE.

sConnect = ""
For i = 0 To db.TableDefs.Count - 1
If db.TableDefs(i).Connect <> "" Then
If db.TableDefs(i).Connect <> sConnect Then
sConnect = db.TableDefs(i).Connect
db.TableDefs(i).RefreshLink
' If there's no error, return True.
If err = 0 Then
CheckLinks = True
Else
CheckLinks = False
Exit Function
End If
End If
End If
Next

However, I kept getting a "False" return value so I checked to see what
table it is not finding in the BE. The table it keeps dying on is one that
is no longer linked in my FE and does not exit in my BE. It did at one time,
but isn't being used now so I got rid of it.

I deleted all of the links in my FE and then recreated them. However, it
still is not working. Any suggestions?

Thanks in advance!
 
open a database object to the BE.mdb and relink only the existing tables non
existing tables are deleted.

- Raoul
 
Thanks. I ended up just running a docmd.DeleteObject and told it to "delete"
the offending table. That seemed to do the trick.
 
Back
Top