KB403950 - [ACC2]IsVisible プロパティの使用例

現象

サンプルデータベース NWIND.MDB の、[商品] テーブルを元にレポートを新規作成します。レポートの [区分コード] テキストボックスの値が、前のレコードの値と同じであれば値を表示しないように、[重複データ非表示/ HideDuplicates ] プロパティに「はい」を設定します。
次に、詳細セクションに線コントロールを作成します。[区分コード] テキストボックスの値が非表示になっていれば、線コントロールも非表示にし、[区分コード] の値が変わり、表示される時に線コントロールも表示します。この操作を、詳細セクションの [印刷時/OnPrint] プロパティのイベントプロシージャで行います。

■ レポート作成

Access 2.0 を起動し、サンプルデータベース NWIND.MDB を開きます。
データベースウィンドウで [ファイル] - [新規] - [レポート] コマンドを選択するか、データベースウィンドウの <レポート> ボタンをクリックし、<新規作成> ボタンをクリックします。 [商品] テーブルを元に、無地レポートを作成します。
無地レポートは [ レポートの新規作成 ] ダイアログボックスで、[ 無地レポート (B) ] ボタンをクリックします。
レポートのデザインビューで、ツールボックスから線コントロールを詳細セクションに貼り付けます。
線コントロールのプロパティを設定します。プロパティシートを表示するには線コントロール上でマウスをダブルクリックしてください。
```
      プロパティ  設定値
      ----------  --------
      名前        線 0
      左位置      0 cm
      上位置      0.1 cm
```
既定のテキストボックスの [ラベル自動作成/AutoLabel] プロパティを [いいえ] に設定します。
既定のテキストボックスのプロパティシートを表示するには、ツールボックスの<テキストボックス> ボタン上でマウスをダブルクリックしてください。

ツールボックスからテキストボックスを選択し、詳細セクションに 2 つ貼り付けます。次に、テキストボックスのプロパティを設定します。プロパティシートを表示するにはテキストボックス上でマウスをダブルクリックしてください。

      プロパティ           設定値
      -------------------  -----------
      名前                 区分コード
      コントロールソース   区分コード
      重複データ非表示     はい
      左位置               0.3 cm
      上位置               0.3cm
      幅                   3 cm
      プロパティ           設定値
      -------------------  ----------
      名前                 商品名
      コントロールソース   商品名
      重複データ非表示     いいえ
      左位置               4 cm
      上位置               0.3 cm
      幅                   4 cm

レポートの詳細セクションのプロパティにイベントプロシージャを設定します。
プロパティシートを表示するには、詳細セクション上でマウスをダブルクリックしてください。
詳細セクションの [印刷時/OnPrint] プロパティにフォーカスを移動し、[表示] - [コード] コマンドを選択するか、ツールバーの <コード> ボタンをクリックします。
あるいは、プロパティの右側の <ビルド> ボタンをクリックします。[ビルダの選択] ダイアログボックスが表示されますので「コードビルダ」を選択し[OK] ボタンをクリックします。

モジュールウィンドウで、下記のコードを入力します。

     ---------------------------------------------------------------------------
     Sub 詳細 1_Print (Cancel As Integer, PrintCount As Integer)
         If Me![区分コード].IsVisible Then  ' 区分コードは表示されているか?
               '区分コードが表示されている時には線を表示
             Me![線 0].Visible = True
         Else
               '区分コードが表示されていない時には線を非表示
             Me![線 0].Visible = False
         End If
     End Sub
     ---------------------------------------------------------------------------

[実行] - [モジュールのコンパイル] コマンドを選択するか、ツールバーの<コンパイル> ボタンをクリックします。エラーが表示されなければ、モジュールウィンドウを閉じてください。エラーが表示された場合は、入力ミスがないかどうか再度チェックしてください。
ツールバーの <印刷プレビュー> ボタンをクリックするか、[ファイル] - [印刷プレビュー] コマンドを選択して、レポートを印刷プレビューで表示します。区分コードが表示される時にだけ、線が表示されます。

■ 注意

[IsVisible] プロパティは、レポートの [重複データ非表示/ HideDuplicates ] プロパティが「はい」に設定されたコントロールが含まれるセクションの [印刷時/OnPrint] プロパティのイベントでのみ使用することができます。

[ACC2]IsVisible プロパティの使用例

概要

現象

■ レポート 作成

■ 注意

■ レポート作成