通过函数自动引用DAO-易勋
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


通过函数自动引用DAO

发表时间:2018/11/8 13:19:50 评论(2) 浏览(412)  评论 | 加入收藏 | 复制
   
摘 要:软件用得好好的,但是部署到某些环境就会报错,重新引用一下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群(群号:198465573)
 
 相关文章
引用DAO3.6的方法   【竹笛  2007/5/18】
【Access懒人工具】用VBA代码重新引用DAO  【Bobby  2013/11/25】
【Access懒人工具】用VBA代码重新引用ADO  【麥田  2013/12/5】
【Access懒人工具】用VBA代码自动引用树控件|代码引用Mic...  【麥田  2013/12/6】
【Access懒人工具】用VBA代码自动引用Excel项  【麥田  2016/9/19】
懒人工具-不判断直接引用-更懒版  【gaoyunpeng  2018/4/23】
 
 访客评论
2018/11/8在水一方 AngelHis

2018/11/8麥田

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

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

易勋

文章分类

文章存档

友情链接