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

質問

サブフォームにフィルタをかけたいのですが
エラーになってしまいます。
下記がエラー内容です。
----------------------------------------------------------
実行時エラー　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 · ベストアンサー

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

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

とすればいいはずです。

お礼

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

回答No.1

sppla

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

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

お礼

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

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