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

通过函数自动引用DAO

时 间:2018-11-08 13:19:50
作 者:易勋   ID:35404  城市:上海
摘 要:软件用得好好的,但是部署到某些环境就会报错,重新引用一下DAO又可以了,这样的情况可以在每次登录的时候自动引用一次DAO。
正 文:

函数:

Public Function ReAddDAO()
    Dim REFE As References '声明REFE为引用
    Dim strFileName As String '声明strFileName为文本型变量
    Dim rf As Object
    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
End Function


然后在SysFrmLogin的Form_Load事件中调用。



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

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

2018/11/8 19:59:24在水一方 AngelHis

2018/11/8 13:39:51麥田

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

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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