Аргументы: 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):
| Константа |
Тип данных |
| dbBigInt |
Big Integer |
| dbBinary |
Binary |
| dbBoolean |
Boolean |
| dbByte |
Byte |
| dbChar |
Char |
| dbCurrency |
Currency |
| dbDate |
Date/Time |
| dbDecimal |
Decimal |
| dbDouble |
Double |
| dbFloat |
Float |
| dbInteger |
Integer |
| dbLong |
Long |
| dbLongBinary |
Long Binary (OLE Object) |
| dbMemo |
Memo |
| dbNumeric |
Numeric |
| dbSingle |
Single |
| dbText |
Text |
| dbTime |
Time |
| dbTimeStamp |
Time Stamp |
| dbVarBinary |
VarBinary |