Office中国论坛/Access中国论坛

标题: 谁有压缩后台数据库的代码？ [打印本页]

作者: 静儿 时间: 2012-12-6 17:03
标题: 谁有压缩后台数据库的代码？
网上找了一段代码，运行时老要先输入用户名和密码，我链有两后台，还要登陆两遍，麻烦死了。
Set oAccess = CreateObject("Access.Application")
oAccess.OpenCurrentDatabase (CurrentProject.Path & "\data.mdb")
oAccess.CommandBars("Tools").Controls(7).Controls(2).accDoDefaultAction
Set oAccess1 = CreateObject("Access.Application")
oAccess1.OpenCurrentDatabase (CurrentProject.Path & "\data1.mdb")
oAccess1.CommandBars("Tools").Controls(7).Controls(2).accDoDefaultAction
MsgBox "压缩完毕！"

作者: 静儿 时间: 2012-12-6 17:06
我的文件加了工作组，因此打开时总要输入用户名及密码

作者: roych 时间: 2012-12-6 20:51

静儿发表于 2012-12-6 17:06
我的文件加了工作组，因此打开时总要输入用户名及密码

这个可以用shell函数来打开的。——我说的是指定工作组打开文件。

作者: netguestcn 时间: 2012-12-6 21:19
[attach]50861[/attach]

作者: 静儿 时间: 2012-12-7 05:47
可以了，谢谢！

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