４章 カスタマイズ ／４-4レポート

データの値によってレイアウトを変更[Access97]

レコードのデータの値によってテキストボックスを表示・非表示にできます。

レイアウトを変更

＜操作手順＞
  1. Soraレポートを［デザイン］で開く
  2. コード画面の表示
    ［表示］ツールメニューの［コード］をクリックします。
  3. テキストボックスを表示・非表示
    ［HINETC］テキストボックスを値があるときのみ印刷します。
    ［詳細］の［フォーマット時］イベントに下記内容を追加します。
    Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    Dim cntEtc As TextBox
    Set cntEtc = Me![HINETC]
    cntEtc.Visible = Not IsNull(cntEtc) '値があるとき印刷
End Sub
  4. 印刷時縮小
    上記テキストボックスが非表示の場合、印刷空間を詰める場合、下記指定をします。
    ［詳細］の［印刷時縮小］プロパティを”はい”にします。
    ［HINETC］テキストボックスの［印刷時縮小］プロパティを”はい”にします。
＜参照＞
  1. 書籍「Microsoft Access97 Visual Basic ステップバイステップ」
    Lesson13 Visual Basicでレポートをカスタマイズする（p383）