回答編集履歴
1
コードを追加しました。
test
CHANGED
@@ -1,3 +1,11 @@
|
|
1
1
|
Cancel = trueでは駄目でしょうか。
|
2
|
+
```
|
3
|
+
Private Sub txb_日付_Exit(Cancel As Integer)
|
4
|
+
If IsNull([txb_日付]) Then
|
5
|
+
MsgBox "日付を選択してください", vbOKOnly And vbExclamation, "入力不備"
|
6
|
+
Cancel = True
|
7
|
+
End If
|
8
|
+
End Sub
|
9
|
+
```
|
2
10
|
> メインフォームで日付・店舗名・会員コードを、サブフォームで商品単価と数量を入力して商品合計を演算し、購入情報を収集するデータベースを作っています。
|
3
11
|
テンプレートが決まっているので、ググってその通りに真似する事から始める、これがお勧めです。
|