Discussion :

[nononono76]

Bonjour,
Je cherche comment créer un champ numéroAuto en VBA Access dans une table existante ?
Dans l'aide j'ai trouvé Set field = object.CreateField (name, type, size)
mais dans type il y a tout sauf "numéroAuto"

Comment faire ?
merci d'avance et bonne année à tous ...

[Heureux-oli]

Vite fait pour le dernier jour de l'année.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Form_AfterInsert()
Dim Nummax As Integer
Nummax = DMax("TestAutonumber", "qestions")
Debug.Print Nummax
TestAutonumber = Nummax + 1
 
 
End Sub

Avec TestAutonumber, le nom de mon champ à incrémenter
qestions, le nom de ma table


Bonne fin et bon début.

[nononono76]

Merci, et bonnes fêtes

[helas]

Pour créer une table avec un champ NumeroAuto
L'ordre des opérations est importante
1) définir l'index et ses propriétés
2) définir et ajouter les champs
3) ajouter l'index
4) ajouter la table
Dans une table déjà créée, un champ ne peut pas être muté en champ NumeroAUto

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub CreationTable()
 Dim t As tabledef, f As Field, i As Index
 
 Set t = CurrentDb.CreateTableDef("MaTable")
 
 With t
  Rem *** Création de l'index ***
  Set i = .CreateIndex("n")
  i.Fields.Append i.CreateField("n", dbLong)    'doit porter le même nom que le champ indexé
  i.Primary = True
 
  Rem *** Création des champs ***
  .Fields.Append .CreateField("texte", dbText, 20)
  .Fields.Append .CreateField("n", dbLong)
  .Fields("n").Attributes = 17             'NumeroAuto
 
  Rem *** Ajout de l'index ***
  .Indexes.Append i
 
 End With
 
 CurrentDb.TableDefs.Append t
 
End Sub

[nononono76]

Bonjour
Génial, c'est exactement ce que je cherchais
Mille merci !!!
Meilleurs voeux à tous