create RandomNumber field

[matrixindicator]

Hoy,

You can create an autonumber field with vba. I wonder how I can set the field attributes to a Random Number. Manually you can set an autonumber field to random.

Set fld = tdf.CreateField("RNDNR", dbLong, 50)
fld.Attributes = dbAutoIncrField 'this is an increment autonumber
tdf.Fields.Append fld

 

[Remou]

A few notes.

    Dim db As Database
    Dim tdf As TableDef

    Set db = CurrentDb
    Set tdf = db.CreateTableDef("tblTable")

    tdf.Fields.Append tdf.CreateField("RandomID", dbLong)
    tdf.Fields("RandomID").Attributes = dbAutoIncrField
    db.TableDefs.Append tdf
    tdf.Fields("RandomID").DefaultValue = "GenUniqueID()"