質問編集履歴
1
エラーチェックの追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -46,6 +46,8 @@
|
|
|
46
46
|
|
|
47
47
|
Call ConnectDB(False)
|
|
48
48
|
|
|
49
|
+
On Error GoTo Err_Handler 'エラーが起きたら"Err_Handler"へ
|
|
50
|
+
|
|
49
51
|
adoCn.BeginTrans 'トランザクションを開始
|
|
50
52
|
|
|
51
53
|
|
|
@@ -88,7 +90,21 @@
|
|
|
88
90
|
|
|
89
91
|
Exit Sub
|
|
90
92
|
|
|
93
|
+
|
|
94
|
+
|
|
91
|
-
|
|
95
|
+
Err_Handler: 'エラーが起きたときの飛び先
|
|
96
|
+
|
|
97
|
+
adoCn.RollbackTrans
|
|
98
|
+
|
|
99
|
+
Call CutDB(False)
|
|
100
|
+
|
|
101
|
+
MsgBox Error$
|
|
102
|
+
|
|
103
|
+
Debug.Print Error$
|
|
104
|
+
|
|
105
|
+
Debug.Print strSQL
|
|
106
|
+
|
|
107
|
+
|
|
92
108
|
|
|
93
109
|
End Sub
|
|
94
110
|
|