Access 2013がUniqueTable機能を壊します

Question

Access 2010上で実行されているかなり大きなAccessフロントエンドアプリケーションがあります.ADOレコードセットを使用してSQLサーバー上のデータにアクセスし、頻繁にUniqueTableフォームプロパティを使用します。

来年早々にオフィス全体をOffice 2013に移行しようとしていますが、テスト中にUniqueTableを使用するコードではAccess 2013が機能しないことがわかりました。エラーメッセージにUniqueTable結果設定しよう：UniqueTableを設定しようとしたとき

You entered an expression that has an invalid reference to the property UniqueTable

次のコードは、アクセス2010が、アクセス2013のエラー上記の出会いに動作します：

dim conn AS New ADODB.Connection 
conn.ConnectionString = "DATA PROVIDER=SQLOLEDB;DATA SOURCE=server1;DATABASE=database1;Integrated Security=SSPI;" 
conn.CursorLocation = adUseServer 
conn.Provider = "MSDataShape" 
conn.Open 

Dim cmd As New ADODB.Command 
cmd.ActiveConnection = conn 
cmd.CommandType = adCmdText 
cmd.CommandText = "SELECT TOP 10 * FROM Members WHERE MemberID IS NOT NULL" 

cmd.Execute 

Dim rs As New ADODB.Recordset 
rs.CursorLocation = adUseClient 
rs.Open cmd, , adOpenKeyset, adLockOptimistic 

Set Recordset = rs 
UniqueTable = "Members" 

ソリューションを探している間私は、このエラーが言及されている他のケースのほんの2つしか見つけていません。

Answer 1

私はあなたがこの問題に悩まされているのではないかと心配しています。私はあなたの問題を再現することができました：同じランタイムエラーメッセージでAccess 2010でフォームのUniqueTableプロパティを正常に設定したコードが失敗しました。

microsoft access uniquetableをGoogleで検索するとヒット数が多くなり、その大部分はADPでそのフォームプロパティの使用を参照しています。 ADPのサポートは、Access 2013から削除完全だったので、私の推測ではUniqueTableサポートがそれと一緒に削除されたということです。 （Access 2013 VBAエディタ内のIntelliSense機能はFormオブジェクトのプロパティとしてMe.UniqueTableを提供していますが、Access 2013では実行時に値を設定することはできません）。

Answer 2

Me.UniqueTable多くのテーブルからデータを削除しながら、ADOレコードセットへの選択結合が機能していることを確認します。またme.ResyncCommandはVBAコードから作業しています。これはフォームデザインのプロパティとしてではなく、Form Loadのようなコードのフォームの背後にあります。

Answer 3

あなたはRecordset.Properties（ "ユニーク表"）、例えばを設定することができます。：

rs.Properties("Unique Table") = "members" 

は、私はそれが*解答*ため息になる予定だった恐れていたADO Dynamic Properties