|
我有一数据库“监督软件.mdb”正在使用,由于功能不断改善,所以需要经常升级,我是建立另一个数据库“升级.mdb”为“监督软件.mdb”升级的,主要是利用导出功能,“升级.mdb”升级代码如下:
MsgBox "按确认将自动升级!", vbOKOnly, ""
DoCmd.TransferDatabase acExport, "Microsoft Access", "D:\单位程序\监督软件.mdb", acForm, "启动窗体", "1", False
对于查询,窗体,报表,模块的升级都没有问题。
但自从我在数据库“监督软件.mdb”的“工程”-“属性”-“保护”中选择了“查看时锁定工程”,并设置了密码。在这之后,当我用告往常的办法升级时,系统提示“该VBA项目已用密码保护,执行这种操作之前必须在‘Visual Basic 编辑器’中提供口令。”升级操作无法进行。
我试过把的VBA密码解除,然后再执行升级代码,就可以正常升级,但我建好的库是给别人用的,我不能跑去他单位解除密码再升级,有没有办法在代码实现验证密码,就象链接另一数据库时的密码验证的代码是Private Const TablePassword = "123"
数据库“监督软件.mdb”的VBA密码为“123”,我也试过为“长级.mdb”的VBA也加上密码“123”,但同样不行,非常希望你能帮忙。
我把他发到你的邮箱,你不介意吧?文件下载 |
|