0

我遇到了一个问题，当我在关闭时从 Access 中删除引用时，它不会粘住。我将功能分配给始终打开的隐藏窗口，并且当我手动关闭窗口时它可以工作，但是当我关闭数据库时，删除引用的更改不会生效。由于我们团队的一部分使用的是 Office 2013，因此我们遇到了问题，因此我们不得不在 VBA 代码中创建一个动态参考点。添加引用的代码工作正常，但删除它是问题所在。

这是添加它的代码 Public Function RunThis()

Dim ref As Reference

'For Each ref In Access.References

       'MsgBox ref.Name

'Next

If Dir("C:\Program Files (x86)\Microsoft Office\Office15\EXCEL.exe") <> "" Then
    Access.References.AddFromFile ("C:\Program Files (x86)\Microsoft Office\Office15\EXCEL.exe")
End If
If Dir("C:\Program Files (x86)\Microsoft Office\Office16\EXCEL.exe") <> "" Then
    Access.References.AddFromFile ("C:\Program Files (x86)\Microsoft Office\Office16\EXCEL.exe")
End If

End Function

这是退出时运行的代码

Private Sub Form_Close()

Dim ref As Reference

    For Each ref In Access.References

        If ref.Name = "Excel" Then
            Access.Application.References.Remove ref
            'MsgBox "Found It"
        End If
        MsgBox ref.Name

Next
DoCmd.Save
End Sub
4

0 回答 0