MSysObjectsを使ったオブジェクト一覧の取得

概要

Accessのオブジェクト一覧を取得する方法はいくつかありますが、ここでは、システムテーブル[MSysObjects]を使った方法を説明します。

なお、この方法では、オブジェクトの名前は取得できますが、オブジェクトの詳細については取得できません。

[MSysObjects]は、通常は表示されないシステムテーブルです。表示するには、[ナビゲーションオプション]-[表示オプション]の[システムオブジェクトと表示]にチェックを入れます。（非表示のままでも参照は可能です。）

Typeによるオブジェクトの種類の判別

[MSysObjects]の列のうち、[Type]がオブジェクトの種類を表します。

Type	オブジェクトの種類
1	ローカルテーブル（システムテーブルを含む）
5	クエリー
-32768	フォーム
-32764	レポート
-32766	マクロ
-32761	モジュール

Public Sub PrintAllObjectsBySysTable(ByRef db As DAO.Database)

    Dim sql As String
    Dim rs As DAO.Recordset
    
    'Table
    Debug.Print "----- Table -----"
    sql = "SELECT Name FROM MsysObjects WHERE Left([Name],4) <> ""Msys"" AND Type = 1 ORDER BY Name;"
    Set rs = db.OpenRecordset(sql)
    Do Until rs.EOF
        Debug.Print rs!name
        rs.MoveNext
    Loop

    'Query
    Debug.Print "----- Query -----"
    sql = "SELECT Name FROM MsysObjects WHERE Left([Name],1) <>""~"" AND Type = 5 ORDER BY Name;"
    Set rs = db.OpenRecordset(sql)
    Do Until rs.EOF
        Debug.Print rs!name
        rs.MoveNext
    Loop

    'Form
    Debug.Print "----- Form -----"
    sql = "SELECT Name FROM MsysObjects WHERE Type = -32768 ORDER BY Name;"
    Set rs = db.OpenRecordset(sql)
    Do Until rs.EOF
        Debug.Print rs!name
        rs.MoveNext
    Loop

    'Report
    Debug.Print "----- Report -----"
    sql = "SELECT Name FROM MsysObjects WHERE Type = -32764 ORDER BY Name;"
    Set rs = db.OpenRecordset(sql)
    Do Until rs.EOF
        Debug.Print rs!name
        rs.MoveNext
    Loop

    'Macro
    Debug.Print "----- Macro -----"
    sql = "SELECT Name FROM MsysObjects WHERE Type = -32766 ORDER BY Name;"
    Set rs = db.OpenRecordset(sql)
    Do Until rs.EOF
        Debug.Print rs!name
        rs.MoveNext
    Loop

    'Module
    Debug.Print "----- Module -----"
    sql = "SELECT Name FROM MsysObjects WHERE Type = -32761 ORDER BY Name;"
    Set rs = db.OpenRecordset(sql)
    Do Until rs.EOF
        Debug.Print rs!name
        rs.MoveNext
    Loop

End Sub

Flagsによるクエリーの種類の判別

Type=5:クエリーの場合、Flasgの値によりクエリーの種類を判別できます。

なお、隠しオブジェクトの場合は、各Flagsにさらに+8を加算したものになります。

Flags	クエリーの種類
16	Cross Query
32	Delete Query
48	Update Query
64	Insert Query
96	Create Table / DLL?
128	Union / Union All
（+8）	（隠しオブジェクト）

Flags	クエリーの種類
80	（不明）
112	Pass through Select Query?
144	Pass through Action Query?
160	（不明）
176	（不明）
192	（不明）
208	（不明）
224	（不明）
240	（不明）

その他のType・Flags（参考）

Type	Flags	Name
-32757	0	UserDefined
-32757	0	SummaryInfo

Type	Flags	Name
2	-2147483648	MSysDb

Type	Flags	Name
3	-2147483648	Tables
3	-2147483648	Databases
3	-2147483648	Relationships
3	0	DataAccessPages
3	0	Forms
3	0	Modules
3	0	Reports
3	0	SysRel
3	0	Scripts

Type	Flags	Name
6	2097152	M_オブジェクトタイプ

Type	Flags	Name
8	0	MSysNavPaneGroupCategoriesMSysNavPaneGroups