Me.FilterOn = True は先でも後でも問題ないですか?
アクセスのvbaでフォームにフィルタをかけるときに
今まで
---------------------------------------
Private Sub コマンド2_Click()
Me.Filter = "フィールド = '" & "test" & "'"
Me.FilterOn = True
End Sub
---------------------------------------
とコードを書いていましたが
---------------------------------------
Private Sub コマンド2_Click()
Me.FilterOn = True
Me.Filter = "フィールド = '" & "test" & "'"
End Sub
---------------------------------------
でも機能しました。
という事は、
Me.FilterOn = Trueは
Me.Filter の前でも問題ないのでしょうか?
Me.FilterOn = Trueは
Me.Filter の後と習ったので疑問に思っています。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
興味もあって2007でやってみました。
私の今までの書き方)
If (Len(sWhereCondition) = 0) Then
Me.FilterOn = False
Me.Filter = ""
Else
Me.Filter = sWhereCondition
Me.FilterOn = True
End If
ここで、
Me.FilterOn = False 状態の時、Me.Filter を変更しても何も起きません
Me.FilterOn = True 状態の時、
・ Me.Filter を変更すると、再クエリが発生しました
・ Me.FilterOn = True を再設定しても再クエリされませんでした
Me.FilterOn = False 状態の時、
Me.Filter = sWhereCondition
Me.FilterOn = True ' ★
か
Me.FilterOn = True ' ★ ' ☆
Me.Filter = sWhereCondition ' ★
の記述にすると ★ で再クエリが発生しました。
ただ、☆ 時に Me.Filter = "" なら True にはなりませんでいた。
True にならない可能性があるので、
Me.Filter = sWhereCondition
Me.FilterOn = True
が正しい順と思われます。
Me.FilterOn = True 状態の時、
Me.Filter = "" か Me.FilterOn = False でフィルタ解除されました。
Me.FilterOn = False 時に Me.FilterOn = False しても変化はありませんでした。
ただ、Me.Filter = "" とすると自動で Me.FilterOn = False に変化。
また、Me.Filter = "" 時に Me.FilterOn = True にはできませんでした。
これらの動きをまとめてみると、
Me.Filter = sWhereCondition ' ★1
Me.FilterOn = True ' ★2
だけで良さそうです。
(sWhereCondition = "" なら FilterOn は自動で False になって True にできない)
Me.FilterOn = True 状態の実行では、★1で再クエリ
Me.FilterOn = False 状態の実行では、★2で再クエリ
てな動きになるのでしょうか・・・
なので、ご質問への回答としては、
Me.FilterOn = True
Me.Filter = "フィールド = '" & "test" & "'"
と記述すると、
実施前 Me.Filter = "" であれば、フィルタはかからない。
実施前 Me.Filter = "" でなければ、最悪2回再クエリすることになる。
(実施前 Me.FilterOn = False だったら2回)
(実施前 Me.FilterOn = True だったら1回)
という事になるのでしょうか。
※ 私の環境でのものなので、検証はしてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Visual Basic(VBA) Excel・ユーザーフォームの情報を受け渡したい 4 2022/06/08 10:11
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
-
ACCESSでfilterとorderbyについて
その他(データベース)
-
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
-
4
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
5
アクセスのフォームのビューが表示されないのですが、
その他(データベース)
-
6
access マクロでのフィルタの解除の方法
Access(アクセス)
-
7
Access 複数条件検索の設定が上手く行きません
Access(アクセス)
-
8
Access サブフォームでの選択行の取得
その他(データベース)
-
9
【アクセスVBA】テーブルにフィルタをかけたい
Access(アクセス)
-
10
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
11
accessvba 複数条件でFilterをしたい
Access(アクセス)
-
12
フィルタ後のフォームの件数の取得の仕方
Access(アクセス)
-
13
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
14
Accessでデータシートに同じデータがいくつもでてしまいます。
その他(データベース)
-
15
AccessVBA フィルタとカレントレコードの移動について
Access(アクセス)
-
16
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
17
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
18
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
19
Accessのフィルタ検索でデータの重複除外をしたい
その他(データベース)
-
20
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのエラー「クエリには...
-
yes/no型のチェックができない...
-
EXCELの外部データ取得ができない
-
アクセスで空白がグループ化さ...
-
AccessでSQL結果を直接csvに書...
-
Accessで複数(200件程)の置換
-
access追加クエリ実行時の重複...
-
Excel「外部データの取り込み」...
-
Accessのエラーについてです。
-
Me.FilterOn = True は先でも後で
-
ACCESSのフィールドの表示順が...
-
Access 不一致クエリ(たぶん)
-
Access複数のクエリをExcelの1...
-
Access 複数のクエリの結果を...
-
Excel Powerクエリーの質問。あ...
-
ACCESS テーブル内の列...
-
Access 特定の条件下で、メッ...
-
差込印刷での全角表示について...
-
日付型のフィールドに空白を入...
-
ACCESS 重複データを1...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスのエラー「クエリには...
-
EXCELの外部データ取得ができない
-
Access 複数のクエリの結果を...
-
yes/no型のチェックができない...
-
access追加クエリ実行時の重複...
-
AccessでSQL結果を直接csvに書...
-
ACCESSのフィールドの表示順が...
-
ACCESS テーブル内の列...
-
アクセスで空白がグループ化さ...
-
ACCESSでメッセージにクエリ結...
-
ログイン画面後のページの表取...
-
Accessで進行状況インジケータ...
-
Access複数のクエリをExcelの1...
-
アクセス ADO レコードの件数...
-
エクセルからアクセスの更新ク...
-
Me.FilterOn = True は先でも後で
-
ACCESSで追加クエリを連続実行...
-
Access2000で抽出したデータに...
-
Access 0で除算(並べ替...
-
Accessのエラーについてです。
おすすめ情報