他のフォームを参照するフィルタの作成

質問

「F_抽出条件」というフォームの「抽出条件」というテキストボックスの文字列を含むデータを抽出したいのですが、

Me.Filter = "項目名 Like "*"&[Forms]![F_抽出条件]![抽出条件]&"*""

ＶＢのコードに上記コードを入力すればできるはずと考え、実行したのですが、"型が一致しません"と表示され、上手く抽出できません。うまく抽出できる方法を教えてください。宜しくお願いします。

回答No.3

Dxak

＃１です

> 全データが抽出されるような式になっているのでしょうか？

どう言う手順で、行われているものでしょか？
おそらく

> Me.Filter = "項目名 Like "*"&[Forms]![F_抽出条件]![抽出条件]&"*""

が、違うフォームのフィルタへ代入してるって事ありませんか？
例えば、「F_抽出条件」のフォームでのマクロで

> Me.Filter = "項目名 Like "*"&[Forms]![F_抽出条件]![抽出条件]&"*""

を、動作させれば、Me=「F_抽出条件」と、言う話
こう言う場合なら、
Forms!抽出する先.Filter = "項目名 Like '*" & Me.[抽出条件] & "*'"
Forms!抽出する先.Requery
と、言うことですし・・・

抽出先のフォームでのモジュールなら

> Me.Filter = "項目名 Like "*"&[Forms]![F_抽出条件]![抽出条件]&"*""

で、良いはずですが・・・「F_抽出条件」は、開いたままじゃなくては、引用が出来ないと言うことになります

どちらかの話なので、よく確認してくださいね

お礼

ご親切な回答ありがとうございました。おかげさまでイメージ通りの動きをさせることできるようになりました。

回答No.2

Dxak

＃１です

「'」が多いね＾＾；

Me.Filter = "項目名 Like '*" & [Forms]![F_抽出条件]![抽出条件] & "*'"

で、行けると思うよ

回答No.1

Dxak

> Me.Filter = "項目名 Like "*"&[Forms]![F_抽出条件]![抽出条件]&"*""

「"」の入れてるところが変じゃないでしょうか？
「'」と「"」で、明確に区分してみると・・・

Me.Filter = "項目名 Like '*'" & [Forms]![F_抽出条件]![抽出条件] & "'*'"

と、言うこと

お礼

早速の回答ありがとうございます。早速試してみたのですが、全レコードが表示され、うまく抽出されませんでした。全データが抽出されるような式になっているのでしょうか？