![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
サブフォームにフィルタをかけたいのですが
エラーになってしまいます。
下記がエラー内容です。
----------------------------------------------------------
実行時エラー 438
オブジェクトは、このプロパティまたはメソッドをサポートしていません。
----------------------------------------------------------
細かい概要は
テーブル1にフィールドがあり、
レコードには「あああ」と入力されています。
テーブル1がレコードソースとされている「フォーム(2)」をサブフォームとして
親フォーム(フォーム名:フォーム(1))に乗せました。
フォーム(1)を開いた時にフォーム(2)にフィルタをかけたいのですが
うまくいきません。
オブジェクト名にカッコを付けているため、
Form_フォーム・・・・
というコードは書けないので
----------------------------------------------------------
Private Sub Form_Open(Cancel As Integer)
Forms("フォーム(1)").Controls("フォーム(2)").Form.Filter = "フィールド = '" & "*あ*" & "'"
Forms("フォーム(1)").Controls("フォーム(2)").FilterOn = True
End Sub
----------------------------------------------------------
としています。
Forms("フォーム(1)").Controls("フォーム(2)").FilterOn = True
でエラーになりますが、
この行をなくしたら、フィルタがかかりません。
どうすればサブフォームにフィルタをかける事が出来るのでしょうか?
ご教示よろしくお願い致します。
![「サブフォームにフィルタをかけたい」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/f/19494884_5497d1499db38/M.jpg)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_05.png?e8efa67)
No.2ベストアンサー
- 回答日時:
>ただ、「= "フィールド = '" & "*あ*" & "'"」
>がうまく機能してないのか「あああ」が抽出されません。
>なぜでしょうか?
これはワイルドカードを使用して「あ」を含むデータとしたいのですよね?
ワイルドカードを使う場合には=ではなくLikeを使用し
= "[フィールド] Like '*あ*'"
とすればいいはずです。
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_05.png?e8efa67)
No.1
- 回答日時:
自分で動作確認していませんが
>Forms("フォーム(1)").Controls("フォーム(2)").FilterOn = True
Forms("フォーム(1)").Controls("フォーム(2)").Form.FilterOn = True
では?
ご回答ありがとうございました。
「Form.」を追加する事でエラーにならずにすみました。
ただ、「= "フィールド = '" & "*あ*" & "'"」
がうまく機能してないのか「あああ」が抽出されません。
なぜでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サブフォームの行ごとにコンボ...
-
Googleフォーム・複数人の申し...
-
Access 無操作の場合、自動で閉...
-
サブフォームの新規レコードに...
-
アクセスVBA フォームのス...
-
VBAにてメッセージボックスを最...
-
csvに保存しているデータをURL...
-
dbOpenTableとdbOpenDynaset
-
Accessでサブフォームの合計を...
-
メッセージボックスの背景色
-
ExcelVBAでフォーム内でブック...
-
【VC++2005(CLR)】フォームを閉...
-
Accessでフォームから別フォー...
-
ディスプレイ解像度より大きな...
-
ACCESS フォーム、クエリの最前...
-
【ACCESS2003】サブフォーム名...
-
accessで2つ以上のフォームを起...
-
ACCESS 表形式フォームで1レ...
-
VB.net(VB)で、フォームにExcel...
-
ユーザーフォーム上にアイコン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Googleフォーム・複数人の申し...
-
Accessでフォームから別フォー...
-
VBAにてメッセージボックスを最...
-
リストボックスの選択解除
-
メッセージボックスの背景色
-
accessで2つ以上のフォームを起...
-
サブフォームの新規レコードに...
-
フォーム上の全てのコントロー...
-
アクセスVBA フォームのス...
-
サブフォームの行ごとにコンボ...
-
サブフォームのイベント取得
-
メインフォームからサブフォー...
-
Access 無操作の場合、自動で閉...
-
VBAでフォームのスクロールバー...
-
ディスプレイ解像度より大きな...
-
ユーザーフォーム上にアイコン...
-
VBプログラムの終了
-
PDFフォームに本日の日付を自動...
-
ExcelVBAでフォーム内でブック...
-
アクセス フォームが存在する...
おすすめ情報