Discussion :

[Pietrus79]

Bonjour a tous

Voila j'ai un probleme que je dois resoudre urgemment pour mon boulot alors le stress ne m'aide pas a travailler
je suis encore debutant sous access

Voila je cherche a effectuer un parcours de ma table et a supprimer certain enregistrement sous vba access

Pour plus de précision sur mon code:

dans ma tablecible j'ai :
du numerique en colonne A et du texte en colonne B


ce que je veux faire:
soit un enregistrement a nimporte quel ligne si on trouve un autre enregistrement avec la meme information en colonne A alors on ne doit laisser qu'un seul enregistrements et supprimer les autres. le tri est fait en fonction du contenu en colonne B.

En fait j'ai du mal a visualiser comment lui dire d'aller chercher un autre enregistrement a une autre ligne.

comment lui dire en vba de chercher ailleurs ?

si j'ai du mal a etre clair.dsl

merci d'avance

Bonne journée

[Jean-Philippe André]

Bonjour,
avant de passer par VBA, quelques pistes en SQL :
http://access.developpez.com/faq/?page=SQL#Supprdblons

sinon pour le VBA, le très bon cours sur DAO :
http://warin.developpez.com/access/dao/

[Pietrus79]

Merci pour ta reponse rapide
en effet le cours semble interessant
je regarde la partie sur les hierarchies et les boucles For
je suppose que c'est ca que je dois utiliser

ds une table excel cela aurait été plus simple je suppose:

algo:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
FOr i allant de 0 à dernier enregistrement de la table
   Si a la cell(i,1)=cell(i+1,1) alors
       Si cell(i,2)>cell(i+1,2) alors
           supprime row(i+1)
       sinon 
           supprime row(i)
       fin si
   fin Si
Next

Si qq sait comment faire ca sur dans vba

[Pietrus79]

Je ne trouve vraiment pas d'exemple de boucle for sur access je ne sais meme pas si c'est possible de cette façon.

[Jean-Philippe André]

tu ne nous as pa dit quel critère tu comptes utiliser pour dire sur deux enregistrements lequel tu comptes supprimer

en lieu et place de la boucle For, je recommande la fonction

Code :

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

orst.Find

[Pietrus79]

Le tri peut s'effectuer sur 4 enregistrements maximum parfois et non seulement 2.

la table access est du type:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
colA    colB
001     a
001     b
001     c
001     d
002     b
003     c
003     a
006     b
008     c
008     a
...

Il y a exactement 4 type d'information differente dans colB: a, b, c ou d.

Je veux qu'il modifie la table pour qu'elle devienne

Code :

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

1
2
3
4
5
6
7
8
 
colA    colB
001     a
002     b
003     a
006     b
008     a
...

en utilisant une loi du type a>b>c>d
ce qui veut dire que si pour 001 on a 4 enregistrements avec a b c et d on ne conserve que celui avec a et que l'on supprime les trois autres.

Voila j'espere que je suis un peu plus clair là.

merci d'avance