Call Link Table Manager windows from VBA

  • Thread starter Thread starter SF
  • Start date Start date
S

SF

Hi,

I have a database put in the shared drive with front end (on user PC) link
to it. Now several users wnat to have a copy of the backend on their laptop
so that they can refer to the infomation on the database while working in
the field.

I thought to allow them to copy the backend mdb to their laptop and allow
them to relink tables but I cannot find a way to call the Link Table Manager
since the menu bar is disable. Is there a way to call Link Table Manager
from VBA?

SF
 
You would be better to implement some re-linking code.
This code will check for the DB on the network share and auto re-link to a
common folder on each laptop if not present.

You can try a Google for 'Access auto re-link' or look in the code library
on mdbmakers.com

I did this for someone a while back. I'll have a look for the code and post
it if I can find it.

Steve
 
SF said:
I thought to allow them to copy the backend mdb to their laptop and allow
them to relink tables but I cannot find a way to call the Link Table Manager
since the menu bar is disable. Is there a way to call Link Table Manager
from VBA?
Click to expand...

No. Relink Access tables from code
http://www.mvps.org/access/tables/tbl0009.htm

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/
 
Is there a way to call Link Table Manager
from VBA?
Click to expand...

Others have mentioned that it's better to write your own code (and
it is), precisely because you can't count on it being installed. But
here's code to do it (though it's only been tested through A2K2):

Private Sub OpenLinkedTableManager()
On Error GoTo errHandler

Select Case SysCmd(acSysCmdAccessVer)
Case "8.0"
Application.Run ("wztool80.att_Entry")
Case "9.0", "10.0"
Application.Run ("acwztool.att_Entry")
End Select

exitRoutine:
Exit Sub

errHandler:
Select Case Err.Number
Case 2517
MsgBox "The Linked Table Manager does not appear to be _
installed." & vbCrLf & " " & vbCrLf & _
"To install it, re-run Access installation and select _
ADVANCED WIZARDS.", vbExclamation, "Not installed"
Case Else
MsgBox Err.Number & ": " & Err.Description, _
vbExclamation, "Error in OpenLinkedTableManager()"
End Select
Resume exitRoutine
End Sub
 
Back
Top