Discussion :

[francishop]

Bonjour,

Pour réinitialiser un NumAuto j'ai cherché, certainement trés mal, mais je n'ai rien trouvé pour remettre à zéro un auto-increment à l'aide de quelques lignes de code.

La table-->"Tbl_Demo" Le champ de type numéro auto-->Id_Clef :

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
Private Sub CmdSup_Click()
On Error Resume Next
 
Dim Rst As DAO.Recordset
Dim StrCritere As String
 
 StrCritere = "SELECT * FROM Tbl_Demo"
 Set Rst = CurrentDb.OpenRecordset(StrCritere, dbOpenDynaset)
 
' On supprime toutes les données de la table
 Rst.MoveFirst
 Do Until Rst.EOF
    Rst.Edit
    Rst.Delete
 Rst.MoveNext
Loop
 
' Mise à zéro du compteur 
    Rst.AddNew
    Rst!Id_Clef = 0     '99 pour débuter à 100 
    Rst.Update
 
' On élimine ce 0 prohibé, voir 99
 Rst.MoveFirst
  Do Until Rst.EOF
    Rst.Edit
    Rst.Delete
  Rst.MoveNext
 Loop
 
End Sub

Cordialement.

[Jean-Philippe André]

salut,
je pense que sinon, un

Code :

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

DELETE *

suivi d'un compactage de la base fonctionne.
Toutefois, tu ne pourras pas le faire si des liaisons existent avec d'autres tables.

[francishop]

Bonjour,

Toutefois, tu ne pourras pas le faire si des liaisons existent avec d'autres tables.

Si on doit supprimer les données de plusieurs tables liées, il faut commencer par les tables secondaires et terminer par les tables principales des liaisons.
Par contre,cet ordre ne s'avère pas indispensable avec des tables liées.

je pense que sinon, un

Code :

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

DELETE *

suivi d'un compactage de la base fonctionne.

L'intérêt de ces quelques lignes de code, que j'ai hésité à mettre en ligne, est justement de ne pas fermer la base. Ce qui peut aider à l'occasion.

Cordialement.

[cyrgod]

Sinon tu peux utiliser la procédure suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim SQL As String
 
'Purge des enregistrements de la table "Tbl_NumAuto"
SQL = "DELETE * FROM Tbl_NumAuto"
DoCmd.RunSQL SQL
 
'Copie en "Tbl_NumAuto_Copy" de la table "Tbl_NumAuto" où le numero auto est à ré-incrémenter
DoCmd.CopyObject , "Tbl_NumAuto_Copy", acTable, "Tbl_NumAuto"
 
'Suppression des tables "Tbl_NumAuto"
DoCmd.DeleteObject acTable, "Tbl_NumAuto"
 
'Renommage de la table "Tbl_NumAuto_Copy" en "Tbl_NumAuto"
DoCmd.Rename "Tbl_NumAuto", acTable, "Tbl_NumAuto_Copy"

[naphta]

Bonjour à tous,

Si je peux me permettre de donner mon avis sur la question des numauto qui revient souvent et poser une question.

Je créé un champ "chrono" dans la table que j'incrémente avec une fonction qui comble les trous ou ajoute +1 sur le champ.

Sinon je ne vois pas l'intérêt de réinitialiser les champs numauto et j'aimerai bien savoir dans quel cas de figure a-t-on besoin de le faire ?

a+

[LedZeppII]

Bonjour,

Voila la comment je procède avec une table dont le champ clé RowNum est NuméroAuto :

Code :

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

1
2
3
4
5
6
7
8
9
10
' Vider Table
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM LaTable;"
DoCmd.SetWarnings True
' Enlever clé primaire
DoCmd.RunSQL "ALTER TABLE LaTable DROP CONSTRAINT PrimaryKey ;"
' Modifier type champ Numauto -> Long
DoCmd.RunSQL "ALTER TABLE LaTable ALTER COLUMN [RowNum] Long ;"
' Modifier type champ Long -> NumAuto et remettre clé primaire
DoCmd.RunSQL "ALTER TABLE LaTable ALTER COLUMN [RowNum] Counter (1,1) CONSTRAINT PrimaryKey PRIMARY KEY ;"

