回答編集履歴

1

コードを追加しました。

2023/04/04 00:05

投稿

logres_Fan
logres_Fan

スコア176

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
  テンプレートが決まっているので、ググってその通りに真似する事から始める、これがお勧めです。