主キーフィールド名の取得

対象バージョン :  97, 2000(MDB), 2002(MDB), 2003(MDB)
最終更新日 : 2005/04/25 （オリジナル作成日：1995/11/10）

概　要　

　指定したテーブルで主キーとして設定されているフィールド名を得る方法です。

解　説

　以下のプロシージャは、引数として与えられたテーブル名に主キーとして設定されているフィールド名を Debug.Print する例です。

Function GetPrimaryKeyFields (TableName As String)
Dim db As DAO.DATABASE
Dim tbd As DAO.TableDef
Dim idx As DAO.Index
Dim fld As DAO.Field
Set db = CurrentDb
Set tbd = db.TableDefs(TableName)
For Each idx In tbd.Indexes
    If idx.Primary = True Then
        For Each fld In idx.Fields
            Debug.Print fld.Name
        Next
    End If
Next
End Function

改訂履歴

• 2003/11/02 DAO オブジェクト変数の宣言に "DAO" 修飾を追加。

目次へ戻る