用代码打开链接表管理器

　　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

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

视频学习

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。