Create And Manage Databases

[Hack]

Private NewDef As TableDef
Private NewField As Field
Private SQL As String
 
'LocalDB is a database object
 
      SQL = "CREATE TABLE ReportTable "
      LocalDb.Execute SQL
 
      With LocalDB
         Set NewDef = .TableDefs!ReportTable
         Set NewField = NewDef.CreateField("SerialNumber", dbText, 15)
           NewField.AllowZeroLength = True
           NewDef.Fields.Append NewField
         Set NewField = NewDef.CreateField("ModelCode", dbText, 15)
           NewField.AllowZeroLength = True
           NewDef.Fields.Append NewField
         Set MyField = NewDef.CreateField("AcceptBuildStatus", dbText, 8)
           NewField.AllowZeroLength = True
           NewDef.Fields.Append NewField
         Set MyField = NewDef.CreateField("Station", dbText, 8)
           NewField.AllowZeroLength = True
           NewDef.Fields.Append NewField
         Set MyField = NewDef.CreateField("BuildTask", dbText, 8)
           NewField.AllowZeroLength = True
           NewDef.Fields.Append NewField
       End With