入力必須のテキストボックスが空白のまま次のテキストボックスに移動しようとしたら、警告を出して空白のテキストボックスに戻るようにしたい

Question

実現したいこと

日付・店舗名・会員コードの3つの入力必須項目を持つF_メインフォームがあり、日付テキストボックスが空白のまま別のテキストボックスに移動しようとしたら警告文を出して、フォーカスが日付テキストボックスに留まるようにしたい。店舗名・会員コードにも同様の機能を実装したい。

前提

メインフォームで日付・店舗名・会員コードを、サブフォームで商品単価と数量を入力して商品合計を演算し、購入情報を収集するデータベースを作っています。
サブフォームが入力される前にメインフォームの入力必須項目が埋まるようにしたいため、上記の機能を実装したいと考えています。

発生している問題・エラーメッセージ

日付テキストボックスのフォーカス喪失時イベントプロシージャにmagboxでの警告文とset.focus文を記述し、フォームにて日付テキストボックスが空白のまま店舗名テキストボックスをクリックしたところ、警告文は表示されるもののフォーカスは店舗名テキストボックスに移動してしまいました。

該当のソースコード

Private Sub txb_日付_Exit(Cancel As Integer)

    If IsNull([txb_日付]) Then
    
        MsgBox "日付を選択してください", vbOKOnly And vbExclamation, "入力不備"
        Me!txb_日付.SetFocus
    
    End If

End Sub

試したこと

上記のソースコードを試しましたがフォーカスが移動してしまいました。

補足情報（FW/ツールのバージョンなど）

Answer 1

日付側ではなく、店舗名のテキストボックスにフォーカス取得時イベントを追加して
日付テキストボックスの入力を確認させる方法はありますよ。

Private Sub txb_店舗名_GotFocus()
If Not IsDate(Me![txb_日付]) Then Me![txb_日付].SetFocus
End Sub

Answer 2

Cancel = trueでは駄目でしょうか。

Private Sub txb_日付_Exit(Cancel As Integer)
   If IsNull([txb_日付]) Then
      MsgBox "日付を選択してください", vbOKOnly And vbExclamation, "入力不備"
      Cancel = True
   End If
End Sub

メインフォームで日付・店舗名・会員コードを、サブフォームで商品単価と数量を入力して商品合計を演算し、購入情報を収集するデータベースを作っています。
テンプレートが決まっているので、ググってその通りに真似する事から始める、これがお勧めです。

Comments

[退会済みユーザー]

勉強不足ですみませんが、Cancel =　trueだけでは問題をどのように解決するかわかりません。
色々調べた上で分からないのでこちらで質問をさせていただいております！

[logres_Fan]

失礼しました。コードを追加したので、試してみてください。

[退会済みユーザー]

丁寧にありがとうございます！
いただいたヒントをもとにもう一度考えてみます！