Citrix経由で開くAccessプロジェクトを設定します。ただし、動作を妨げるVBAコードがいくつかあります。
Dim rs As ADODB.Recordset
Set rs = CurrentProject.Connection.Execute("Query")
.Connection
ビットが強調表示されます。ただし、これはCitrix経由で開かれていない場合(つまり、ユーザーのデスクトップ上でのみ)に機能します。
問題は、Citrix サーバーに最新の Jet Service Pack for Access がないことが原因でした。
ADOの経験はあまりありませんが、何らかの参照の問題があると思います。または、Citrixボックスで使用可能なバージョンよりも新しいバージョンのADOをシステムで参照していること。次のコードを実行して、結果をポストバックします。
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を意味しますか?
あなたのコードは私には間違っているようです。rs オブジェクトは Recordset であってはなりませんか?
すなわち
Dim rs As ADODB.Recordset
'Instead of
Dim rs As ADODB.Connection
コードはまったく実行されません。Type Mismatch エラーが表示されます。