ACCESS 日付の比較

日付を比較してstrToDateよりstrFromDateの日付が未来日だった場合エラーを出したいのですがうまくいきません。
日付型に合わせたつもりなのですがこれだとダメなのでしょうか


strFromTime = txtFromYear & "/" & Format(txtFromMonth, "00") & "/" & Format(txtFromDay, "00")
strToTime = txtToYear & "/" & Format(txtToMonth, "00") & "/" & Format(txtToDay, "00")

If (Format(strFromTime, yyyy / mm / dd) >
　　Format(strToTime, yyyy / mm / dd)) Then
MsgBox MSG_ERR, vbCritical, SYSTEM_NAME
Exit Sub
End If

No.2 ベストアンサー 回答者： CHRONOS_0 回答日時： 2007/02/25 23:57

Format関数の使い方が間違っています

>(Format(strFromTime, yyyy / mm / dd)
テキスト型の第１項目に対しy,m,dは使えません。構文も間違っています

文字列を比較したいのであれば単純に
If strFromTime > strToTime Then
でいいのでは

日付時刻型で比較するのなら

If DAteValue(strFromTime) > DateValue(strToTime) Then

No.1 回答者： p-applepie 回答日時： 2007/02/25 19:26

シリアル値で比較してもエラーがあがりますか？