Marshall

The reason I'm trying to do this is I want to create a table in code instead
of from the design view with the correct properties.

If i use the CreateTable first and then call the code below, I receive:
"There are several tables with that name.  Please specify owner in the format
'owner.table'."Set NewTable = MyDatabase.TableDefs("TabNewWiring2")"
statement.

If I take an existing table and remove all the fields except for 1, run the
following it works. If I create a table from scratch in the design view with
1 field and run the same thing, I recieve "Item not found in this collection"
on the "Set NewTable = MyDatabase.TableDefs("TabNewWiring2") statement. What
is the reason for this?

Function CreateOthers()
   Dim MyDatabase As Database, NewTable As TableDef
   Dim fldTemp As Field
   On Error GoTo CreateOtherdef
   Set MyDatabase = DBEngine.Workspaces(0).Databases(0)
   Set NewTable = MyDatabase.TableDefs("TabNewWiring2")
   ' Create a new Field object and append it to the Fields
   ' collection of the Employees table.
   Set fldTemp = NewTable.CreateField("Field2", dbText, 10)
   fldTemp.AllowZeroLength = True
   NewTable.Fields.Append fldTemp

   DoCmd.SetWarnings True
   Exit Function
   
CreateOtherdef:
   Debug.Print Error$
   Stop
End Function

Marshal

Once I changed the  Set MyDB from DBEngine.Workspaces(0).Databases(0) to
OpenDatabase("h:\access\hsbb\HSBB.mdb"), everything worked fine. I was able
to use the following:

Function CreateTable()
   Dim MyDatabase As Database, NewTable As TableDef
   
   Set MyDatabase = OpenDatabase("h:\access\hsbb\HSBB.mdb")
   DoCmd.SetWarnings False
   On Error GoTo CreateTabledef
   DoCmd.DeleteObject acTable, "TabNewWiring"
CreateTabledef:
   On Error GoTo CreateTableErr
   Set NewTable = MyDatabase.CreateTabledef("TabNewWiring")
   With NewTable
       .Fields.Append .CreateField("RefNO", dbLong)
   End With
   MyDatabase.TableDefs.Append NewTable
   Call CreateOthers
   DoCmd.SetWarnings True
   Exit Function
CreateTableErr:
   Stop
End Function

Function CreateOthers()
   Dim MyDatabase As Database, NewTable As TableDef
   Dim fldTemp As Field
   On Error GoTo CreateOtherdef
   Set MyDatabase = OpenDatabase("h:\access\hsbb\HSBB.mdb")
   Set NewTable = MyDatabase.TableDefs("TabNewWiring")
   Set fldTemp = NewTable.CreateField("NewDConnections", dbBoolean)
   NewTable.Fields.Append fldTemp
   DoCmd.SetWarnings True
   Exit Function
CreateOtherdef:
   DoCmd.SetWarnings True
   Debug.Print Error$
   Stop
End Function

John