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

Sub SampleCode_48()
'列挙したフォーム名のデザインビューをまとめて開く

  Dim avarForms As Variant
  Dim varFormName As Variant
  Dim iintLoop As Integer

  '開くフォームを配列に列挙
  avarForms = Array("frm従業員マスタ_1", "frm顧客マスタ", _
                    "フォーム1", "フォーム2", "フォーム3")

  '配列内のフォームをデザインビューで開くループ
  For Each varFormName In avarForms
    DoCmd.OpenForm varFormName, acDesign
  Next

End Sub


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