[AccessD] AUTONUMBER

Really very simple, many thanks with this....

Juan Menendez
Mastercafe SL


-----Mensaje original-----
De: accessd-admin at databaseadvisors.com
[mailto:accessd-admin at databaseadvisors.com]En nombre de Joshua B
Enviado el: domingo, 02 de marzo de 2003 23:59
Para: accessd at databaseadvisors.com
Asunto: Re: RE: [AccessD] AUTONUMBER


Hello MastercafeCTV,

.Fields.Append .CreateField("MyAutoNumber", dbLong)
.Fields("MyAutoNumber").Attributes = dbAutoIncrField


======= At 2003-03-02, 23:52:00 you wrote: =======

>Excuse me... I explain very bad... sorry.
>
>This is the main code
>
>Dim ws As Workspace
>Dim db As Database
>Dim dbdest As Database
>Dim tdf As TableDef
>
>Set db = CurrentDb
>Set ws = DBEngine.Workspaces(0)
>Set dbdest = ws.CreateDatabase(cteTickets & "\actualiza.mdb",
dbLangGeneral)
>Set tdf = dbdest.CreateTableDef("Base Clientes")
>With tdf
>    .Fields.Append .CreateField("Cliente", dbText, 15)
>    .Fields.Append .CreateField("ClteNombre", dbText, 50)
>    .Fields.Append .CreateField("ClteFnac", dbDate)
>    .Fields.Append .CreateField("acumcompra", dbSingle)
>    .Fields.Append .CreateField("transmit", dbBoolean)
>    .Fields.Append .CreateField("modif", dblong)
>End With
>dbdest.TableDefs.Append tdf
>
>The problem is how generate a CreateField Autonumber??
>
>Thanks
>
>Juan Menendez
>Mastercafe SL
>
>



Best regards.
Joshua B
jbusergroups at optushome.com.au
2003-03-03



_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com