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

解決済みの質問

VBAで日付型とテキストでフィルタをかけるには?

テーブルのデータは
フィールド1
2012/1/1
2012/1/2
2012/1/3
2012/1/4
2012/1/5
2012/1/6
2012/1/7
2012/1/8
2012/1/9
2012/1/10

フィールド2











です。

このクエリをもとに票フォームを作成して、
・txt_始まりテキスト
・txt_終わりテキスト
・txt_フィールド2テキスト
を作りました。

あとコマンドボタン(cmd_抽出)も作りました。

このコマンドボタンを押して
日付とテキストを抽出したいのですがVBAでのやり方を教えてください。

クエリなら
------------------------------------------------------------
SELECT テーブル1.フィールド1, テーブル1.フィールド2
FROM テーブル1
WHERE (((テーブル1.フィールド1) Between #1/4/2012# And #1/6/2012#) AND ((テーブル1.フィールド2)="A"));
でできました。
------------------------------------------------------------
しかしVBAで
------------------------------------------------------------
Private Sub cmd_抽出_Click()
Me.Form.Filter = "フィールド1 Between #" & Me.txt_始まりテキスト.Value & "# And #" & Me.txt_終わりテキスト.Value & "#" & _
"' And フィールド2 like '*" & Me.txt_フィールド2テキスト.Value & "*" & "'"
Me.Form.FilterOn = True
End Sub
------------------------------------------------------------
をすると、
------------------------------
実行時エラー3075
構文エラー:演算子がありません。
------------------------------
になります。

どうすればいいか教えてください。

結果は、
------------------------------
フィールド1フィールド2
2012/01/04A
2012/01/05A
------------------------------
です。

ご回答よろしくお願いします。

投稿日時 - 2012-10-25 22:24:36

QNo.7766236

困ってます

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

>"' And フィールド2 like '*" & Me.txt_フィールド2テキスト.Value & "*" & "'"

Andの前の ' はなんのため?

投稿日時 - 2012-10-26 01:05:42

お礼

' をとったらうまくいきました!!!ありがとうございました。大変参考になりました。

投稿日時 - 2012-10-26 07:47:38

ANo.1

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

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

回答(1)

あなたにオススメの質問