MS Access | DAO | Создать таблицу, указать ключ

'установка ключевого поля (DAO)

Sub CreatePrimaryKey_DAO()

Dim db As Database

Dim tbl As TableDef

Dim idx As DAO.Index

Set db = CurrentDb

Set tbl = db.CreateTableDef("NewPrimaryKey")

tbl.Fields.Append tbl.CreateField("PK", dbText)

db.TableDefs.Append tbl

Set idx = tbl.CreateIndex("PrimaryKey")

'PrimaryKey - всегда для имени ключа

idx.Fields.Append idx.CreateField("PK", dbText)

idx.Unique = True

idx.Primary = True

tbl.Indexes.Append idx

'db.TableDefs.Refresh

End Sub