Microsoft Access 掲示板

先日は皆様に大変お世話になりました。

そして、またご質問させてください。
先日hiroton さんに
お教えいただいた以下のプログラムを入れました。

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

そうして、希望通り重複エラーを出せるようになったんです。

ところがです。

私は、関連のデーターをすべて消しました。
そうしてシステムを最適化しました。

そうしてオートナンバーを１からスタートに
して使おうとしました。

すると、
「既に入力された日付です。異なる日付を入力してください」
というエラーが出るように成りました。

日付は、本日の日付（2021/09/14）です。
入力できないので、１日ずらして（2021/09/15）を
入力しました。

そうして気になってテーブルを覗くと、
2021/09/14と2021/09/15で
データーが入力されていました。

こういったエラーはどうしたら
取り除けますか？

その後は普通に入力できるので、
データーをオールクリアして最適化して、
オートナンバーを１から始めるようにしたときに
だけエラーが出るみたいです。

すごく細かい質問になって
失礼します。

お手数ですが、ぜひ御指南ください。