質問編集履歴
1
エラーチェックの追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -22,6 +22,7 @@
|
|
|
22
22
|
'---データベースを更新
|
|
23
23
|
Sub UpdateDB()
|
|
24
24
|
Call ConnectDB(False)
|
|
25
|
+
On Error GoTo Err_Handler 'エラーが起きたら"Err_Handler"へ
|
|
25
26
|
adoCn.BeginTrans 'トランザクションを開始
|
|
26
27
|
|
|
27
28
|
With EditForm
|
|
@@ -43,6 +44,13 @@
|
|
|
43
44
|
|
|
44
45
|
MsgBox "正常に更新されました。"
|
|
45
46
|
Exit Sub
|
|
47
|
+
|
|
46
|
-
|
|
48
|
+
Err_Handler: 'エラーが起きたときの飛び先
|
|
49
|
+
adoCn.RollbackTrans
|
|
50
|
+
Call CutDB(False)
|
|
51
|
+
MsgBox Error$
|
|
52
|
+
Debug.Print Error$
|
|
53
|
+
Debug.Print strSQL
|
|
54
|
+
|
|
47
55
|
End Sub
|
|
48
56
|
```
|