Bonjour tout le monde,
J’aimerais ajouter un nouveau champs a la table “Sales” et faire de ce nouveau une clef primaire qui commence par 77 et augemente de 3.
Pour ce faire, j’utilise le code suvant mais la clef primaire commence par 1 et augmente de 1.
Quelqu’un aurait il l’amabilite de ma dire ce que cloche dans mon.
Pour info, j’ai pique le code de ce site et l’ai legerement modifie:
http://msdn.microsoft.com/en-us/libr...ffice.10).aspx
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
26
27
28
29
30
31 Sub ClefPrimaireAvecADOx() 'Ajuouter un nouveau champs et faire de ce dernier un champs primaire. 'le champs doit commencer par 77 et avec Increment=3. Dim Cat As ADOX.Catalog, Cn As ADODB.Connection Set Cat = CreateObject("adox.catalog") Set Cn = Application.CurrentProject.Connection Set Cat.ActiveConnection = Cn Dim Col As ADOX.Column Set Col = CreateObject("adox.column") With Col .Name = "RecordID" .Type = adInteger Set .ParentCatalog = Cat .Properties("AutoIncrement") = True .Properties("Seed") = CLng(77) .Properties("Increment") = CLng(3) End With Cat.Tables("sales").Columns.Append Col 'Liberer de l'espace. Set Col = Nothing Set Cn = Nothing Set Cat = Nothing End Sub
merci d avance
Partager