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

如何将记录日期与当前日期进行比较？

1 个答案: