如何比較記錄日期和當前日期？

Question

在我的登錄表單中，我試圖比較用戶的完成日期和當前日期，以確定它們是否應該被允許進入系統。不幸的是，我的代碼不工作。

我的工作如下;

If Cdate(DLookup("[FInish Date]", "Employee", "Userlogin = Me.TxtUserName.Value)) >= Date() then 

感謝您的幫助。

Answer 1

您的方法看起來非常有效，但是您的DLookUp語句中有很多語法錯誤。它應該是：

If CDate(DLookup("[Finish Date]", "Employee", "Userlogin = """ & Me.TxtUserName.Value & """")) >= Date() Then 

假設完成日期是一個有效的日期字段。 請注意，這不會正確處理Null和無效日期。對於更穩健的方法：

Dim MyDate As Variant 
MyDate = DLookup("[Finish Date]", "Employee", "Userlogin = """ & Me.TxtUserName.Value & """") 
If IsDate(MyDate) Then 
    If CDate(MyDate) >= Date() Then