Day1 データドリブン型のメニューを作成するには

データドリブン型のメニューを作成するには

Accessで印刷メニューを作成するとき、一般に図１に示すようなコマンドボタンを使用します。コマンドボタンをクリックすると、更に図２に示すような印刷条件を入力するフォームを表示する場合がよくあります。この場合、印刷条件を入力してから印刷ボタンをクリックして印刷します。

図１-コマンドボタンを使用したメニューの作成例

図２-印刷条件を設定するフォーム

この例では、印刷条件を入力するフォームをコマンドボタン毎に個別に作成する必要があります。この方式は、印刷メニューのコマンドボタンが少ないときは良いのですが、コマンドボタンが多くなると開発効率が低下します。

図３のデータドリブン型の印刷メニューは、この欠点を解決しています。レポートの一覧は、リストボックスに表示されますからレポートが追加されてもフォームを変更する必要がありません。また、印刷条件を入力するフォームをレポート毎に作成しないでリストボックスの右側に配置しています。印刷条件を入力するコンボボックス、テキストボックス、チェックボックスなどはレポートを選択するまで無効にしておきます。

図３-データドリブン型の印刷メニュー

レポートを選択したとき、該当する印刷条件のみ有効にします。図４では、レポート（完全別寸集計表）を選択したとき、対応する印刷条件（納期ID、登録日）を有効にしています。図４のフォーム下にレーザプリンタとドットプリンタのコマンドボタンがありますが、このボタンもレポートと連動しています。レーザプリンタに印刷するレポートを選択したときは、レーザプリンタのコマンドボタンが有効になり、ドッドプリンタに印刷するレポートを選択したときは、ドッドプリンタのコマンドボタンが有効になります。

図４-レポートを選択したとき対応する印刷条件を有効とする

前置きが長くなりましたが、これからデータドリブン型の印刷メニューを作成するテクニックを説明します。

Access 97/2000を起動して新規データベース（Day1.mdb)を作成します。

ツールメニューからオプションをクリックしてオプションダイアログを表示させます。全般のタブをクリックしてプロパティの表示を英語に変えてＯＫのボタンをクリックします。（ここでは、ＶＢＡを使用してプロパティを書き換えしますのでプロパティは英語に統一します）

Access 2000では、ツールメニューからプロパティを英語に変更する機能がありません。プロパティを英語で参照するには、VBE(Visual Basic Editor)を起動して参照します。

図５-Access97のオプションダイアログ

データベースウィンドウのテーブルタブをクリックしたら新規作成ボタンをクリックしてレポートテーブル（ｔｂｌReports)を作成します。

図６-レポートタイトル、レポート名を格納するテーブルの作成

テーブルのフィールド名とデータ型は以下のように設定します。

フィールド名	データ型	説明
ReportID	Number (Integer)	レポートID(プライマリーキー)
ReportTitle	Text (50)	リストボックスに表示されるレポートのタイトルを入力します
ReportName	Text(50)	レポート名または関数名を入力します

テーブルを作成したらサンプルデータを入力します。サンプルレポート１-３までは、Accessのレポート名を入力しています。サンプルレポート４と５は、オートメーション機能を使用してExcelから印刷しますからレポート名の代わりに関数名を入力しています。関数名を入力する場合は、レポート名と区別するために先頭に=を付加します。

図７-レポートテーブルのサンプルデータ

これでレポートテーブルの準備が完了しましたので、印刷用のメニューを作成します。
データベースウィンドウのフォームタブをクリックしたら新規作成ボタンをクリックします。

フォームの新規作成ダイアログが表示されたらデザインビューを選択してOKボタンをクリックします。

図８-フォームの新規作成ダイアログ

フォームが表示されたらツールボックスからリストボックス

クリックしてリストボックスを作成します。（リストボックスを作成する前に、ツールボックスのコントロールウイザードボタン

をクリック《有効》にしておきます）

図９-フォームにリストボックスを作成

フォーム上にリストボックスを配置するとリストボックスウイザードが起動されますのでテーブルまたはクエリーの値を表示するを選択して次へのボタンをクリックします。

図１０-テーブルまたはクエリーの値を表示するを選択

ｔｂｌReportsを選択したら次へのボタンをクリックします。

図１１-ｔｂｌReportsを選択

>>のボタンをクリックして全てのフィールドを選択したら次へのボタンをクリックします。

図１２->>ボタンをクリックして全フィールドを選択

一覧にレポートタイトル（ReportTitle)のみ表示されるように調整したら次へのボタンをクリックします。

図１３-レポートタイトルのみ表示するようにカラムを調整

最後にリストボックスのラベルにレポート一覧を入力したら完了のボタンをクリックします。

図１４-リストボックスのラベルを入力

フォーム上にリストボックスが作成されたら、リストボックスのコントロール名をｌｓｔReportsに変更します。その他のプロパティが以下のようになっているか確認します。

図１５-リストボックスの各種プロパティ

メニューからフォームビューのアイコン

をクリックしてリストボックスにレポート一覧が表示されるか確認します。

図１６-リストボックス実行結果

印刷条件を指定する必要がない場合、レポートをクリックしたときレポートを開く処理を追加すれば完成します。オートメーション機能を使用してＥｘｃｅｌ97から印刷するときは、レポートを開く代わりにＶＢＡの関数を呼びます。

