VBA code

  • Thread starter Thread starter Guest
  • Start date Start date
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
 
How do I write code to insert a field into a table and then the field
type
Click to expand...

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

CurrentDB().Execute sqlCommand, dbFailOnError



Hope that helps


Tim F
 
Back
Top