こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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)"
の [社員番号]にテキストを使用することになりました。
元テーブルも数値型からテキスト型に変更したのですが、
こうした検索の式に反映するにはどうしたらいいのでしょうか。

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

投稿日時 - 2011-07-15 11:49:25

QNo.6877099

すぐに回答ほしいです

質問者が選んだベストアンサー

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

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

あるいは

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

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

ちなみに、日付時刻なら

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

です。

投稿日時 - 2011-07-15 12:34:21

お礼

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

投稿日時 - 2011-07-15 13:12:23

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問