Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-表

用代码打开链接表管理器

时 间:2007-09-17 15:32:47
作 者:竹笛   ID:8  城市:上海  QQ:2851379730点击这里给张志发消息
摘 要:    在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

本主题由微软工程师Billy Yao 提供。



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助