通过函数自动引用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事件中调用。