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