質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Q&A

解決済

2回答

13988閲覧

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

退会済みユーザー

退会済みユーザー

総合スコア0

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

0グッド

0クリップ

投稿2015/07/23 03:21

編集2015/08/04 01:59

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

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

VBA

1Application.DBEngine.Workspaces(0).BeginTrans

なんて書いてます。

ところが、

VBA

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

とか

VBA

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

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

VBA

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

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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答2

0

ベストアンサー

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

投稿2016/02/05 08:27

退会済みユーザー

退会済みユーザー

総合スコア0

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

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

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

投稿2015/07/30 15:00

WhiteJack

総合スコア13

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2015/07/31 00:34

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

2015/07/31 12:20

例えば、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 オブジェクトが正しくないか、現在設定されていません。」のエラーが出ます。 いろいろ試されると良いと思います。
退会済みユーザー

退会済みユーザー

2015/08/04 02:19

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問