サブフォームにフィルタをかけたい

サブフォームにフィルタをかけたいのですが
エラーになってしまいます。
下記がエラー内容です。
----------------------------------------------------------
実行時エラー　438
オブジェクトは、このプロパティまたはメソッドをサポートしていません。
----------------------------------------------------------

細かい概要は
テーブル１にフィールドがあり、
レコードには「あああ」と入力されています。
テーブル１がレコードソースとされている「フォーム（２）」をサブフォームとして
親フォーム（フォーム名：フォーム（１））に乗せました。

フォーム（１）を開いた時にフォーム（２）にフィルタをかけたいのですが
うまくいきません。

オブジェクト名にカッコを付けているため、
Form_フォーム・・・・
というコードは書けないので
----------------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
Forms("フォーム（１）").Controls("フォーム（２）").Form.Filter = "フィールド = '" & "*あ*" & "'"
Forms("フォーム（１）").Controls("フォーム（２）").FilterOn = True
End Sub
----------------------------------------------------------
としています。

Forms("フォーム（１）").Controls("フォーム（２）").FilterOn = True

でエラーになりますが、
この行をなくしたら、フィルタがかかりません。

どうすればサブフォームにフィルタをかける事が出来るのでしょうか？
ご教示よろしくお願い致します。

No.2 ベストアンサー 回答者： sppla 回答日時： 2011/10/22 23:16

＞ただ、「= "フィールド = '" & "*あ*" & "'"」

＞がうまく機能してないのか「あああ」が抽出されません。
＞なぜでしょうか？
これはワイルドカードを使用して「あ」を含むデータとしたいのですよね？
ワイルドカードを使う場合には＝ではなくLikeを使用し

= "[フィールド] Like '*あ*'"

とすればいいはずです。

この回答へのお礼

likeにしたらうまくいきました！
ご回答ありがとうございました。

お礼日時：2011/10/23 01:24

No.1 回答者： sppla 回答日時： 2011/10/22 20:54

自分で動作確認していませんが

＞Forms("フォーム（１）").Controls("フォーム（２）").FilterOn = True
Forms("フォーム（１）").Controls("フォーム（２）").Form.FilterOn = True
では？

この回答へのお礼

ご回答ありがとうございました。
「Form.」を追加する事でエラーにならずにすみました。

ただ、「= "フィールド = '" & "*あ*" & "'"」
がうまく機能してないのか「あああ」が抽出されません。
なぜでしょうか？

お礼日時：2011/10/22 22:15