Object invalid or no longer set

[Randy Fritz]

Hello NG,

I know how to create a table in code but I am trying to set certain
fields defaultvalue to 0 that I create. How do you do this?

set tdfNew = CurrentDB.CreateTableDef("LB Orders")
with tdfNew
.Fields.Append .CreateField("STYL", dbText, 50)
.Fields.Append .CreateField("COLR", dbText, 50)
.Fields.Append .CreateField("XS Dozens", dbDouble)
.Fields.Append .CreateField("XS Pieces", dbDouble)
.Fields.Append .CreateField("Hours", dbDouble)
CurrentDb.TableDefs.Append tdfNew
End With

I want to set my double fields DefaultValue to 0 before using the table.
TIAFAH
Randy

 

[Dirk Goldgar]

Hello NG,

I know how to create a table in code but I am trying to set
certain fields defaultvalue to 0 that I create. How do you do this?

set tdfNew = CurrentDB.CreateTableDef("LB Orders")
with tdfNew
.Fields.Append .CreateField("STYL", dbText, 50)
.Fields.Append .CreateField("COLR", dbText, 50)
.Fields.Append .CreateField("XS Dozens", dbDouble)
.Fields.Append .CreateField("XS Pieces", dbDouble)
.Fields.Append .CreateField("Hours", dbDouble)
CurrentDb.TableDefs.Append tdfNew
End With

I want to set my double fields DefaultValue to 0 before using the
table. TIAFAH
Randy

Insert these lines before appending the tabledef:

tdfNew.Fields("XS Dozens").DefaultValue = "0"
tdfNew.Fields("XS Pieces").DefaultValue = "0"
tdfNew.Fields("Hours").DefaultValue = "0"

Rather than call CurrentDb twice, I'd probably write

Dim db As DAO.Database

Set db = CurrentDb
set tdfNew = db.CreateTableDef("LB Orders")

' ... work with tdfNew ...

db.TableDefs.Append tdfNew
Set tdfNew = Nothing
Set db = Nothing