Office中国论坛/Access中国论坛

标题: 表的链接路径问题求助 [打印本页]

作者: koutx 时间: 2008-12-26 21:24
标题: 表的链接路径问题求助
链接表的路径如何设成当前路径(相对路径而不是绝对路径)。请高手帮忙。

作者: Henry D. Sy 时间: 2008-12-26 21:58
代码怎么老是发不全啊

Dim db As Database
Dim t As TableDef
Set db = CurrentDb
Set t = db.TableDefs("A")
t.Connect = ";DATABASE=" & CurrentProject.Path & "\db2_be.mdb"
t.RefreshLink

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-12-26 22:07 编辑 ]

作者: koutx 时间: 2008-12-26 22:41
受益受益，谢谢6D版主。再请问版主：是否将此代码作一函数在Autoexec宏中调用？

作者: Henry D. Sy 时间: 2008-12-26 22:50
具体看你如何操作的了，也可以在主窗体加载时运行。（主窗体应该没有数据源的吧）
你一般两个库放在一起吗

作者: koutx 时间: 2008-12-26 22:56
是的，两个库放在一起，并且主窗体没数据源。多谢了，有问题再请教。

作者: koutx 时间: 2008-12-27 13:06
再请教6d版主一个问题：在
t.Connect = ";DATABASE=" & CurrentProject.Path & "\db2_be.mdb"语句中
如果db2_be.mdb设有数据库密码，应该怎么改写？谢谢

作者: Henry D. Sy 时间: 2008-12-27 14:59

Dim db As Database
Dim t As TableDef
Set db = CurrentDb
Set t = db.TableDefs("A")
t.Connect = ";pwd=abc;DATABASE=" & CurrentProject.Path & "\db2_be.mdb"
t.RefreshLink

复制代码

作者: koutx 时间: 2008-12-29 19:45
标题: 回复 7# 的帖子
以管理员登录时能够实现，但以用户身份登录时出现无权限错误。见抓图。
[attach]34121[/attach]

[ 本帖最后由 koutx 于 2008-12-29 19:49 编辑 ]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)