Access_CreateTable
Sub xxx()

Set dbs = CurrentDb
Set tbl = dbs.CreateTableDef("tbl_Name1")
Set fldA = tbl.CreateField("Field1", dbBoolean)
fldA.DefaultValue = False
tbl.Fields.Append fldA

Set fldB = tbl.CreateField("Field2", dbText, 255)
tbl.Fields.Append fldB
Set fldC = tbl.CreateField("Field3", dbInteger)
tbl.Fields.Append fldC
Set fldD = tbl.CreateField("Field4", dbCurrency)
tbl.Fields.Append fldD
dbs.TableDefs.Append tbl

fldA.Properties.Append fldA.CreateProperty("DisplayControl", dbInteger, CInt(acCheckBox))

dbs.TableDefs.Refresh

End Sub

http://www.access-im-unternehmen.de/732

Kreuztabellen:
http://www.access-im-unternehmen.de/765

https://social.msdn.microsoft.com/Forums/office/en-US/f0174981-b536-46a8-817f-fbabf4b7b4b6/set-properties-for-field-created-with-vba?forum=accessdev

Feldeigenschaften in VBA angeben bzw. verändern.
https://support.microsoft.com/de-de/help/504007
http://www.utteraccess.com/forum/CreateField-ShortDate-t1956801.html

TableDef.CreateField
https://msdn.microsoft.com/de-de/library/office/ff821396.aspx,

create the calculated field: full name
https://msdn.microsoft.com/de-de/library/office/ff821396.aspx

Comparison of Data Types
https://msdn.microsoft.com/en-us/library/aa157100.aspx

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License