リストボックスのクリックイベントに以下のコードをコピーして貼り付けます。リストボックスには、ReportID,ReportTitle,ReportNameの３つのフィールドが指定されていますが、一覧リストにはReportTitleのみ表示されるように設定されています。リストボックスの一覧からレポートタイトルをクリックしたとき、ReportID,ReportTitle,ReportNameを取得するにはColumnプロパティを使用します。

Debug.print lstReports.Column(0)	ReportID
Debug.print lstReports.Column(1)	ReportTitle
Debug.print lstReports.Column(2)	ReportName

また、ReportNameに関数名=basAutomation1()が指定されているときはEval()関数で呼び出します。

Private Sub lstReports_Click()

    Dim strReportName As String
    Dim strFunctionName As String
    Dim varDummy As Variant
    
    strReportName = lstReports.Column(2)
    If Left(strReportName, 1) = "=" Then
        strFunctionName = Mid(strReportName, 2)
        varDummy = Eval(strFunctionName)
    Else
        DoCmd.OpenReport strReportName, acViewPreview
    End If
    
End Sub

リストボックスのクリックイベント処理が正常に動作するかどうか確認するために、データベースウィンドウからレポートタブをクリックしたら新規作成ボタンをクリックしてrptReport1,rptReport2,rpReport3を作成します。

図１７-サンプルレポートを作成

レポートを作成したらモジュールタブをクリックしてから新規作成ボタンをクリックしてテスト用の関数を作成します。

Option Compare Database
Option Explicit

Public Function basAutomation1()
  MsgBox "Hello Automation1"
End Function

Public Function basAutomation2()
  MsgBox "Hello Automation2"
End Function

データベースウィンドウからフォームのタブをクリックしたらフォームをビューモードで開いて、リストボックスからレポートタイトルをクリックして正常に動作するか確認します。
正常に動作することが確認できたらフォームをfrmPrintMenuの名前で保存します。

さて、リストボックスが完成したところで次に印刷条件を設定するノウハウを説明します。

先ほど保存した印刷メニュー(frmPrintMenu)をデザインモードで開きます。

フォーム上に印刷条件としてコンボボックス、テキストボックスそしてオプションボックスを作成します。また、印刷とフォームを閉じるコマンドボタンも作成します。

図２０-印刷メニューに印刷条件とコマンドボタンを追加

印刷条件およびコマンドボタンのコントロール名を以下のように書き換えます。

オブジェクト名	プロパティ	内容（値）
コマンドボックス	Name	cboCriteria1
テキストボックス	Name	txtCriteria2
オプショングループ	Name	grpCriteria3
コマンドボタン（印刷）	Name	cmdPrint
コマンドボタン（閉じる）	Name	cmdExit

レポートと該当する印刷条件の対応表を作成します。

ReportID	ReportTitle	印刷条件１	印刷条件２	印刷条件３
1	サンプルレポート１	○
2	サンプルレポート２		○
3	サンプルレポート３			○
4	サンプルレポート４	○	○	○
5	サンプルレポート５
	Tagプロパティの内容	;1;4;	;2;4;	;3;4;

印刷条件１，２，３のTagプロパティに該当するReportIDを格納します。このときReportIDはセミコロン（；）で囲みます。また、印刷条件１，２，３のEnabledプロパティはNoに設定しておきます。

図２１-印刷条件１，２，３のTagとEnabledプロパティ

リストボックスのクリックイベントを削除してAfterUpdat()イベントを追加します。また、印刷とフォームを閉じるコマンドボタンのクリックイベントに以下のコードを追加します。

Private Sub lstReports_AfterUpdate()
  Dim intLoop As Integer
  Dim strChoice As String
  Dim strTag As String

  strChoice = ";" & CStr(lstReports) & ";"
  
  For intLoop = Me.Count - 1 To 0 Step -1
      If Nz(Me(intLoop).Tag) <> "" Then
          strTag = Me(intLoop).Tag
          If InStr(strTag, strChoice) > 0 Then
              Me(intLoop).Enabled = True
          Else
              Me(intLoop).Enabled = False
          End If
      End If
  Next intLoop
End Sub

Private Sub cmdPrint_Click()
  Dim strReportName As String
  Dim strFunctionName As String
  Dim varDummy As Variant
    
  strReportName = lstReports.Column(2)
  If Left(strReportName, 1) = "=" Then
      strFunctionName = Mid(strReportName, 2)
      varDummy = Eval(strFunctionName)
  Else
      DoCmd.OpenReport strReportName, acViewPreview
  End If
End Sub

Private Sub cmdExit_Click()
  DoCmd.Close
End Sub

Tip:
リストボックスのAfterUpdate()イベントでFor....NextをFor Each... Nextに置き換えることもできます。この場合、詳細セクションのみ検索することができますので効率が良くなります。

Private Sub lstReports_AfterUpdate()
  Dim strChoice As String
  Dim strTag As String
  Dim ctl As Control
  
  strChoice = ";" & CStr(lstReports) & ";"
  
  For Each ctl In Me.Section(acDetail).Controls
      If Nz(ctl.Tag) <> "" Then
          strTag = ctl.Tag
          If InStr(strTag, strChoice) > 0 Then
              ctl.Enabled = True
          Else
              ctl.Enabled = False
          End If
       End If
  Next ctl  
   
End Sub

フォームをビューモードに変えてリストボックスから任意のレポートをクリックして対応する印刷条件が有効になるか確認します。

図２２-サンプルレポート４をクリックしたときの実行結果
正常に動作することを確認したら最後にフォームを保存してAccess97/2000を終了します。

サンプルデータベースのダウンロード