Question

设置要通过Citrix打开的Access项目。但是，有一些VBA代码阻止它工作：

Dim rs As ADODB.Recordset
Set rs = CurrentProject.Connection.Execute("Query")

突出显示.Connection位。这虽然不是通过Citrix打开（即仅在用户桌面上）。

Answer 1

问题是由于Citrix服务器没有最新的Jet Service Pack for Access。

Answer 2

我没有很多ADO的经验，但我认为有一些参考问题。或者您在系统上引用的ADO版本高于Citrix框上的可用版本。运行以下代码并回发结果。

Sub ViewReferenceDetails()

Dim ref As Reference

    For Each ref In Access.References
        Debug.Print ref.Name & " - " & ref.Major & "." & ref.Minor & " - " & ref.FullPath
    Next ref

End Sub

另外，当您声明Access项目时，您是指针对SQL Server的ADP还是针对Access数据文件的MDB / ACCDB？

Answer 3

您的代码对我来说错了。 rs对象不应该是Recordset吗？

即

Dim rs As ADODB.Recordset
'Instead of
Dim rs As ADODB.Connection

代码不应该运行 - 您应该收到类型不匹配错误。

通过Citrix访问2003：使用CurrentProject.Connection'错误加载DLL'

3 个答案: