ник: ars_bs
Аргументы: 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