How to make a counter field in Access 2.0 using something like Set MyField = MyTableDef.Crea teField("Segmen t", DB_LONG)

[MLH]

I would like to modify the following Access Basic code in Access 2.0
app so the [Segment] field would an automatic counter-type field.

Dim DefaultWorkspac e As WorkSpace, CurrentDatabase As Database
Dim MyTableDef As TableDef
Dim MyField As Field
Set DefaultWorkspac e = DBEngine.Worksp aces(0)
Set CurrentDatabase = DefaultWorkspac e.Databases(0)
Set MyTableDef = CurrentDatabase .CreateTableDef ("tblTempTable" )
Set MyField = MyTableDef.Crea teField("Segmen t", DB_LONG)
MyTableDef.Fiel ds.Append MyField
Set MyField = MyTableDef.Crea teField("Segmen tText", DB_MEMO)
MyTableDef.Fiel ds.Append MyField
CurrentDatabase .TableDefs.Appe nd MyTableDef

Can anyone tell me how to modify the above code so [Segment] will
be a counter field upon creation?

[Douglas J. Steele]

With Access 97, you'd use

Set MyTableDef = CurrentDatabase .CreateTableDef ("tblTempTable" )
Set MyField = MyTableDef.Crea teField("Segmen t", dbLong)
MyField.Attribu tes = MyField.Attribu tes + dbAutoIncrField
MyTableDef.Fiel ds.Append MyField

Unfortunately, I don't have Access 2 handy, so I can't check what the
equivalent to dbAutoIncrField would be in Access 2.0. dbAutoIncrField is
equal to 16. See if that works.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"MLH" <CR**@NorthStat e.net> wrote in message
news:ql******** *************** *********@4ax.c om...

I would like to modify the following Access Basic code in Access 2.0
app so the [Segment] field would an automatic counter-type field.

Dim DefaultWorkspac e As WorkSpace, CurrentDatabase As Database
Dim MyTableDef As TableDef
Dim MyField As Field
Set DefaultWorkspac e = DBEngine.Worksp aces(0)
Set CurrentDatabase = DefaultWorkspac e.Databases(0)
Set MyTableDef = CurrentDatabase .CreateTableDef ("tblTempTable" )
Set MyField = MyTableDef.Crea teField("Segmen t", DB_LONG)
MyTableDef.Fiel ds.Append MyField
Set MyField = MyTableDef.Crea teField("Segmen tText", DB_MEMO)
MyTableDef.Fiel ds.Append MyField
CurrentDatabase .TableDefs.Appe nd MyTableDef

Can anyone tell me how to modify the above code so [Segment] will
be a counter field upon creation?

[MLH]

Hey, thanks much for the lead. A minor adjustment for Access 2.0
which uses DB_AUTOINCRFIEL D as opposed to dbAutoIncrField .
I owe you one.

xxxxxxxxxxxxxxx xxxxxxxxxxxxxxx xxxxxxxxxxx

On Sat, 9 Oct 2004 19:50:20 -0400, "Douglas J. Steele"
<NOSPAM_djsteel e@NOSPAM_canada .com> wrote:

With Access 97, you'd use

Set MyTableDef = CurrentDatabase .CreateTableDef ("tblTempTable" )
Set MyField = MyTableDef.Crea teField("Segmen t", dbLong)
MyField.Attribu tes = MyField.Attribu tes + dbAutoIncrField
MyTableDef.Fiel ds.Append MyField

Unfortunatel y, I don't have Access 2 handy, so I can't check what the
equivalent to dbAutoIncrField would be in Access 2.0. dbAutoIncrField is
equal to 16. See if that works.