FC2ブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

↑やる気アップにご協力をお願いします。わぁいヽ(∇⌒ヽ)(ノ⌒∇)ノわぁい♪

こんな記事もありますよ


サブフォームのフィルターを解除する

本日のお題は、

ツールバーを利用してサブフォームにフィルターをかけているのですが、
再度、ツールバーのフィルターを利用すると前のフィルター条件が残ってる
みたいです。ツールバーの「並び替えとフィルター」->「詳細設定」->「すべてのフィルタのクリア」
のようなことがVBAで出来ませんか?

つまり・・・、

フィルター条件を初期化したい!

そういうことですね・・・。(-_-☆キラーン




現在の質問者さんは、サブフォームのフィルター解除に対しては
ボタンを利用して、
me.FilterOn = False
me.サブフォーム名.Form.FilterOn = False
とされているようです。

う~ん(・・?) フィルター自体の解除はされているので
あとは、フィルター条件を消してあげればいいのでは?

ならば!答えは簡単!!
Me.サブフォーム名.Form.Filter = ""
の一文を追加してしまえば、フィルター条件は初期化できるじゃん!
(ノ゚Д゚)八(゚Д゚ )ノ イェーイ

さくっと回答しちゃいましょ。

さて、回答したはいいけれど・・・
実証していなかったので、一応自分の環境でもテストしてみましょ。

とりあえず、ツールバーの選択フィルターで適当にフィルターをかけて
コマンドボタンで
Me.サブフォーム名.Form.Filter = ""
me.サブフォーム名.Form.FilterOn = False
を実行させてみます・・・

ふみゅ!ちゃんとフィルター解除されてるみたいです。
この状態で、再度ツールバーの「フィルター実行」ボタンを
クリック・・・

( ̄□ ̄;)!!ナニーー!!

さっきと同じ条件でフィルターがかかってる・・・

やばし!!
既に回答しちゃってます・・・。 <- この時点でテンパってます。

と・・・とりあえず、もう一度質問を見てみましょ!。

何々?

「ツールバーを利用してサブフォームにフィルターをかけているのですが・・・」
ふむふむ。 ここは問題ない。

「・・・ツールバーの「並び替えとフィルター」->「詳細設定」->「すべてのフィルタのクリア」
のようなことがVBAで出来ませんか?」

ツールバーの並び替え・・・詳細設定・・・すべてのフィルタのクリア・・・?

え? え? ありませんよ・・・そんなもの・・・( ̄▽ ̄;)!!

あ!! 質問者さんのAccessのバージョンが2007・・・

自分が使ってるAccessは2003・・・

しまった~ また早まってしまったか~~ orz

消してしまうか?自分の回答消してしまうか?
証拠隠滅で消去しちゃうか?

そんな考えがよぎっているなか、質問者さんからの返信。
DoCmd.ShowAllRecords
上記コマンドで、できました・・・と。

orz

全くの役立たずでした。

っていうか・・・回答者(自分)だめだめじゃん・・・。

久しぶりに挑戦した回答だったのに・・・
結局ブログネタ増やしただけじゃん・・・。

同じようなコマンドが多すぎるんじゃ~~
ツールバーなんか嫌いだ~

ちなみに、メインフォームからサブフォームに対して
上記コマンドを実行する場合には、事前に
Me!サブフォーム名.SetFocus
DoCmd.ShowAllRecords
として、サブフォームにフォーカスを
移動させておく必要があるようです。
(別の有識者さんの回答での説明です・・・
決して自分の知識ではありません・・・(´Д`) 

でも・・・
DoCmd.ShowAllRecords
Me.Filter = ""
Me.FilterOn = False
の違いがわからないよ~~~(T_T)ホロホロ
今度しらべてみよ・・・。(-。-) ボソッ

相変わらずのだめ回答者のGenzoでした。orz
↑やる気アップにご協力をお願いします。わぁいヽ(∇⌒ヽ)(ノ⌒∇)ノわぁい♪

こんな記事もありますよ


コメントの投稿

非公開コメント

Author's Profile ~自己紹介~

Genzo

Author:Genzo
PCは一応自作できるレベル。
ワード・エクセルなら基本的に
扱えるレベル。
プログラム・・・?ん?
VBA・・・?ん?ん??
それって美味しいですか?


~ 当ブログについて ~

~ Mail2Genzo  ~

Calender&Search かれんだーと検索

09 | 2018/10 | 11
- 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 - - -

Access2Genzo内で検索

Category ~かてごりー~

Comments Tree ~こめんとつりー~


Link ~りんく~

ブロとも申請フォーム

Counter ~かうんた~

Since 2010/08/01:

Online:

タグクラウド

最新トラックバック

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。