Hello all -
I have a table I build with DAO code, then need to add fields and set a Text field to allow Zero-Length strings. I can not figure out how to set the field's property to allow this.
Anybody know how to do this?
Here is the code so far (Dims not included):
Set tdfNew1 = dbs.CreateTableDef("tbl_ImpTemp")
With tdfNew1
.Fields.Append .CreateField("OwnLib", dbText)
.Fields.Append .CreateField("ListTables", dbText)
.Fields.Append .CreateField("ImpTableName", dbText)
.Fields.Append .CreateField("Std", dbBoolean)
.Fields.Append .CreateField("RealTime", dbBoolean)
.Fields.Append .CreateField("DB_ID", dbLong)
.Fields.Append .CreateField("Delete", dbBoolean)
End With
dbs.TableDefs.Append tdfNew1
TIA, KMAN
I have a table I build with DAO code, then need to add fields and set a Text field to allow Zero-Length strings. I can not figure out how to set the field's property to allow this.
Anybody know how to do this?
Here is the code so far (Dims not included):
Set tdfNew1 = dbs.CreateTableDef("tbl_ImpTemp")
With tdfNew1
.Fields.Append .CreateField("OwnLib", dbText)
.Fields.Append .CreateField("ListTables", dbText)
.Fields.Append .CreateField("ImpTableName", dbText)
.Fields.Append .CreateField("Std", dbBoolean)
.Fields.Append .CreateField("RealTime", dbBoolean)
.Fields.Append .CreateField("DB_ID", dbLong)
.Fields.Append .CreateField("Delete", dbBoolean)
End With
dbs.TableDefs.Append tdfNew1
TIA, KMAN