用VBA代码自动引用DAO（Windows64位环境）

时　间:2024-12-24 08:12:43
作　者:麥田   ID：11  城市：上海  QQ：3002789054
摘　要:用VBA重新引用Windows64位环境下的DAO源代码分享。
正　文:

一、 功能描述：

爱好者:Access--小点点  15:26:18

请教老师问题：我把开发好了的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

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店