Discussion :

[jnmab]

Bonjour,

Lors de l'import d'un fichier (par exemple de 5000 lignes), la clé primaire contient le numéro de la ligne correspondante.

Si je vide la table, et opère à un nouvel import, la clé garde mémoire de son état précédent, et s'incrémente (dans l'exemple, ma première ligne a pour clé 5001)

Comment faire pour ré-initialiser cette clé ?

Merci

[Pierre Fauconnier]

Bonsoir

Après avoir vidé la table, il faut compacter la base de données. Les clés automatiques seront réinitialisées dans les tables vides.

[jnmab]

et je peux compacter via une macro ??

[Pierre Fauconnier]

En fait, on ne peut pas compacter la base active...Il faut donc se déconnecter de la base active, la compacter, la rouvrir...

Dans la faq, il y a un ou deux trucs là-dessus (une librairie et un code via jro, si je me souviens)...

[jnmab]

ça n'arrange pas mes affaires.. c'est une base utilisée par plusieurs personnes, et il ne serait pas pratique de s'en déconnecter entre 2 imports.

Et je suppose pourtant que je n'ai que la solution d'une clé primaire pour supprimer l'en-tête de mon fichier ?

[Pierre Fauconnier]

Tu devrais pouvoir t'en sortir avec ceci

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
Sub ViderCopier()
    Dim sql As String
 
    sql = "delete from t_a"
    DoCmd.RunSQL sql
 
    If TableExiste("T_A1") Then DoCmd.DeleteObject acTable, "T_A1"
    sql = "select T_A.* into T_A1 from T_A"
    DoCmd.RunSQL sql
    If TableExiste("T_A") Then DoCmd.DeleteObject acTable, "T_A"
    DoCmd.Rename "T_A", acTable, "T_A1"
 
End Sub
 
Function TableExiste(NomTable As String) As Boolean
    Dim MaTable As DAO.TableDef
 
    For Each MaTable In CurrentDb.TableDefs
        If MaTable.Name = NomTable Then
            TableExiste = True
            Exit For
        End If
    Next
End Function

Il y a peut-être plus simple en sql pur...

[jnmab]

merci, c'est sympa de me répondre.. mais comme je n'ai pas ta verve informatique, je suis un peu paumé..

tu pourrais me re-traduire tout ça dans mon environnement ?

"delete from t_a"

"t_a" c'est le nom de ma table ?


If TableExiste("T_A1") ---> ("T_A1" représente quoi ?)

sql = "select T_A.* into T_A1 from T_A"

------> T_A est identique à t_a ???

désolé si je semble vraiment très néophyte, mais c'est un peu le cas..

[Invité]

Bonjour

Une petite question, car en fait cette clé primaire ne te sert à rien, car tu veux la réinitialiser à chaque fois , donc y a t-il une raison particulière pour laquelle tu veux la remettre à 0 ?

Philippe

[jnmab]

En fait, j'avais pensé que c'était la seule solution pour virer les 5 premières lignes (en-tête) de mon fichier importé (avec "where Numéro < 6")