Hi i found this code in this forum courtesy of Lory from Singapore (thanks!)
\r\n
\r\nPrivate Sub Command1_Click()
\r\nOn Error GoTo CSErr
\r\n
\r\nDim i As Integer
\r\nDim tblTableDefObj As TableDef
\r\nDim fldFieldObj As Field
\r\nDim tdf As TableDef
\r\nDim fld As Field
\r\n
\r\nDim CurrentDatabase As Database
\r\nDim FTableName As String
\r\nDim ToTableName As String
\r\n
\r\n\'search to see if table exists
\r\n
\r\nSet CurrentDatabase = DBEngine(0).OpenDatabase(App.Path + "\\data1.mdb")
\r\nSet tblTableDefObj = CurrentDatabase.CreateTableDef()
\r\n
\r\nFTableName = "Hang" \'table you want to copy structure
\r\nToTableName = "Copy_of_Hang" \' Name for New table
\r\ntblTableDefObj.Name = ToTableName
\r\n
\r\n\'create the fields
\r\nFor i = 0 To CurrentDatabase.TableDefs(FTableName).Fields.Count - 1
\r\nSet fld = CurrentDatabase.TableDefs(FTableName).Fields(i)
\r\nSet fldFieldObj = CurrentDatabase.TableDefs(FTableName).CreateField(fld.Name, fld.Type, fld.Size)
\r\ntblTableDefObj.Fields.Append fldFieldObj
\r\nNext
\r\n
\r\n\'append the new table
\r\nCurrentDatabase.TableDefs.Append tblTableDefObj
\r\n
\r\nExit Sub
\r\nCSErr:
\r\n\'Err trap
\r\n
\r\nEnd Sub
\r\n
\r\n
\r\nOk, so this works (but its too long), is there any short method to this? and how can I delete the table in case using this same code?