質問編集履歴
2
フォームを閉じるコードを追加。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -438,6 +438,96 @@
|
|
|
438
438
|
|
|
439
439
|
End Function
|
|
440
440
|
|
|
441
|
+
|
|
442
|
+
|
|
443
|
+
'//////////////////////////////////////////////////////////
|
|
444
|
+
|
|
445
|
+
'
|
|
446
|
+
|
|
447
|
+
' キャンセルボタン：クリック時処理
|
|
448
|
+
|
|
449
|
+
'
|
|
450
|
+
|
|
451
|
+
'//////////////////////////////////////////////////////////
|
|
452
|
+
|
|
453
|
+
Private Sub cmd_cancel_Click()
|
|
454
|
+
|
|
455
|
+
On Error GoTo Err_Proc
|
|
456
|
+
|
|
457
|
+
|
|
458
|
+
|
|
459
|
+
' 確認MSG
|
|
460
|
+
|
|
461
|
+
If (vbYes = MsgBox("登録処理を実行せずに画面を閉じます。" & vbCrLf & "宜しいですか？", vbYesNo, "キャンセル確認")) Then
|
|
462
|
+
|
|
463
|
+
' 閉じる処理
|
|
464
|
+
|
|
465
|
+
DoCmd.Close
|
|
466
|
+
|
|
467
|
+
End If
|
|
468
|
+
|
|
469
|
+
|
|
470
|
+
|
|
471
|
+
Exit_Proc:
|
|
472
|
+
|
|
473
|
+
Exit Sub
|
|
474
|
+
|
|
475
|
+
|
|
476
|
+
|
|
477
|
+
Err_Proc:
|
|
478
|
+
|
|
479
|
+
MsgBox (Err.Description & ", " & Err.Number)
|
|
480
|
+
|
|
481
|
+
Resume Exit_Proc
|
|
482
|
+
|
|
483
|
+
End Sub
|
|
484
|
+
|
|
485
|
+
|
|
486
|
+
|
|
487
|
+
'//////////////////////////////////////////////////////////
|
|
488
|
+
|
|
489
|
+
'
|
|
490
|
+
|
|
491
|
+
' フォーム：クローズ時処理
|
|
492
|
+
|
|
493
|
+
'
|
|
494
|
+
|
|
495
|
+
'//////////////////////////////////////////////////////////
|
|
496
|
+
|
|
497
|
+
Private Sub Form_Close()
|
|
498
|
+
|
|
499
|
+
On Error GoTo Err_Proc
|
|
500
|
+
|
|
501
|
+
|
|
502
|
+
|
|
503
|
+
'==============================
|
|
504
|
+
|
|
505
|
+
' ワークテーブル削除
|
|
506
|
+
|
|
507
|
+
'==============================
|
|
508
|
+
|
|
509
|
+
If (DeleteData("WORKTBL_KOBAI_MEISAI") = False) Then
|
|
510
|
+
|
|
511
|
+
MsgBox "ワークテーブル削除処理でエラーが発生しました。", vbCritical, "初期化処理"
|
|
512
|
+
|
|
513
|
+
End If
|
|
514
|
+
|
|
515
|
+
|
|
516
|
+
|
|
517
|
+
Exit_Proc:
|
|
518
|
+
|
|
519
|
+
Exit Sub
|
|
520
|
+
|
|
521
|
+
|
|
522
|
+
|
|
523
|
+
Err_Proc:
|
|
524
|
+
|
|
525
|
+
MsgBox Err.Description
|
|
526
|
+
|
|
527
|
+
Resume Exit_Proc
|
|
528
|
+
|
|
529
|
+
End Sub
|
|
530
|
+
|
|
441
531
|
```
|
|
442
532
|
|
|
443
533
|
|
1
SQL→VBAに修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -30,7 +30,7 @@
|
|
|
30
30
|
|
|
31
31
|
|
|
32
32
|
|
|
33
|
-
```
|
|
33
|
+
```VBA
|
|
34
34
|
|
|
35
35
|
'//////////////////////////////////////////////////////////
|
|
36
36
|
|