Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
23 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【13269】トランザクションの状態判定 ななしのゴンベ 18/12/27(木) 17:05 質問[未読]
【13270】Re:トランザクションの状態判定 亀マスター 18/12/29(土) 21:54 回答[未読]
【13276】Re:トランザクションの状態判定 ななしのゴンベ 19/1/21(月) 13:23 お礼[未読]
【13269】トランザクションの状態判定
質問  ななしのゴンベ  - 18/12/27(木) 17:05 -
引用なし
パスワード
   トランザクション処理を行っているかどうかの判定方法がわかりません。

エラー処理で、トランザクション中の場合にのみ、
ロールバックを行うようにしたいのですが、判定方法を調べても出てきませんでした。

ご存知の方がいらっしゃれば教えていただけると嬉しいです。
【13270】Re:トランザクションの状態判定
回答  亀マスター  - 18/12/29(土) 21:54 -
引用なし
パスワード
   寡聞にしてトランザクション中の判定方法は知りませんが、私であればこうするというやり方を（他にもっとスタンダード・適切なやり方があるかもしれませんが）。

Sub Sample()

　　Dim WSP As Workspace

　　On Error GoTo ErrLabel

　　Set WSP = Workspaces(0)
　　WSP.BeginTrans

　　'トランザクション中の処理

　　WSP.CommitTrans
　　Set WSP = Nothing

　　Exit Sub

ErrLabel:
　　If Not WSP Is Nothing Then
　　　　WSP.Rollback
　　End If

このように、WSPをトランザクションの直前直後でセット、解放して、あとはトランザクション中かどうかの判定が必要なとき（エラー発生時など）に
If WSP Is Nothing Then
という風に、WSPがNothingかどうかで判定します。

あるいは、エラーラベルをトランザクション中の処理とそうでないときの処理で分けるという方法もあるかと思います。
【13276】Re:トランザクションの状態判定
お礼  ななしのゴンベ  - 19/1/21(月) 13:23 -
引用なし
パスワード
   ありがとうございます！おかげで解決しました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
23 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078186
(SS)C-BOARD v3.8 is Free