Voila, je cré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é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 à null.....Pourquoi?
Si qqun sait.....