回答編集履歴

2

実際のコードの変更内容を記述

2021/05/11 02:12

投稿

na999
na999

スコア2

test CHANGED
@@ -2,7 +2,53 @@
2
2
 
3
3
 
4
4
 
5
- さらに調査・試行錯誤してみたところ、どうやらトランザクション制御のために取得したWorkspaceを閉じたことが原因だとわかりました。以下がまさにピンポイントな記事ですね。
5
+ さらに調査・試行錯誤してみたところ、どうやらトランザクション制御のために取得したWorkspaceを閉じたことが原因だとわかりました。
6
+
7
+
8
+
9
+ 元々のコード
10
+
11
+ ```VBA
12
+
13
+ Dim ws As DAO.Workspace: Set ws = DBEngine(0)
14
+
15
+ Dim db As DAO.Database: Set db = CurrentDb
16
+
17
+ ...
18
+
19
+ ws.BeginTrans
20
+
21
+ ...
22
+
23
+ ws.CommitTrans
24
+
25
+ db.Close: Set db = Nothing
26
+
27
+ ws.Close: Set ws = Nothing
28
+
29
+ ```
30
+
31
+
32
+
33
+ の最後の部分をこんな感じに修正したところ、問題が起きなくなりました。
34
+
35
+
36
+
37
+ ```VBA
38
+
39
+ ...
40
+
41
+ ws.CommitTrans
42
+
43
+ db.Close: Set db = Nothing
44
+
45
+ Set ws = Nothing
46
+
47
+ ```
48
+
49
+
50
+
51
+ 以下がまさにピンポイントな記事ですね。
6
52
 
7
53
   → [WorkSpaceは閉じなくても問題ないのか](https://zawazawa.jp/ms-access/topic/124)
8
54
 

1

文言レベルの修正

2021/05/11 02:12

投稿

na999
na999

スコア2

test CHANGED
@@ -4,8 +4,8 @@
4
4
 
5
5
  さらに調査・試行錯誤してみたところ、どうやらトランザクション制御のために取得したWorkspaceを閉じたことが原因だとわかりました。以下がまさにピンポイントな記事ですね。
6
6
 
7
-  → [Microsoft Access 掲示板 WorkSpaceは閉じなくても問題ないのか](https://zawazawa.jp/ms-access/topic/124)
7
+  → [WorkSpaceは閉じなくても問題ないのか](https://zawazawa.jp/ms-access/topic/124)
8
8
 
9
9
 
10
10
 
11
- Accessのアプリケーション全体としてプールしているWorkspaceを勝手に閉じてしまったことで、以降のDBアクセスが不可になった、という感じな
11
+ Accessのアプリケーション全体としてプールしているWorkspaceを勝手に閉じてしまったことで、以降のDBアクセスが不可になった、という感じなしょうか。