如果日期字段无效，则无法关闭表单

Question

我有一个具有日期控件（dtReportDate）的未绑定表单。 dtReportDate的验证属性设置为测试当月15日。如果日期不是15日，则验证失败。简而言之，验证可以按需运行。

我也有一个关闭按钮。但是，除非dtReportDate控件为null或有效，否则表单不会关闭。

在我的方案中，可以在不提交数据的情况下关闭表单，因此日期始终无效。

无论日期是什么，允许表单关闭的最佳方法是什么？

Answer 1

编写自己的验证程序。

Private Sub dtReportDate_Exit(Cancel As Integer)
    With Me.dtReportDate
        If IsDate(.Value) And Day(.Value) <> 15 Then
            MsgBox "Validation failed..."
            .Value = Null   'Clear if needed
        End If
    End With
End Sub