请教日期类型字段如何自定义输入错误提示.

sxgaobo

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 2113 Then
    Response = acDataErrContinue
    MsgBox "输入的日期格式有误！（请使用标准格式：XXXX-XX-XX）", vbInformation, "系统提示"
End If

End Sub