Forcer clé primaire à zéro en vba [Résolu]

[Taiby]

Bonjour,

En faisant cela dans mon code vba j'initialise une table qui va me servir à importer des données depuis un fichier Excel :

Code :

DoCmd.RunSQL "DELETE * FROM Import_BE;"

Le problème c'est que lorsque j'importe de nouveau des données, la clé primaire ne reprend pas à zéro mais au nombre d'enregistrements avant effacement.
Avec quelle instruction vba je peux forcer ma clé primaire à zéro ?

Ps : j'ai besoin de la remettre à zéro car je créée ensuite une boucle pour lire les éléments de ma table et les transférer dans une autre.


Merci pour votre aide
Taiby

[Philippe JOCHMANS]

Bonjour

C'est que ta clé primaire est un numéro Auto, et pour la remettre à 0, il faut vider la table et compacter la base.

Sinon, tu utilises un champ de type numérique et tu l'incrémentes toi même par programmation.

Philippe

[LedZeppII]

Bonjour,

Normalement on peut faire comme ça :

Code :

1
2
DoCmd.RunSQL "DELETE * FROM Import_BE;"
DoCmd.RunSQL "ALTER TABLE Import_BE ALTER COLUMN [Nom du champ NuméroAuto] COUNTER(1,1)"

A+

[Taiby]

Merci à vous deux, j'essaie cela demain matin et je vous dis quoi

[Taiby]

Code :

1
2
DoCmd.RunSQL "DELETE * FROM Import_BE;"
DoCmd.RunSQL "ALTER TABLE Import_BE ALTER COLUMN [Nom du champ NuméroAuto] COUNTER(1,1)"

C'est parfait, cela fonctionne impeccable, merci du coup de pouce.

[Philippe JOCHMANS]

Envoyé par LedZeppII

Bonjour,

Normalement

Code :

A+