MyTetra Share
Делитесь знаниями!
Добавление поля в таблицу
18.07.2018
20:03
Раздел: VBA - Access - msa.polarcom.ru

Добавление поля в таблицу

Private Sub AddNewField()

Dim fld As DAO.Field

Dim tbl As DAO.TableDef

Dim db As DAO.Database


On Error GoTo AddNewFieldErr

Set db = CurrentDb

Set tbl = db.TableDefs("tblExample")

Set fld = tbl.CreateField("exNewFieldINT")

'Определение свойств поля

With fld

.Type = dbInteger

.DefaultValue = 0

End With

'Добавление

tbl.Fields.Append fld


AddNewFieldBye:

Exit Sub


AddNewFieldErr:

MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _

"in procedure AddNewField of Module mod00Test", vbCritical, "Error!"

Resume AddNewFieldBye

End Sub






Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования