/topic/80823&hl=createfield
' Создает индекс по ключевому полю. Set idx = tdf.CreateIndex("Ключевое поле") Set fldIndex = idx.CreateField("КодКонтакта", dbLong) ' Добавляет поля индекса. idx.Fields.Append fldIndex ' Задает значение свойства Primary. idx.Primary = True ' Задает значение свойства Unique. idx.Unique = True ' Добавляет индекс. tdf.Indexes.Append idx
Set td = db.TableDefs("TableName") Set fd = td.CreateField("FieldName", dbLong): fd.Attributes = dbAutoIncrField td.Fields.Append fd: td.Fields.Refresh