Réinitialiser un champ de type numéro auto

[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 :

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.

[jpcheck]

salut,
je pense que sinon, un

Code :

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,

Envoyé par jpcheck

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.

Envoyé par jpcheck

je pense que sinon, un

Code :

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 :

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 :

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 :

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

Cdlt.

[steph31250]

Envoyé par 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+

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]

Envoyé par naphta

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.

Envoyé par steph31250

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