VBA code

[Guest]

How do I write code to insert a field into a table and then the field type

 

[Duane Hookom]

Here is some code that uses the DAO object library:

Dim db As DAO.Database
Dim tdef As DAO.TableDef
Dim fld As DAO.Field
Set db = CurrentDb
Set tdef = db.TableDefs("tblCaseCount")
With tdef
.Fields.Append .CreateField("FirstHrCases", dbDouble)
.Fields.Append .CreateField("FirstHrComments", dbText, 75)
.Fields.Append .CreateField("ChangeOver", dbBoolean)
.Fields.Append .CreateField("UpdateBy", dbText, 20)
.Fields.Append .CreateField("UpdateWhen", dbDate)
End With
set tdef = nothing
Set db = Nothing

 

[Tim Ferguson]

How do I write code to insert a field into a table and then the field
type

sqlCommand = _
"ALTER TABLE MyTable " & _
"ADD COLUMN MyNewColumn INTEGER"

CurrentDB().Execute sqlCommand, dbFailOnError



Hope that helps


Tim F