Réinitialiser un champ de type numéro auto

francishop · 06/04/2008, 01h13

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 :

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 · 07/04/2008, 10h37

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 · 07/04/2008, 16h22

Bonjour,

Citation:

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.

Citation:

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.

06/04/2008, 01h13	#1 (permalink)
francishop Membre Expert Date d'inscription: mars 2006 Localisation: Fétera son 16éme anniversaire en 2012 Messages: 1 167	Réinitialiser un champ de type numéro auto 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 : 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. __________________ Questions techniques par MP Le peu que je sais, c'est à mon ignorance que je le dois. ...............................................................................Sacha Guitry Dernière modification par francishop ; 06/04/2008 à 01h48

07/04/2008, 10h37	#2 (permalink)
jpcheck Expert Confirmé Sénior Date d'inscription: juillet 2007 Localisation: RP Âge: 24 Messages: 2 866	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. __________________ Piou-Piou Poussin Developpeur Pas de question technique par MP, je ne réponds pas Mon perso ? Une vraie brute

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Access > Contribuez
Réinitialiser un champ de type numéro auto

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email