Access Study Vol.21 デザインで使えるプログラム50-49

Sub SampleCode_49()
'列挙したレポート名のデザインビューをまとめて開く

  Dim avarReports As Variant
  Dim varReportName As Variant
  Dim iintLoop As Integer

  '開くレポートを配列に列挙
  avarReports = Array("rpt従業員マスタ", "rpt顧客マスタ", _
                      "レポート1", "レポート2", "レポート")

  '配列内のレポートをデザインビューで開くループ
  For Each varReportName In avarReports
    DoCmd.OpenReport varReportName, acDesign
  Next

End Sub


49		列挙したレポート名のデザインビューをまとめて開く
所定の複数のレポート名をあらかじめ「Array」関数で配列に列挙しておきます。その配列をループで辿って、それぞれのレポート名を指定して「OpenReport」メソッドを実行することで、それらをまとめて開くことができます。プログラム Sub SampleCode_49() '列挙したレポート名のデザインビューをまとめて開く Dim avarReports As Variant Dim varReportName As Variant Dim iintLoop As Integer '開くレポートを配列に列挙 avarReports = Array("rpt従業員マスタ", "rpt顧客マスタ", _ "レポート1", "レポート2", "レポート") '配列内のレポートをデザインビューで開くループ For Each varReportName In avarReports DoCmd.OpenReport varReportName, acDesign Next End Sub
\| Index \| Prev \| Next \|