Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access初・中級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトル実行時エラー'3034' について
記事No171833
投稿日: 2017/05/18(Thu) 18:36
投稿者バジル
OS:windows10
Access Version:2007

またお世話になります。
よろしくお願いします。

1つのフォームに2つのサブフォームを作り、
右のサブフォームのデータを「更新」したら、左のサブフォームを
「再計算」させて数値を変えるようにしました。
1回目の「更新」はうまくいくのですが、もう一度「更新」をすると
「 実行時エラー'3034' コミットまたはロールバックを実行するには、
BeginTrans メソッドを使用してください 」と出てきます。

ネットでいろいろ調べながら見よう見まねで作成しているので、
エラーが出ると、どこが悪いのか判断できません。
誠に申し訳ありませんが、ご教授願います。


「更新」「破棄」については、
下記のようにコマンドボタンを作りました。
-----------------------------------------------------------
'フォームモジュールレベル変数の定義
Option Compare Database
Option Explicit

Dim db As DAO.Database
Dim rs As DAO.Recordset

'コマンドボタン cmd_Commit のクリック時のイベントプロシージャ
Private Sub cmd_Commit_Click()
DAO.CommitTrans
MsgBox "更新を保存しました。"
DoCmd.Close acForm, Me.Name
End Sub

'コマンドボタン cmd_Rollback のクリック時のイベントプロシージャ
Private Sub cmd_Rollback_Click()
DAO.Rollback
MsgBox "更新を破棄しました。"
DoCmd.Close acForm, Me.Name
End Sub

タイトルRe: 実行時エラー'3034' について
記事No171835
投稿日: 2017/05/25(Thu) 21:24
投稿者hatena
連結フォームに対して、CommitTrans や Rollback は使えません。

VBAでデータ操作するときに有効なものです。

DAO レコードセットでトランザクションを使用する
https://msdn.microsoft.com/ja-jp/library/office/ff196400.aspx

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る