【Access懒人工具】用VBA代码重新引用DAO-陈波
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


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

发表时间:2013/11/25 11:55:15 评论(6) 浏览(8110)  评论 | 加入收藏 | 复制
   
摘 要:用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


Access软件网交流QQ群(群号:198465573)
 
 相关文章
引用DAO3.6的方法   【竹笛  2007/5/18】
visual basic for applications引用错误...  【小不点  2007/10/15】
动态引用的例子  【李寻欢  2007/11/16】
通过代码重新引用access开发平台代码库acchelp.umv文...  【jlbaccess  2010/8/21】
 
 访客评论
2020/2/18zhanghaolan
非常感谢!因为dao加载不了的问题搞了一周,在网上试了各种办法,终于能用了!

2016/7/4KevinFan
如果是64位操作系统,路径为:C:\Program Files (x86)\Common Files\microsoft shared\DAO\dao360.dll,怎样让程序在几个路径内查找呢?

2013/11/26zhengjin
旧平台?新平台?是指哪个平台?

2013/11/26麥田
管用

2013/11/25李志能
好强大,!顶!

总记录:5篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

陈波

文章分类

文章存档

友情链接