Adding new column to existing table
Sub CreateFieldX()
Dim dbsNeptuno As Database
Dim tdfNuevo As TableDef
Dim fldBucle As Field
Dim prpBucle As Property
Set dbsNeptuno = OpenDatabase("Neptuno.mdb")
Set tdfNuevo = dbsNeptuno.CreateTableDef("NuevoTableDef")
With tdfNuevo
.Fields.Append .CreateField("CampoTexto", dbText)
.Fields.Append .CreateField("CampoEntero", dbInteger)
.Fields.Append .CreateField("CampoFecha", dbDate)
End With
dbsNeptuno.TableDefs.Append tdfNuevo
End Sub
MSDN v6.0a
fjmendez
Mark Taylor escribi en mensaje
Quote:
>Is it possible to add a new column to an existing table with code? If
>so, could someone post an example. Thanks in advance.
>Mark
