FindFirstサテライトの複数の条件

Question

Sub Main() 
StartTime = Now() 
TDate = CDate(Format(Now(), "MM/DD/YYYY")) 
My = Environ("Username") 
Set db = CurrentDb 
Set rs = db.OpenRecordset("Emp", dbOpenDynaset) 
Criteria = "ID = '" & My & "' And From_Date >= '" & TDate & "' And To_Date <= '" & StartTime & "' " 
rs.FindFirst Criteria 
If rs.NoMatch Then 
MsgBox "Record not found" 
else 
MsgBox "Record found" 
end if 

開始日&終了日の間に最初のレコードを探したいので、このコードを実行してください。あなたが文字を囲むよう「＃」を使用する必要があります日付の

Answer 1

：

Criteria = "ID = '" & My & "' And From_Date >= #" & TDate & "# And To_Date <= #" & StartTime & "# " 

Answer 2

あなたは書式設定の日付と時刻を混合している：

：

Sub Main() 

    ' Dim StartTime As Date 
    ' Dim TDate As Date 

    StartTime = Now 
    TDate = DateValue(StartTime) 
    My = Environ("Username") 

    Set db = CurrentDb 
    Set rs = db.OpenRecordset("Emp", dbOpenDynaset) 
    Criteria = "ID = '" & My & "' And From_Date >= #" & Format(TDate, "yyyy\/mm\/dd") & "# And To_Date <= #" & Format(StartTime, "yyyy\/mm\/dd") & "#'" 
    rs.FindFirst Criteria 
    If rs.NoMatch Then 
     MsgBox "Record not found" 
    Else 
     MsgBox "Record found" 
    End If 

End Sub 

しかし、それはに減少させることができました

Sub Main() 

    My = Environ("Username") 

    Set db = CurrentDb 
    Set rs = db.OpenRecordset("Emp", dbOpenDynaset) 
    Criteria = "ID = '" & My & "' And From_Date >= Date() And To_Date <= Now()" 
    rs.FindFirst Criteria 
    If rs.NoMatch Then 
     MsgBox "Record not found" 
    Else 
     MsgBox "Record found" 
    End If 

End Sub