Problème pour déclaration d'un champ auto increment

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème pour déclaration d'un champ auto increment

hacksi

Bonjour,

je sais que ce problème à ce sujet revient souvent, mais je n'ai pas réussi à trouver la réponse à ma question.
Donc sous access, en vba j'essaye de créer des tables et l'un des champs de ces tables doit être de type auto increment mais je ne parvient pas à le déclarer correctement. J'ai essayé différentes méthodes mais sans succès et voici la dernière en date : CurrentDb.Execute "CREATE TABLE STATION__ (Id_station INT AUTO_INCREMENT PRIMARY KEY, Nom VARCHAR (50))"

Voila j'espère que vous pourrez m'aider
Merci

Publicité

olivthill

Pour les numéros automatiques, il ne faut pas spécifier le type et le mot clef est AUTOINCREMENT sans underscore :

CurrentDb.Execute "CREATE TABLE STATION__ (Id_station AUTOINCREMENT PRIMARY KEY, Nom VARCHAR (50))"

hacksi

ok merci ça marche il me semblait pourtant avoir déjà essayé cette méthode. Enfin bref le principale c'est que celà fonctionne encore merci

hacksi

Une autre petite question si je souhaite déclarer la table de la façon suivante :

Code :

Dim Table As TableDef, Idx As Index
Dim Chp As Field, Bd As Database
Set Bd = CurrentDb
CurrentDb.Execute "DROP TABLE STATION__"
Set Table = CurrentDb.CreateTableDef("STATION" )
With Table.Fields
.Append Table.CreateField("Id_station", AUTOINCREMENT)
.Append Table.CreateField("Nom", dbText, 50)
End With
Set Idx = Table.CreateIndex("I1" )
Idx.Fields.Append Idx.CreateField("Id_station" )
Idx.Primary = True
Table.Indexes.Append Idx
Bd.TableDefs.Append Table

Comment je fais pour déclarer le champ autoincrement ??

olivthill

Of course .Append Table.CreateField("Id_station", AUTOINCREMENT) ne va pas marcher, il faut un dbquelquechose.

En m'inspirant de lexemple à http://msdn.microsoft.com/library/ [...] abaseX.asp je pense qu'il faut faire :

With Table.Fields
.Append Table.CreateField("Id_station", dbLong + dbAutoIncrField)
.Append Table.CreateField("Nom", dbText, 50)
End With

hacksi

je viens d'essayer mais ça ne marche pas.
Erreur : type de champs de données non valide

hacksi

Sinon je fais :

Code :

Set Table = CurrentDb.CreateTableDef("UF__" )
Set Chp = Table.CreateField("Id_uf", dbLong)
Chp.OrdinalPosition = 1
Chp.Attributes = dbAutoIncrField
Table.Fields.Append Chp
Set Chp = Table.CreateField("Num_uf", dbText, 50)
Table.Fields.Append Chp
Set Chp = Table.CreateField("Id_equip", dbLong)
Table.Fields.Append Chp
Set Chp = Table.CreateField("Libelle", dbText, 50)
Table.Fields.Append Chp
Set Idx = Table.CreateIndex("I2" )
Idx.Primary = True
Idx.Required = True
Idx.Unique = True
Set Chp = Idx.CreateField("Num_uf" )
Idx.Fields.Append Chp
Set Chp = Idx.CreateField("Id_equip" )
Idx.Fields.Append Chp
Table.Indexes.Append Idx
Bd.TableDefs.Append Table

donc la le champ est bien en NumeroAuto mais la le problème c'est que mes champs ne sont pas indexés

hacksi

en fait j'ai remarqué que c'est lorsque je met plusieurs champs dans l'index que ça ne marche plus mais je n'ai pas de message d'erreur.

tegu

Le fait d'ajouter les champs à la collection de l'index avant de déclarer la propriété .Primary = True change-t-il quelque chose ?

hacksi

Non celà ne change rien

Publicité

hacksi

Personne ne peut m'aider...

olivthill

Le lien chez Microsoft que j'ai cité plus haut donne un exemple qui marche (bien sûr c'est un peu différent, faut un peu l'adapter), et une rapide recherche sur Google avec les mots CreateIndex et CreateField retourne d'autres réponses qui constituent une source d'inspiration pour ta solution.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problème pour déclaration d'un champ auto increment

Sujets relatifs
Probleme script Upload [résolu]	Problème récupération Valeur de variable
problème avec le signe supérieur	[PHP][XSLT][entity] Problème avec les Entities ...
[Résolu]Problème avec un script de dockbar type mac OS	probleme de rafraichissement de l affichage sous firefox
problème avec la commande "connect to"	probleme lien banniere flash
problème avec la commande xcopy	Probleme avec le controle LEAD dans VB6
Plus de sujets relatifs à : Problème pour déclaration d'un champ auto increment

Page générée en 0.030 secondes