HOME > 即効テクニック > AccessVBA > データベース・データ保護 > Accessのデータベースファイルの各プロパティの名前を取得する

即効テクニック
データベース・データ保護

Accessのデータベースファイルの各プロパティの名前を取得する

(Access)
現在のAccessデータベースのプロパティを参照する場合は、CurrentDbオブジェクトのPropertiesコレクションを参照することで可能です。さらに、PropertiesコレクションのCountプロパティを参照すると、格納されているPropertieオブジェクトの数がわかり、各PropertieオブジェクトのNameプロパティを参照すると、プロパティの項目名を取得することができます。
以下は、カレントなAccessデータベースの各プロパティの名前を取得するサンプルです。

●サンプル●
Sub ListPropName()
    Dim cItem   As String
    Dim nI      As Integer
    
    For nI = 0 To CurrentDb.Properties.Count - 1 Step 1
        cItem = CurrentDb.Properties(nI).Name
        Debug.Print cItem
    Next nI

End Sub
ビジネス統計スペシャリスト VBAエキスパート