DoCmd.ApplyFilter引数を文字にする

いつもお世話になっています。

以下のフィルタを作成して使っています。

Private Sub to12_Click()
DoCmd.ApplyFilter , "([部署コード] = 1 And [社員番号]=2)"
DoCmd.OpenForm "F_登録"
Set Forms!F_登録.Recordset = Me.Recordset
End Sub

DoCmd.ApplyFilter , "([部署コード] = 1 And [社員番号]=2)"
の [社員番号]にテキストを使用することになりました。
元テーブルも数値型からテキスト型に変更したのですが、
こうした検索の式に反映するにはどうしたらいいのでしょうか。

お力添えをお願いいたします。

No.1 ベストアンサー 回答者： m3_maki 回答日時： 2011/07/15 12:34

> DoCmd.ApplyFilter , "([部署コード] = 1 And [社員番号]=2)"

　DoCmd.ApplyFilter , "([部署コード] = 1 And [社員番号]='2')"

あるいは

　DoCmd.ApplyFilter , "([部署コード] = 1 And [社員番号]=""2"")"

前者の方が分かりやすいでしょう。

ちなみに、日付時刻なら

　[日付]=#2011/7/15#

です。

この回答へのお礼

早々に回答いただきありがとうございます。
おかげですっきり解決いたしました。
また機会がありましたらどうぞよろしくお願いいたします。

お礼日時：2011/07/15 13:12