Программное добавление поля в таблицу

Аргументы: strTable - имя таблицы, strField - имя поля, FldType - тип поля
Назначение: Программное добавление поля в таблицу


Public Sub AddField(strTable As String, strField As String, FldType As Variant)
Dim dbs As Database
Dim tdf As TableDef
Dim fld As Field
On Error GoTo m1

Set dbs = CurrentDb
Set tdf = dbs.TableDefs(strTable)
Set fld = tdf.CreateField(strField)
fld.Type = FldType
tdf.Fields.Append fld
Set fld = Nothing
Set tdf = Nothing
Set dbs = Nothing
Exit Sub
m1:
If Err.Number = 3191 Then MsgBox "Поле с таким именем [" & strField & "] уже существует.": Exit Sub
Resume Next
End Sub

Константы используемые для задания типа создаваемого поля(FldType):