摘要：请教老师问题：我把开发好了的Access程序给了同事，使用Access快速开发平台里面的自动更新客户端的功能后，每次更新程序都要输入VBA工程密码才能手动重新引用DAO，有什么更方便的办法吗？主要是同事电脑的Windows操作系统环境以及office环境跟我开

一、功能描述：

请教老师问题：我把开发好了的Access程序给了同事，使用Access快速开发平台里面的自动更新客户端的功能后，每次更新程序都要输入VBA工程密码才能手动重新引用DAO，有什么更方便的办法吗？主要是同事电脑的Windows操作系统环境以及office环境跟我开发环境都不一样，所以不想每次都再手动引用DAO一次。

二、解决方案：

以下代码针对Windows64位环境下的DAO文件夹目录：

Dim REFE As References '声明REFE为引用

Dim strFileName As String '声明strFileName为文本型变量

Dim rf

Set REFE = Application.References

For Each rf In REFE '在引用中循环查找

If rf.Name = "DAO" Then '如果名字为DAO就移动DAO的引用

Application.References.Remove rf '移除

Exit For '退出循环

End If

Next

strFileName = "C:\Program Files (x86)\Common Files\Microsoft Shared\DAO\dao360.dll"

Set rf = Application.References.AddFromFile(strFileName) '重新引用DAO

用VBA代码自动引用DAO（Windows64位环境）【Access软件网】

来源：Access软件网