[Access VBA]マクロで主キーである項目名(フィールド名)を取得する方法

VBA(Access)

2018.08.032024.12.20

この記事は約1分で読めます。

記事内に広告が含まれていることがあります。

こんにちは。

今回は備忘なので簡潔に書きます。

参照設定：Microsoft ADO Ext. 6.0 for DDL and Security

Sub GetPrimaryKeyFieldName()

    Dim ADXCN   As New ADOX.Catalog
    Dim ADXRS   As ADOX.Table
    Dim ADXID   As ADOX.Index
    Dim ADXFL   As ADOX.Column
     
    '主キーの取得
    ADXCN.ActiveConnection = CurrentProject.Connection
     
    Set ADXRS = ADXCN.Tables(TableName)
     
    For Each ADXID In ADXRS.Indexes
     
        If ADXID.PrimaryKey Then
            For Each ADXFL In ADXID.Columns
                Debug.Print ADXFL.Name
            Next
        End If
     
    Next

End Sub

Sub GetPrimaryKeyFieldName()

Dim ADXCN As New ADOX.Catalog

Dim ADXRS As ADOX.Table

Dim ADXID As ADOX.Index

Dim ADXFL As ADOX.Column

'主キーの取得

ADXCN.ActiveConnection = CurrentProject.Connection

Set ADXRS = ADXCN.Tables(TableName)

For Each ADXID In ADXRS.Indexes

If ADXID.PrimaryKey Then

For Each ADXFL In ADXID.Columns

Debug.Print ADXFL.Name

End If

End Sub

TableNameに確認したいテーブル名を設定すると、イミディエイトウィンドウに主キーの項目名(フィールド名)が出力されます。

以上

---コメント---