サイトアイコン Amelt.net

Access:VBAでファイル名一覧(テーブル/クエリ/フォーム/レポート)を取得するサンプルコード

This post is also available in: English-US (英語)

AccessのVBAでファイル名の一覧(テーブル/クエリ/フォーム/レポート)を、VBEのイミディエイトウィンドウにDebug.Printとして出力するサンプルコードをメモ代わりに書いています。
説明書や仕様書を作成する時など、ファイル名一覧が必要な場合に便利です。

Function GetFileNames() As String
  '変数の宣言
  Dim cd As Object
  Dim cp As Object
  Dim tbl As AccessObject
  Dim qry As AccessObject
  Dim frm As AccessObject
  Dim rpt As AccessObject

  'CurrentDataとCurrentProjectを設定
  Set cd = Application.CurrentData
  Set cp = Application.CurrentProject

  'テーブル
  Debug.Print "Table Names:"
  For Each tbl In cd.AllTables
      Debug.Print tbl.Name
  Next tbl

  'クエリ
  Debug.Print "Query Names:"
  For Each qry In cd.AllQueries
      Debug.Print qry.Name
  Next qry

  'フォーム
  Debug.Print "Form Names:"
  For Each frm In cp.AllForms
      Debug.Print frm.Name
  Next frm

  'レポート
  Debug.Print "Report Names:"
  For Each rpt In cp.AllReports
      Debug.Print rpt.Name
  Next rpt
End Function