Docmd.RunCommand.LinkedTableManager

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 Sub
 
ErrorHandle:

   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

(责任编辑：admin)

• ·如何将数据表导出备份到excel表格
• ·在表中用组合框选择备选项目
• ·如何设置表的Caption和Description属性
• ·用Access实现学校课程表的科学管理
• ·在表中设置美元等货币符号的方法
• ·Access建表需注意的问题（建表原则）
• ·Access获取表下个自动增加的ID值【两种
• ·Access光标在文本框的右边
• ·Access格式、掩码、文本有效性的异同
• ·access中的掩码
• ·【技巧】Access时间函数汇总（一）
• ·Access隐藏表中的列
• ·Excel与Access简便联系方法
• ·Word文本文件导入到Access2007与导出的
• ·ACCESS字段中设置默认日期值函数大全
• ·ACCESS的真假：三、往一个表中插入10万