如何用代码打开VBA工程的“引用”对话框？

mrd_wxqs

向各位大侠请教：

Access运行时，如发现有丢失的引用，如何用代码打开VBA工程的“引用”对话框进行勾选呢？

谢谢！

todaynew

呵呵，干嘛非要用代码打开呢？你也太不相信微软那帮家伙了吧？

mrd_wxqs

这是因为从高版本环境转到低版本环境中使用时，如从Office12改到Office11下时，会出现“丢失”的引用，而要到VBA工程中重新引用，而在客户端运行时，不方便开启VBA进行配置的。

beenet

可加载一个空窗体如下，注册控件，再启动窗体2打开实际功能。另外也将控件打包成安装包。
Private Sub Form_Open(Cancel As Integer)

    DoCmd.RunCommand acCmdAppMinimize
    Me.Visible = False

    AutoRegFile "控件名"

    DoCmd.Close
    DoCmd.OpenForm "窗体2"
End Sub

'这是网上高手写的
Function AutoRegFile(FileName As String)
    Dim reged As Boolean
    Dim RegFile1 As String
    Dim RegFile2 As String
    Dim BeReg As String, strDtn As String, strDtn1 As String
    Dim ref As Reference

    Dim RetVal
    BeReg = CurrentProject.Path & "\ocx\" & FileName          '控件存放位置，例子中是放在工程当前目录下ocx子目录
    strDtn = Environ("windir") & "\system\" & FileName           '返回系统路径
    strDtn1 = Environ("windir") & "\system32\" & FileName           '返回系统路径
    On Error Resume Next

    RegFile1 = Environ("windir") & "\system\regsvr32.exe "
    RegFile2 = Environ("windir") & "\system32\regsvr32.exe "

    If Dir(RegFile1) <> "" Or Dir(RegFile2) <> "" Then
        If Dir(RegFile1) <> "" Then
            FileCopy BeReg, strDtn
            RegFile1 = RegFile1 & "/s" & " " & strDtn
            RetVal = Shell(RegFile1, 1)
'            Set ref = References.AddFromFile(Environ("windir") & "\system\" & FileName)
        Else
            FileCopy BeReg, strDtn1
            RegFile2 = RegFile2 & "/s" & " " & strDtn1
            RetVal = Shell(RegFile2, 1)
'            Set ref = References.AddFromFile(Environ("windir") & "\system32\" & FileName)    '设置引用
        End If
    Else
        MsgBox "找不到regsvr32.exe文件，你可能无法使用本软件！", vbCritical, "无法自动注册控件"
    End If
End Function

xryacc2

不用打开引用，只要你把当时引用的控件随access文件带着，就不会出现丢失的现象。这尤其对于word和excel的引用最省事。

mrd_wxqs

谢谢 beenet 的大力帮助，我认真学习学习！

我认为 xryacc2 的提议还不是很妥当，就算把在Office12和Office11下引用的控件都带着，但从Office12环境中改到Office11下使用时，还是会提示丢失引用的。

mrd_wxqs

file:///d:/快捷菜单如何引用.jpg

大家来看看想想，如何用VBA代码来打开如上“快捷菜单”、“模块”、“对象浏览器”下的“引用（F）”命令？

mrd_wxqs

怎么传不上图片呢？

mrd_wxqs

d:\快捷菜单如何引用.jpg