向各位版主请教！！！

fatmingli

我有一数据库“监督软件.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”，但同样不行，非常希望你能帮忙。
我把他发到你的邮箱，你不介意吧？文件下载

竹笛

如果是前后端分开就可以避免这个问题啦~~

fatmingli

竹笛先生，你说的没错，我现在使用的其实是两个库，前台是“监督软件.mdb”，是用作界面的，后台的是“数据保存.mdb”，所以我用“升级.mdb”升级的时候，只需要升级前台的“监督软件.mdb”，你看过附件啦，能给点意见吗？