アクセスでコードを使って日付からレコードの検索ができません。

質問

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone

rs.FindFirst "生年月日 = #1968/05/03#"

上の場合は問題ないのですが、次の様に、捜そうとする日付を変数にするとどうしても rs.NoMatch = true になってしまいます。
どうしてでしょうか。アクセスは２００２、ＯＳは２０００です。

Dim Abc As Date
Abc = "1968/05/03"
rs.FindFirst "生年月日 = " & Abc

回答No.2

noname#240783 · ベストアンサー

> rs.FindFirst "生年月日 = " & Format(Abc, "#yyyy/mm/dd#")
＃記号は「書式指定文字」と認識されてしまうから、
予想外の変換がされてしまうのでは？

rs.FindFirst "生年月日 = #" & Format(Abc, "yyyy/mm/dd") "#"

ってのはどうでしょう（浅知恵で、しかも確認してませんが）

お礼

rs.FindFirst "生年月日 = #" & Format(Abc, "yyyy/mm/dd") "#"
これだとコンパイルエラーです。

rs.FindFirst "生年月日 = #" & Format(Abc, "yyyy/mm/dd") & "#"
＆をつけてうまく動きました。
ありがとうございました。

回答No.1

taka_tetsu

rs.FindFirst "生年月日 = " & Format(Abc, "#yyyy/mm/dd#")

Format関数で、日付の書式を設定した文字列を作成しましょう

補足

実行時エラー3077
式の構文エラー　演算子がありません
となってしまいますが。