ACCESS DB分割後の修正

Question

365環境でACCESSを使用しています。ＤＢ不整合の問題を回避するためＤＢを分割しました。

dbOpenTable　をdbDyanaSetに変更することにより発生する修正で苦労しています。

以下のSeekメソッドの変更案が見つかりません。ご教示くださいますようお願い申し上げます。

+++++++++++++++ 分割前のプログラム++++++++++++++++++

Set defRS = CurrentDb.OpenRecordset("T_WXY", dbOpenTable)

Set abcRS = CurrentDb.OpenRecordset("T_XYZ", dbOpenTable)

        abcRS.Index = "nインデックス"                                                     ←ここから

'T_XYZに入っているデータを削除する。

    Do Until abcRS.EOF

        abcRS.Delete

        abc.MoveNext

    Loop

'集計

        While (Not defRS.EOF)

            '新しくインデックス(uid、date)を追加する。

            abcRS.Seek "=", defRS("uid"), Left(defRS("date"), 6)                 ←こまでの部分

Answer 1

> 365環境でACCESSを使用しています。ＤＢ不整合の問題を回避するためＤＢを分割しました。

DAO.Recordset オブジェクトを介してリンクテーブルのレコードに
アクセスしようとしている、ということでしょうか。

> dbOpenTable　をdbDyanaSetに変更することにより発生する修正で苦労しています。
> 以下のSeekメソッドの変更案が見つかりません。

・リンクテーブルをテーブルタイプの Recordset オブジェクトとして開くことは出来ない。

・Seek メソッドはテーブルタイプの Recordset オブジェクトでのみ使用可能である。
　（ダイナセットタイプの Recordset オブジェクト では呼び出すことが出来ない）

代替案としては、以下のいずれかが挙げられます。

・DAO.Database オブジェクトの OpenRecordset メソッドを呼び出す際、
　第 1 引数 Name にテーブル名ではなく SQL ステートメント
　（ WHERE 句付きの SELECT 文）を渡すようにし、参照/編集の対象となる
　レコードを最初から絞り込むようにする。

・Seek メソッドではなく Find 系のメソッド（ FindFirst, FindNext など）を使用し、
　NoMatch プロパティの値によって条件に該当するレコードの有無を調べる。

> 'T_XYZに入っているデータを削除する。
>     Do Until abcRS.EOF
>         abcRS.Delete
>         abc.MoveNext
>     Loop

・あるテーブルの全てのレコードを削除することを目的としているのであれば、
　DAO.Database オブジェクトの Execute メソッドによって
　そういう命令の SQL ステートメント（ DELETE 文）を実行させるようにする。

---

'[T_XYZ]の全てのレコードを削除する DELETE 文の実行
CurrentDb.Execute "DELETE * FROM [T_XYZ];", dbFailOnError

---

Answer 2

sk.exe様

Findに変更して処理は出来るようになりました。

ただし、速度が遅くなったようです。

今後の改善点として取り組みます。

ご教示頂きありがとうございました。