Microsoft Access 掲示板

フォームの日付のテキストボックスに

まずは、状況確認ですが、もしかしてこんな感じですか？
あと、どのテキストボックスがイメージに近いでしょうか？

親テーブル:日付ID,日付
子テーブル: 主キー,日付ID,その他
メインフォーム連結クエリ:日付ID,日付
サブフォーム連結クエリ:主キー,日付ID,日付,その他

↪フォームヘッダー
　日付テキストボックス(非連結):⬜⬜⬜
↪詳細
日付ID:(新規)
日付　:⬜⬜⬜
↪フォームフッダー
    📋サブフォーム
      ↪サブフォームヘッダー
      日付テキストボックス(非連結):⬜⬜⬜
      ↪サブフォーム詳細

　　　　　　　　　　　　↓

　　　　　　　　　　　　↓

　　　　　　　　　　　　↓

　　　　　　　　　　　　↓

　　　　　　　　　　　　↓                      　　　　　　　　　　親テーブル

例えば、2021/08/18というデーターが過去に
あったなら、カレンダーや手入力で2021/08/18と
入力できなくする方法はありますか？

インデックスを使用してテーブル フィールドの値の重複を防ぐ

既に入力された日付です。OK、NO
みたいな形

これはOKなら重複を許すということですか？
上記方法はデータベース的に重複を許さない形なので、これをやりたい場合は自前で制御を組む必要があります。更新前処理イベントで入力しようとした値がすでに登録されているかどうかチェックすればいいですね

Private Sub 日付_BeforeUpdate(Cancel As Integer)
    If Not IsNull(DLookup("日付", "テーブル名", "日付=#" & Me.日付 & "#")) Then
        If MsgBox("既に入力された日付です。登録してもいいですか？", vbOKCancel) = vbCancel Then
            Cancel = True
        End If
    End If
End Sub

りんごさん、hirotonさん
お二人様

御指南ありがとうございます。
どちらもかなり難しそうなので、
しばらくお時間をください。

ちょっと研究してみようと思います。

＞hirotonさん

これはOKなら重複を許すということですか？

これは、自分で書きながら、
改めて考えると重複を一切許さない方がいいかな？
と思いました。重複のお知らせと
入力キャンセルのみのメッセージボックスが
開いた方がいいかもしれないと思いました。

こうした場合は、どうしたらよいでしょう？

返信がわかりづらかったので、
再投稿です。

（レスの引用の仕方が
いまいちよく把握できてません）

りんごさん、hirotonさん
お二人様

御指南ありがとうございます。
どちらもかなり難しそうなので、
しばらくお時間をください。

ちょっと研究してみようと思います。

＞hirotonさん
＞これはOKなら重複を許すということですか？

これは、自分で書きながら、
改めて考えると重複を一切許さない方がいいかな？
と思いました。重複のお知らせと
入力キャンセルのみのメッセージボックスが
開いた方がいいかもしれないと思いました。

こうした場合は、どうしたらよいでしょう？

重複を許さないだけならすでに挙げた方法でいいですが、既定のメッセージじゃ使いにくいのはありますね。2つ目の方法でメッセージを出してキャンセルする（＝条件分岐を入れない）ようにすればいいです

Private Sub 日付_BeforeUpdate(Cancel As Integer)
    If Not IsNull(DLookup("日付", "テーブル名", "日付=#" & Me.日付 & "#")) Then
        MsgBox "既に入力された日付です。異なる日付を入力してください"
        Cancel = True
    End If
End Sub