フィルタを使用して抽出とチェックを行う方法：SampleFile022

帳票形式のデータ表示の際、お目当ての数値がどこにあるのかイライラした経験がありませんか。データを表示する際、見る者に注意を惹きつける工夫として、強調したいデータの個所に　★　などのマークはどうでしょう？もちろん、 ★以外にも　▲、●などの記号でも文字でも使えます。これは、簡単なIIF関数を使って作成できます。

サンプルフォームでは下記のことができます。

チェックしたデータのみを抽出することができます。
各種設定条件によって表示データ欄にチェック表示を行うことができます。
"Filrer on"を用いて抽出を行い、チェック表示は、"IIF(****,"★")"の構文です。

サンプルデータ

テーブルのサンプルデータは、下記のとおりです。

ID	地域	会社名	商品A	商品B	商品C	CK
1	東京都	akira商事㈱	\522,361	\11,254	\5,569,541	True
2	神奈川県	亜貴羅コーポレーション	\69,553	\566,984	\112,569	False
3	東京都	Accessクリエイター㈱	\0	\0	\55,694	True
4	千葉県	Office興産㈱	\1,123,654	\8,894,569	\55,436	False
5	東京都	入江悪徳不動産（有）	\962,236	\741,695	\326,954	False
6	東京都	篠原矯正器具販売㈱	\22,632	\59,548	\112,569	False
7	埼玉県	神田芸能派遣（有）	\44,151	\2,156	\0	False
8	栃木県	池田劇場㈱	\56,569	\54,000	\12,510	False
9	神奈川県	財)佐野人生相談所	\26,600	\15,220	\11,540	False
10	千葉県	㈱藤本マネキン	\566,200	\175,562	\32,600	False
11	神奈川県	（有）田中ものまね教室	\0	\0	\0	False
12	千葉県	千葉振興組合	\551,251	\0	\0	False

フォームのデザインビュー

フォームを以下のとおり作成します。

レコードソース

フォームのレコードソースには、下記のクエリを配置しています。

トグルボタン更新後処理イベントプロシージャの作成

トグルボタン更新後処理イベントに以下のプロシージャを記述します。このプロシージャでは、Filterを用いてチェック済みのデータのみ抽出します。

Private Sub トグル_切り替え_Click()

    Select Case ActiveControl
        Case True 'フィルターの使用例です。
            filter = "[CK]=true"
            FilterOn = True
        Case False
            DoCmd.ShowAllRecords '全レコード表示で解除します。
    End Select
 
End Sub

フォームビュー

フォームをビューモードで開きます。

フィルタを使用して抽出とチェックを行う方法：SampleFile022

サンプルデータ

フォームのデザインビュー

レコードソース

トグルボタン更新後処理イベントプロシージャの作成

フォームビュー

関連ページ

フィルタを使用して抽出とチェックを行う方法：SampleFile022