Auto incrementationRésolu

Question

Voila, je cr&#233;e une table dont la cle primaire doit s'incrementer de 1 a chaque nouvel enregistrement.


Pour cela j'utilise la propriete dbAutoIncrField dans la creation du field.

Voici mon code :

Set Tbl_droit = dbDroit.CreateTableDef("Droit")
'insertion des champs
With Tbl_droit
    .Fields.Append .CreateField("L002", dbLong, dbAutoIncrField)
    .Fields.Append .CreateField("L001", dbLong)
    .Fields.Append .CreateField("D001", dbText, 12)
    .Fields.Append .CreateField("F001", dbText, 12)
    .Fields.Append .CreateField("C001", dbText, 8)
    
    'cr&#233;ation de l'index primaire de la table droit
    Set idx = .CreateIndex("indexDroit_P")
    idx.Fields.Append idx.CreateField("L002")
    idx.Unique = True
    .Indexes.Append idx
End With
dbDroit.TableDefs.Append Tbl_droit

Le probleme :
Il me met toute les valeurs de L002 &#224; null.....Pourquoi?
Si qqun  sait.....

bmikl59 · Accepted Answer

OK au lieu de faire 

      Fields.Append .CreateField("L002", dbLong, dbAutoIncrField)

il faut faire :
      .Fields.Append .CreateField("L002", dbLong)
      .Fields("L002").Attributes = dbAutoIncrField

Voila merci moi qui ai trouv&#233;

olixelle · Answer

je crois qu'il faut que tu d&#233;finisses les infos increment_seed & increment_step

Rollerman

bmikl59 · Answer

D'accord mais comment on fait pour les d&#233;finir?

Auto incrementation

3 réponses

Discussions similaires