用代码打开链接表管理器
私有子命令0_Click()
弹出链接表管理器
出错时转到错误句柄
Dim CBarMenu作为命令栏
Dim CBarCtl As CommandBarPopup
设置CBarMenu = Application。命令栏(“菜单栏”)
设置CBarCtl = CBarMenu。控件(“工具”)
设置CBarCtl = CBarCtl。控件(“数据库实用程序”)
我。定时器间隔= 500
CBarCtl。控件(“链接表管理器”)。执行
出口接头
错误句柄:
出口接头
末端接头
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
0条评论