A+

[LedZeppII]

Bonjour,

Apparemment on peut faire plus court (en tout cas depuis Access 2003)

Code :

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

1
2
DoCmd.RunSQL "DELETE FROM LaTable"
DoCmd.RunSQL "ALTER TABLE LaTable ALTER COLUMN [RowNum] COUNTER(1,1)"

Cdlt.

[steph31250]

Bonjour à tous,

Si je peux me permettre de donner mon avis sur la question des numauto qui revient souvent et poser une question.

Je créé un champ "chrono" dans la table que j'incrémente avec une fonction qui comble les trous ou ajoute +1 sur le champ.

Sinon je ne vois pas l'intérêt de réinitialiser les champs numauto et j'aimerai bien savoir dans quel cas de figure a-t-on besoin de le faire ?

a+

Je peux repondre a cette question !! je viens de creer une base un peu compliquer (pour moi !) et j'ai fait pas mal d'essai avant d'arriver a ce que je voulais. resultat mon numéro auto est a 40 et je veux revenir à 1 pour mettre la base en service et je dois dire que les lignes de codes c'est pas forcement mon truc !!

[vodiem]

Sinon je ne vois pas l'intérêt de réinitialiser les champs numauto et j'aimerai bien savoir dans quel cas de figure a-t-on besoin de le faire ?

bien que cela date...
réajuster l'auto incrément c'est utile après des tests pendant la conception mais aussi modification, donc pas forcement pour remettre à zéro.
mais c'est aussi utile pour le cas de bug sur l'auto incrément qui peut repartir sur une valeur antérieur.
ms fourni un exemple pour produire cette erreur ici.

le compactage remets à zéro l'auto incrément mais seulement si la table est vide. de plus la commande sql ne marche pas quand la table est liée dans la fenêtre des relations.
étant amener à faire parfois cette manip j'ai donc fait un script pour réaliser cela automatiquement.

je dois dire que les lignes de codes c'est pas forcement mon truc !!

moi si mais c'est vite ch... ^^ vous trouverez le script ici.
il y aura un maj bientot pour résoudre un cas particulier d'erreur qui peut se produire. n'es ce pas LedZeppII ? ;P

[Marcello29]

Bonjour à tous,
Le post date déjà mais ça peut intéresser quelqu'un en recherche d'une solution (comme moi jusqu'à hier):
J'ai testé, une fois la table vidée, de modifier le format du champ NumAuto en Texte puis de le remettre aussitôt en format NumAuto. Ça marche, la numérotation repart à un et ça ne prend que 4 lignes de code:

Code :

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

1
2
3
4
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute "ALTER TABLE Nom_de_la_Table " & "ALTER COLUMN Nom_du_Champ CHAR(20);"
dbs.Execute "ALTER TABLE Nom_de_la_Table " & "ALTER COLUMN Nom_du_Champ counter;"

A noter que le 2ème dbs.Execute ne marche que si la table est vide.
Cordialement

[marot_r]

Bonjour.

Pour info, la solution :

Code :

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

1
2
DoCmd.RunSQL "DELETE FROM LaTable"
DoCmd.RunSQL "ALTER TABLE LaTable ALTER COLUMN [RowNum] COUNTER(1,1)"

Donnée par LedZeppII fonctionne parfaitement aussi.
Accessoirement elle permet même de ne pas repartir de 1 mais de n'importe quelle valeur.

Aussi, le champ AutoNum est là pour donner un numéro unique par pour fournir un compteur continu donc il peut bien commencer à n'importe quelle valeur.

A+

[Marcello29]

Ah pardon, je n'avais pas vu la solution de LedZeppII. C'est vrai, c'est encore mieux. Je la note ...
Cordialement.