Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

【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



Access软件网官方交流QQ群 (群号:115120150)       access源码网店

最新评论 查看更多评论(5)

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

2013/11/26 18:45:43zhengjin
旧平台?新平台?是指哪个平台?

2013/11/26 9:56:29麥田
管用

2013/11/25 14:49:04李志能
好强大,!顶!

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助