一、 问题描述:
旧平台某些板块导入到新平台里一些比如 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