create a primary Key with autonumber

[sal21]

I use this code to set Index in a fields.

Code: Select all

Public Sub CREA_INDICI_IN_FIELD_T()

    Dim db As DAO.Database
    Dim TDF As DAO.TableDef
    Dim IDX As DAO.Index
    Dim FLD As DAO.Field

    On Error GoTo ExitHandler

    Set db = DBEngine.Workspaces(0).OpenDatabase("C:\GAF_TENDER\ANAGRAFICA.mdb")
    Set TDF = db.TableDefs("GAF_CC_DAILY")

    Set IDX = TDF.CreateIndex("NDG")
    Set FLD = IDX.CreateField("NDG")
    IDX.Fields.Append FLD
    IDX.Unique = False
    TDF.Indexes.Append IDX

    Set IDX = TDF.CreateIndex("RAPPORTO")
    Set FLD = IDX.CreateField("RAPPORTO")
    IDX.Fields.Append FLD
    IDX.Unique = False
    TDF.Indexes.Append IDX

    Set IDX = TDF.CreateIndex("SPORTELLO")
    Set FLD = IDX.CreateField("SPORTELLO")
    IDX.Fields.Append FLD
    IDX.Unique = False
    TDF.Indexes.Append IDX

    Set IDX = TDF.CreateIndex("CTR")
    Set FLD = IDX.CreateField("CTR")
    IDX.Fields.Append FLD
    IDX.Unique = False
    TDF.Indexes.Append IDX
    '
    Set IDX = TDF.CreateIndex("COD_FIDO")
    Set FLD = IDX.CreateField("COD_FIDO")
    IDX.Fields.Append FLD
    IDX.Unique = False
    TDF.Indexes.Append IDX

    Set IDX = TDF.CreateIndex("SEG")
    Set FLD = IDX.CreateField("SEG")
    IDX.Fields.Append FLD
    IDX.Unique = False
    TDF.Indexes.Append IDX

    Set IDX = TDF.CreateIndex("COPE")
    Set FLD = IDX.CreateField("COPE")
    IDX.Fields.Append FLD
    IDX.Unique = False
    TDF.Indexes.Append IDX

    Set IDX = TDF.CreateIndex("SETTORE")
    Set FLD = IDX.CreateField("SETTORE")
    IDX.Fields.Append FLD
    IDX.Unique = False
    TDF.Indexes.Append IDX

    Set IDX = TDF.CreateIndex("PORTAFOGLIO")
    Set FLD = IDX.CreateField("PORTAFOGLIO")
    IDX.Fields.Append FLD
    IDX.Unique = False
    TDF.Indexes.Append IDX

    Set IDX = TDF.CreateIndex("PROD_COMME")
    Set FLD = IDX.CreateField("PROD_COMME")
    IDX.Fields.Append FLD
    IDX.Unique = False
    TDF.Indexes.Append IDX

    Set IDX = TDF.CreateIndex("INDICE")
    Set FLD = IDX.CreateField("INDICE")
    IDX.Fields.Append FLD
    IDX.Unique = False
    TDF.Indexes.Append IDX

    Set db = Nothing
    Set TDF = Nothing
    Set IDX = Nothing
    Set FLD = Nothing

    Exit Sub

ExitHandler:

    Set db = Nothing
    Set TDF = Nothing
    Set IDX = Nothing
    Set FLD = Nothing

    MsgBox Err.Description, vbExclamation

End Sub

is possible to insert a Primary key with auto number in the head of the list of fields.?

Other way are welcome to use insnstead Dao a Ado code to make the complete code, but dont know the way:-(

[agibsonsw]

A quick Google reveals http://support.microsoft.com/kb/210405

Essentially,

Code: Select all

Set Fld = TDef.CreateField(FName, dbLong)
   Fld.Attributes = dbAutoIncrField