用代码打开链接表管理器

私有子命令0_Click()

弹出链接表管理器

出错时转到错误句柄

Dim CBarMenu作为命令栏

Dim CBarCtl As CommandBarPopup

设置CBarMenu = Application。命令栏(“菜单栏”)

设置CBarCtl = CBarMenu。控件(“工具”)

设置CBarCtl = CBarCtl。控件(“数据库实用程序”)

我。定时器间隔= 500

CBarCtl。控件(“链接表管理器”)。执行

出口接头

错误句柄:

出口接头

末端接头

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '