如果日期字段無效，則無法關閉表單

-1

我有一個具有日期控件（dtReportDate）的未綁定表單。 dtReportDate將其驗證屬性設置爲在本月15日進行測試。如果日期不是15日，則驗證失敗。簡而言之，驗證按需要工作。如果日期字段無效，則無法關閉表單

我也有一個關閉按鈕。但是，除非dtReportDate控件爲空或有效，否則表單將不會關閉。

在我的方案中，可以在不提交數據的情況下關閉表單，因此不需要日期始終有效。

無論日期是什麼，允許表單關閉的最佳方法是什麼？

來源

2017-06-23 acr_scout

要關閉還是不保存無效數據？ – Brad

清除_Unload_事件中的字段。 – Gustav

@Brad這是一個未綁定的表單。如果用戶關閉表單，則不會保存任何內容。 –

-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

來源

2017-06-23 17:25:01

我嘗試了幾乎精確的驗證程序，但它仍然不會關閉，因爲您無法退出該控件。 –

你是什麼意思，你不能退出控制？當然可以。 –

我花了一段時間纔回到這裏。我有Cancel = true，因此我無法退出該控件。你的代碼不包括那個。我第一次讀它時錯過了。 –

如果日期字段無效，則無法關閉表單

回答

相關問題