关于自动更新引用的问题

蒋海兵　发表于：2010-03-22 10:47:08 　

复制

最近在服务器更新版本之后，发现部分电脑在更新客户端之后，不能正常登陆客户端，经检查发现是acchelp.umv引用的问题，解决办法如下：

1、复制源代码文件到客户端电脑，删除原accdev.umv文件；

2、进入accdev.mdb修改VBA界面，删除对acchelp.umv的引用；

3、重新引用acchelp.umv文件；

4、编译文件为accdev.mde，之后更名为accdev.umv

5、双击login.mde文件，即可登陆。

问题点：如果每次都按照这样的步骤来操作，无疑影响了软件的正常使用。

解决思路：我在想，是否可以在进入登陆界面之前，对引用项目进行一次检测，如有存在ACCHELP.UMV的引用，则删除该引用，然后再重新引用一次，如果不存在ACCHELP.UMV的引用，则直接引用，引用完毕之后再进入登陆界面，不知道这个思路用代码具体如何实现？

现已知动态添加和删除引用的代码如下：

动态添加引用示例：
On Error Resume Next
Dim REF As Reference
Dim strfilename As String
strfilename = "c:\program files\common files" & _
"\system\ado\msado21.tlb" 路径由引用窗体获得
Set REF = Application.References.AddFromFile(strfilename) 必须加APPLICATION
MsgBox REF.Name & "已经被引用完毕" 获得应用名称的途径

动态删除引用示例：
On Error Resume Next
Dim REFE As Reference
Set REFE = Application.references!ADODB 由添加时的REF.NAME获得
Dim REF As String
REF = REFE.Name
Application.references.Remove REFE 必须加APPLICATION
MsgBox REF & "已经被取消引用" 获得应用名称的途径