Discussion :

[shadockgreg]

Bonjour,

Je souhaite supprimer des lignes dans une table. Elle se presente comme ceci:

NumSociete Total_Nb Total_Montant
31
32
...
90
31
32
...
92

Je voudrais supprimer les lignes a partir de la ligne ou NumSociete = 31 pour la seconde fois.
J'ai pense a un recordet mais ma methode findfirst ne marche pas (cf ci dessous) ... Si vous avez des idees. Merci !!!!!
Greg

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim rst as DAO.recordet
set rst = Currentdb.openrecorset("ClientsTable") 
rst.movefirst
rst.findfirst("NumSociete = 31") 
rst.find next
while rst.eof
rst.delete
End sub

Autre idee : une requete action (delete) mais ce me parait plus complique.

[FreeAccess]

Bonjour,

En fait est-ce que tu ne veux pas simplement supprimer de ta table les enregistrements en double qui s'y trouve

Si c'est le cas, oriente toi vers une requête "Recherche doublon"........

En espérant avoir compris ton problème.

[shadockgreg]

Les deux groupes de donnees ne sont pas tt a fait des doublons.
Ce sont des infos legerement differentes. Je nai besoin que du premier bloc.
Je vais vior du cote de la requete doublons mais je ne pense pas que cela resolve le prb.

[ft035580]

Salut,

comme le dit "FreeAccess" tu peux t'orienter vers une requête doublon mais je ne suis pas trop inspiré.

Sinon,en reprenant l'idée de la FAQ:

Code sql :

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

1
2
3
4
SELECT ClientsTable_1.[NumSociete Total_Nb Total_Montant] INTO ClientsTable2
FROM ClientsTable AS ClientsTable_1
GROUP BY ClientsTable_1.[NumSociete Total_Nb Total_Montant]
ORDER BY ClientsTable_1.[NumSociete Total_Nb Total_Montant];

Tu crées une nouvelle table

Bon courage.

[Tofalu]

Y a t'il un champ gérant pouvant servir de numéro de ligne ?

[shadockgreg]

Slt Tofalu,

Le champ ID cree lors de l'import peut servir de numero de ligne.
ID Num_Societe
1 31
2 32
... ...
90 31
91 33
... ...

Sinon je ne suis pas contre recreer une table mais comment le code sql ci dessus parvient a reconnaitre mes deux groupes de donnees et a ne prendre que le 1er groupe dans la nvle table?

Merci opur les explications,
Greg

[bizu31]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim oRst as DAO.Recordset
Dim oDb as DAO.Database
Set oDb=currentdb
Set oRst=oDb.OpenRecordset("select * from ClientsTable where NumSociete >=31", dbOpenDynaset)
while not(oRst.EOF)
  oRst.Delete
  oRst.MoveNext
wend
oRst.close
oDb.close
Set oRSt=nothing
Set oDb=nothing

ptet un truc comme ca
mais si tu as des enregistrement connexes, il va falloir supprimer ceux ci avant de supprimer tes sociétés