谁有压缩后台数据库的代码？

静儿 · 发表于 2012-12-6 17:03:51

网上找了一段代码，运行时老要先输入用户名和密码，我链有两后台，还要登陆两遍，麻烦死了。
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-7 05:47:04

可以了，谢谢！

netguestcn · 发表于 2012-12-6 21:19:35

roych · 发表于 2012-12-6 20:51:03

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

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

静儿 · 发表于 2012-12-6 17:06:06

我的文件加了工作组，因此打开时总要输入用户名及密码

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 谁有压缩后台数据库的代码？

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)