有建立链接的代码实现吗？

数据如山

有些系统菜单上的功能可以通过自编代码来实现，比如文件或数据导出，导入等。
我想请教各位大哥的是，连接其他库的表不用系统菜单而用自己的代码可以实现否？

zhengjialon

Function 宏1()
On Error GoTo 宏1_Err

    DoCmd.RunCommand acCmdLinkTables


宏1_Exit:
    Exit Function

宏1_Err:
    MsgBox Error$
    Resume 宏1_Exit

End Function

数据如山

谢谢郑哥，
段代码启用了链接表向导。
如果我不想执行向导，如何直接建立链接
比如库A内执行代码，立即建立“路径\库B内表B1”的链接，同时假设库B有密码“123”。
实际上就是如何把这些参数在代码里体现，而不必用户一步步操作？
另外，假设有了一个链接，如何写代码删除这个链接。

万分感激！

zhengjialon

不用谢，其实这些在论坛中有一个很好的例子，是ZHUYIWEN版主的，你看一下。http://www.office-cn.net/bbs/dispbbs.asp?BoardID=2&replyID=71417&ID=14402&skin=1

数据如山

呵呵，要好好研究一下才能抄袭。