Alex

Thx for this. But this is an example straight from the help file. I have
already tried this using a field definition and appending to the field
properties collection. I can create the property but when I append it to the
collection it produces an error.

Also I am not sure if the DecimalPlaces property is a dbInteger or dbLong or
dbText field? I notice that in the design for a table the DecimalPlaces
property can have a value of Auto or 0 thru to 15. Is Auto represented
with -1?

I have posted my code below:-

Dim ldbsCurrent As DAO.Database

Dim lrstSource As DAO.Recordset
Dim lfldSource As DAO.Field
Dim lstrDestination As String
Dim lrstDestination As DAO.Recordset
Dim ltdfDestination As DAO.TableDef
Dim lprpDestination As DAO.Property
Dim lstrCurrentEntityClass As String
Dim lstrNewEntityClass As String

   Set ldbsCurrent = CurrentDb()
   Set lrstSource = ldbsCurrent.OpenRecordset("tblEntityFieldUsage")
   lstrDestination = "tblXML_FieldUsage_Component"
   Set ltdfDestination = ldbsCurrent.CreateTableDef(lstrDestination)

   'using the source fields collection, create fields in the new table
definition
   For Each lfldSource In lrstSource.Fields
      ltdfDestination.Fields.Append
ltdfDestination.CreateField(lfldSource.Name, lfldSource.Type)
      ltdfDestination.Fields(lfldSource.Name).AllowZeroLength = True
      If lfldSource.Type = dbLong Then
'code fails here....
         Set lprpDestination =
ltdfDestination.Fields(lfldSource.Name).CreateProperty("DecimalPlaces",
dbInteger, 0)
         ltdfDestination.Fields(lfldSource.Name).Properties.Append
lprpDestination
      End If
   Next

   'append the new destination table to the tables collection and
   'open a new recordset
   ldbsCurrent.TableDefs.Append ltdfDestination
   Set lrstDestination = ldbsCurrent.OpenRecordset(lstrDestination)

Maybe you or someone else can spot the mistake? (I have been staring at it
for toooo long...)

cheers
Jeff