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

Sub SampleCode_47()
'すべてのフォームやレポートのデザインビューを開く

  Dim dbs As Database
  Dim ctn As Container
  Dim doc As Document

  Set dbs = CurrentDb

  'すべてのフォームのデザインビューを開く
  Set ctn = dbs.Containers!Forms
  For Each doc In ctn.Documents
    DoCmd.OpenForm doc.Name, acDesign
  Next doc

  'すべてのレポートのデザインビューを開く
  Set ctn = dbs.Containers!Reports
  For Each doc In ctn.Documents
    DoCmd.OpenReport doc.Name, acDesign
  Next doc

End Sub


47		すべてのフォームやレポートのデザインビューを開く
カレントデータベースの「Containers」コレクションの中の「Forms」コンテナの「Documents」コレクションをループ処理することによって、すべてのフォームを取得することができます。同様に、「Reports」コンテナですべてのレポートを取得できます。そうして取得した「Document」オブジェクトの「Name」プロパティがフォーム名やレポート名になりますので、それを使ってDoCmdオブジェクトの「OpenForm」メソッドや「OpenReport」メソッドを実行することで、すべてのフォームやレポートのデザインビューを開くことができます。デザインビューを開く場合は、OpenForm／OpenReportメソッドの２つめの引数に、組み込み定数「acDesign」を指定します。プログラム Sub SampleCode_47() 'すべてのフォームやレポートのデザインビューを開く Dim dbs As Database Dim ctn As Container Dim doc As Document Set dbs = CurrentDb 'すべてのフォームのデザインビューを開く Set ctn = dbs.Containers!Forms For Each doc In ctn.Documents DoCmd.OpenForm doc.Name, acDesign Next doc 'すべてのレポートのデザインビューを開く Set ctn = dbs.Containers!Reports For Each doc In ctn.Documents DoCmd.OpenReport doc.Name, acDesign Next doc End Sub
\| Index \| Prev \| Next \|