(Access2013)トランザクション処理とテーブル更新

Question

下記質問の続きとなりますが、PHPやXMLは今回関係ありません：
https://teratail.com/questions/11792

PHP＆PostgreSQLサーバーから更新データをXMLで受信するのに成功したのですが、
中途半端にMS-Accessのローカルaccdbに反映するのは避けるべきかと考え、
トランザクション処理を仕込もうとしました。

Application.DBEngine.Workspaces(0).BeginTrans

なんて書いてます。

ところが、

Dim rs As DAO.Recordset
Set rs = CurrentDB.OpenRecordset("(別ファイルaccdb上のリンク・テーブル名)", dbOpenDynaset)

とか

Dim rs As DAO.Recordset
Set rs = Application.DBEngine.Workspaces(0).Databases(0).OpenRecordset("(別ファイルaccdb上のリンク・テーブル名)", dbOpenDynaset)

とか書いてテーブルにアクセスして、

rs.FindFirst "A=1 AND B=2 AND C=3"

みたいなことをしたとき、「実行時エラー 3420 オブジェクトが正しくないか、現在設定されていません。」っていう実行時エラーに遭遇してしまいました。
回避方法はありますか？
ちなみに、以前はトランザクション処理なしで、アルゴリズム的に回避していましたが、やはり気持ち悪いのでトランザクション処理したいと考えました。
それとも、DAOでなくADOで記述するべきでしょうか。

Answer 1

データの既存チェックはCurrentDb.OpenRecordset()にて行い、
データの更新・追加はApplication.DBEngine.Workspaces(0).Databases(0).Execute にてSQL文で実行するようにして、ようやくうまく落ち着きました。

Answer 2

私のところで、同じようなコードを書いてみましたが、エラーは出ません。
書いてある以外のところで、原因があるのかもしれません。

Workspaces(0)を使っていますが、これを誤って早めのcloseをしてませんよね？
誤って早めのcloseをしてしまうと、「実行時エラー 3420 オブジェクトが正しくないか、現在設定されていません。」のエラーが出ますが。

Comments

[退会済みユーザー]

実際に試していただけたとのことで、心強いです。
実行時エラー3420が発生したのがFindFirstメソッドの行だったので、早めのCloseメソッドではないですが、むしろOpenRecordsetメソッドが準備が終わりきっていなかったと見るべきなんでしょうかね。

[WhiteJack]

例えば、TEST.accdbの標準モジュール内部で、
具体的に「TESTTBL」というtableがあり、フィールド「A」があるとします。
Dim rs As DAO.Recordset
Set rs = Application.DBEngine.Workspaces(0).Databases(0).OpenRecordset("TESTTBL", dbOpenDynaset)
rs.FindFirst "A = 1"
If rs.NoMatch = False Then
Debug.Print rs.Fields(0).Value
Debug.Print rs.Fields(1).Value
Debug.Print rs.Fields(2).Value
End If
rs.Close
Set rs = Nothing
これだと、エラーは出ません。

Set rs = Application.DBEngine.Workspaces(0).Databases(0).OpenRecordset("TESTTBL", dbOpenDynaset)
Application.DBEngine.Workspaces(0).Rollback
rs.FindFirst "A = 1"
と言う風に、間にRollbackが入っても「実行時エラー 3420 オブジェクトが正しくないか、現在設定されていません。」のエラーが出ます。
いろいろ試されると良いと思います。

[退会済みユーザー]

ありがとうございます。
もう一度プログラムを点検してみて気づいたのが、テーブルが自身のファイル内ではなく、別ファイル上のリンクテーブルだったのです。
それと、OpenRecordsetでテーブル名のみを書くと確実に引っかかるのですが、
"SELECT * FROM テーブル名"
にすると1回はFindFirstで引っかかるもののもう一度OpenRecordsetまでカレント行を戻すとその後はするっと動いたりしました。