清除日期文本框访问表单中的数据/值

Question

我使用普通文本框输入日期，如果用户输入无效日期，我会从访问中获取信息消息框，告诉我日期无效，然后返回到该文本框。我需要使用日期选择器，如果日期输入错误textbox.value =“”，我不希望返回到具有相同值的文本框。 我使用类来验证每个未绑定的控件，但所有日期控件都使用自动访问验证。

我收到此错误后，我希望我的文本框值设置为“”。什么事件或输入验证触发此输入框以及如何在VBA或Access中编码以使textbox.value =“”？我可以删除访问消息框，以便我可以在vba中编写自己的验证规则吗？我可以使用普通文本框执行此操作，但我需要使用datepicker。我尝试在获得焦点事件和几乎所有其他事件上使用textbox.value =“”，但我需要一些有用的东西。

Answer 1

你可以绕过访问默认错误，测试：

Private Sub Form_Error(DataErr As Integer, Response As Integer)

  If DataErr = 2113 Then
    ' Ignore the error and continue without displaying the default Microsoft Access error message     
    Response = acDataErrContinue
    ' Your custom error Message
    MsgBox "Only date are acceptable in this box", vbCritical, "Error"
    ' Undo 
    ActiveControl.Undo
  End If

End Sub

请参阅：http://msdn.microsoft.com/en-us/library/office/ff836345.aspx