mscomctl.ocx引用丢失,如何写语句直接将其加到程序中。谢谢！

qfb　发表于：2013-12-05 15:08:49 　

各位大侠，我在将基于access数据库程序拷贝到台式机时，treeview老出问题，后来发现是mscomctl.ocx引用丢失，于是在网上下载了一个mscomctl.ocx放到C:\Windows\System32文件夹中，每次只能先去掉引用，然后再打开引用对话框重新找到mscomctl.ocx将其加入才行。这样的话很不利于程序的发布。
请问可不可以将该引用直接写入程序中，该如何实现？谢谢！

Top

落尘_小新发表于：2013-12-05 15:45:37

真正有效的自动更新引用的方法[Access软件网]
http://www.accessoft.com/article-show.asp?id=4845

Top

麥田发表于：2013-12-05 16:50:04

    '用VBA代码自动引用树控件
    Dim REFE As References    '声明REFE为引用
    Dim strFileName As String    '声明strFileName为文本型变量
    Dim rf
    Set REFE = Application.References
    For Each rf In REFE    '在引用中循环查找
        If rf.Name = "Common" Then    '如果名字为Common就移动Common的引用
            Application.References.Remove rf    '移除
            Exit For    '退出循环
        End If
    Next
    strFileName = "C:\Windows\System32\MSCOMCTL.OCX"
    Set rf = Application.References.AddFromFile(strFileName)    '重新引用树控件

Top

qfb 发表于：2013-12-05 21:33:20

谢谢两位老师了，问题基本解决，谢谢！明天找另一台电脑试试~

Top

麥田发表于：2013-12-05 21:43:21

2楼回帖的代码本人电脑测试成功，有的网友测试不能使用的可以使用下面改进版代码

    '用VBA代码自动引用树控件
    Dim REFE As References    '声明REFE为引用
    Dim strFileName As String    '声明strFileName为文本型变量
    Dim rf
    Set REFE = Application.References
    For Each rf In REFE    '在引用中循环查找
        If (rf.Name = "Common") And (rf.IsBroken) Then      '如果名字为Common就移动Common的引用
            Application.References.Remove rf    '移除
            strFileName = "C:\Windows\System32\MSCOMCTL.OCX"
            Set rf = Application.References.AddFromFile(strFileName)    '重新引用树控件
            Exit For    '退出循环
        End If
    Next

Top

朱军发表于：2014-01-06 23:01:00

编译成mde后这个方法就不行了...Remove移除不了引用...

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

mscomctl.ocx引用丢失,如何写语句直接将其加到程序中。谢谢！