Добавление - Удаление индекса

Добавление индекса

Dim db As Database

Dim tdf As TableDef

Dim idx As Index

Set db = CurrentDb

Set tdf = db.TableDefs("Название таблицы")

Set idx = tdf.CreateIndex("PrimaryKey")

With idx

'Добавление полей в индекс

.Fields.Append .CreateField("Название поля")

.Fields.Append .CreateField("Название поля 2")

'Свойства индекса

.Unique = True 'Уникальный

.Primary = True 'Первичный

End With

tdf.Indexes.Append idx

tdf.Indexes.Refresh

Set db = Nothing

Set tdf = Nothing

Set idx = Nothing

Удаление индекса

'Сносит индекс "PrimaryKey" у таблицы "TableTest"

CurrentDb.TableDefs("TableTest").Indexes.Delete ("PrimaryKey")