回答編集履歴
1
Form_BeforeUpdate プロシージャにコメントを追加。
test
CHANGED
@@ -46,6 +46,7 @@
|
|
46
46
|
If Nz(![店舗番号].Value, "") = "" Then
|
47
47
|
'このイベントをキャンセルする
|
48
48
|
Cancel = True
|
49
|
+
'警告メッセージの表示
|
49
50
|
MsgBox "店舗番号を入力して下さい!", vbExclamation, "入力エラー"
|
50
51
|
'[店舗番号]にフォーカスを移す
|
51
52
|
![店舗番号].SetFocus
|