or
DoCmd.RunCommand acCmdLinkedTableManager
在Access 2002中，可以使用AcCommand - acCmdLinkedTableManager 來直接打開鏈接表管理器，並且其內碼設置為 519，所以您也可以通過直接使用該內碼打開鏈接表管理器： DoCmd.RunCommand 519
但是在Access 2000中，沒有acCmdLinkedTableManager這個命令，也沒有內置的內碼，所以您基本上無法通過 DoCmd.RunCommand(Command)，命令來直接打開鏈接表管理器。
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command0_Click()
'Pop up the Link Table Manager
On Error GoTo ErrorHandle
Dim CBarMenu As CommandBar
Dim CBarCtl As CommandBarPopup
Set CBarMenu = Application.CommandBars("Menu Bar")
Set CBarCtl = CBarMenu.Controls("Tools")
Set CBarCtl = CBarCtl.Controls("Database UtilitIEs")
Me.TimerInterval = 500
CBarCtl.Controls("Linked Table Manager").Execute
Exit SubErrorHandle:
Exit Sub
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
另外一種更加簡單的方法是利用 Macro 做以下設置：
Action: Sendkeys
Keystrokes: %TDL
Wait: No
這樣，您就可以直接運行或者調用這個宏來打開鏈接表管理器了。
這裡附加一句：
因為 CommandBar 和 CommandBarPopup 對象在Microsoft Office 10 Object Library，所以編譯代碼前，請先把這個 Reference 加進來。 :)
----------------------------------------------
Private Sub Command0_Click()
' Pop up the Link Table Manager
On Error GoTo ErrorHandle
Dim CBarMenu As CommandBar
Dim CBarCtl As CommandBarPopup
Set CBarMenu = Application.CommandBars("Menu Bar")
Set CBarCtl = CBarMenu.Controls("Tools")
Set CBarCtl = CBarCtl.Controls("Database UtilitIEs")
Me.TimerInterval = 500
CBarCtl.Controls("Linked Table Manager").Execute
Exit Sub
ErrorHandle:
Exit Sub
End Sub
