DB Create a Field on a Table

Sub CreateCalculatedField() Dim dbs As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field2 ' get the database Set dbs = CurrentDb() ' create the table Set tdf = dbs.CreateTableDef("tblContactsCalcField") ' create the fields: first name, last name tdf.Fields.Append tdf.CreateField("FirstName", dbText, 20) tdf.Fields.Append tdf.CreateField("LastName", dbText, 20) ' create the calculated field: full name Set fld = tdf.CreateField("FullName", dbText, 50) fld.Expression = "[FirstName] & "" "" & [LastName]" tdf.Fields.Append fld ' append the table and cleanup dbs.TableDefs.Append tdf Cleanup: Set fld = Nothing Set tdf = Nothing Set dbs = Nothing End Sub