ms-access - 日付が未来の場合、ポップアップ ボックスが表示されます - Access 2007 のマクロ

Question

ユーザーがフォーム内に将来の日付を入力すると、メッセージ ボックスで将来の日付を入力できないことを知らせるマクロ スクリプトが必要ですか?

Access 内のマクロはまったく初めてなので、これを行う方法がまったくわかりません。

Answer 1

最も簡単に：

Private Sub ADate_BeforeUpdate(Cancel As Integer)
    If Me.ADate > Date Then
        ''Me.Undo
        Cancel = True
        MsgBox "Earlier date, please."
    End If
End Sub

ただし、既に検証セットがある場合はそれが優先されるため、Validation Text プロパティ、Form Error イベントを使用するか、検証を削除する必要があります。

フォーム エラー:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
      If DataErr = 2107 Then
         MsgBox "There was an error."
         Response = acDataErrContinue
      End If
End Sub