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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
-
ACCESSでfilterとorderbyについて
その他(データベース)
-
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
-
4
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
5
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
6
Access サブフォームでの選択行の取得
その他(データベース)
-
7
アクセスのフォームのビューが表示されないのですが、
その他(データベース)
-
8
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
9
access マクロでのフィルタの解除の方法
Access(アクセス)
-
10
accessvba 複数条件でFilterをしたい
Access(アクセス)
-
11
Access 複数条件検索の設定が上手く行きません
Access(アクセス)
-
12
【アクセスVBA】テーブルにフィルタをかけたい
Access(アクセス)
-
13
Accessフォームを開くときに決まった順番で表示
Access(アクセス)
-
14
AccessVBA フィルタとカレントレコードの移動について
Access(アクセス)
-
15
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
16
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
17
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
18
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
19
ACCESS 「パラメータの入力」を消したい!!
Access(アクセス)
-
20
Access2003で特定列の改行コードを削除してCSVへエクスポート
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのエラー「クエリには...
-
EXCELの外部データ取得ができない
-
アクセス ADO レコードの件数...
-
ACCESSで空のフォームにクエリ...
-
Accessで複数(200件程)の置換
-
access追加クエリ実行時の重複...
-
アクセスでクロス集計をレポー...
-
yes/no型のチェックができない...
-
ACCESSのフィールドの表示順が...
-
Access 0で除算(並べ替...
-
【Access2003 VBA】クエリをエ...
-
差込印刷での全角表示について...
-
日付型のフィールドに空白を入...
-
SQL文で パラメータが少なすぎ...
-
Accessで、1つの項目に複数の...
-
ACCESSのテーブルのデータで、...
-
VBA 別シートの同じ日付の欄に...
-
ACCESS 「パラメータの入力」...
-
アクセス 部分一致の抽出
-
Accessのテーブルのフィールド...
マンスリーランキングこのカテゴリの人気マンスリー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のエラーについてです。
おすすめ情報