Question

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

这是添加它的代码公共功能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

在Microsoft Access中删除引用的问题

0 个答案: