|
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
|
