access レポートビューでの絞り込み

Question

お世話になります。

社員の住所録をaccessで作成しています。
今は全社員の住所録を表示させて印刷できるようにしていますが、部署ごとの住所録も印刷したいと考えています。

レポートビューのフォームヘッダーにコンボボックスを設置し、そのコンボボックスから部署を選ぶとその部署の社員が表示され
印刷できるようなシステムにしたいです。

そもそもレポートビューでそういった絞り込み検索などはできないのでしょうか？
もし可能であれば教えて頂きたいです。

レポートのレコードソースは住所録クエリです。
住所録クエリには、社員番号、氏名、部署、住所があります。

その他必要な情報があれば教えてください。

お手数ですが宜しくお願い致します。

Answer 1

レポートビューにコンボボックスを配置しても、コンボボックスにはなりません。
レポートビューは表示だけで入力や更新はできませんので。

フォームを作成して、そこにコンボボックスを配置して、さらにレポートをサブレポートとして配置すればコンボボックスの更新後処理のVBAで絞り込みはできます。

詳細が不明なので、下記のような感じのコードでいけます。

Private Sub 部署コンボ_AfterUpdate()
    Me.サブレポートコントロール名.Report.Filter = "部署CD=" & Me.部署コンボ.Value
    Me.サブレポートコントロール名.Report.FilterOn = True
End Sub

サブレポートコントロールは「水平アンカー」「垂直アンカー」プロパティを「両方」に設定しておくと親フォームのサイズに合わせて広がりますので、コンボボックスのすぐ下にフォームの幅と高さに合わせて配置しておけば見た目も違和感なくできます。

Comments

[yuriko_bridge]

お世話になります。
同じようなことがやりたかったので、こちらを参考にさせて頂きました。
サブフォームのレポートが、マウスホイールでスクロールできないのですが、もし対処方法がわかりましたら教えてください。
マウスクリックとドラッグによるスクロールは可能です。

[hatena19]

その質問も見てましたが、分からないので回答しませんでした。
仕様だと思いますので、簡単ではないと思います。

[hatena19]

その後、アイデアを思いついたので、下記の質問に回答しました。
https://teratail.com/questions/317620#reply-443274

Answer 2

レポートビューのフォームヘッダーにコンボボックスを設置し、そのコンボボックスから部署を選ぶとその部署の社員が表示され
印刷できるようなシステムにしたいです。

レポートの条件をレポートのみでは指定できません。
印刷指示を行うフォーム作成し、レポートを開く時に抽出条件を与えて下さい。
条件は、DoCmd.OpenReport メソッドのWhereConditionパラメータとして与えます。