【Access懒人工具】用VBA代码重新引用DAO

时　间:2013-11-25 11:55:15
作　者:Bobby   ID：974  城市：义乌
摘　要:用VBA重新引用DAO的源代码
正　文:

一、 问题描述：

     旧平台某些板块导入到新平台里一些比如 left 函数必须要通过引用DAO才能使用，但当主电脑上的程序移动到副电脑上后，系统不能自动重新引用DAO，如果每次移动都通过手动引用，很麻烦，可以将以下代码添加在form_sysfrmmain的加载事件中予以解决。（说明：此办法查找了咱们网站上的一些资料，以及得到了学长台州-第七天（ 访问他的专栏）的热心帮助，在此深表感谢）

二、解决方案：

        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\Common Files\Microsoft Shared\DAO\dao360.dll" 
        Set rf = Application.References.AddFromFile(strFileName) '重新引用DAO