記録日と現在の日付を比較するにはどうすればいいですか？

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