如果将来日期有弹出框 - 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

但是，如果您已经设置了验证集，那么您将优先使用验证文本属性，表单错误事件或删除验证。

表单错误：

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