code vba sous access

**Heureux-oli** · 15/02/2007, 14h15

On va faire un peu plus simple.
Oublie Excel.

Tu fias une requête qui tient compte de la lettre K et qui contient le num de police.

Code sql :

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

1
2
3
SELECT Table3.Police, Table3.Type
FROM Table3
WHERE (((Table3.Type)="K"));

Cette requête, je l'appelle QRY1

Ensuite une seconde requête qui contient de nouveau la table et le requête QRY1. avec comme jointure les numéros de police.

En gros, on va sélectionner toutes les polices qui ont au moins une fois K dans le champ.

Code sql :

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

1
2
SELECT Table3.Police, Table3.Type, Table3.Eff, Table3.Ech
FROM Qry1 LEFT JOIN Table3 ON Qry1.Police=Table3.Police;

Avec l'exemple donnée, voilà ce que ça donne :

Code :

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

1
2
3
4
Police	Type	Eff	Ech
200113	s	01/02/2007	02/02/2007
200113	r	11/02/2007	03/07/2007
200113	k	12/04/2007	02/05/2007

**Heureux-oli** · 15/02/2007, 14h22

Voilà ce que ça donne

**lifemaker2025** · 15/02/2007, 15h07

oui c'est à peu près ça .......mais je veux pas qu'il me sélectionne les enregistrements qui ont la valeur de date d'effet ou echéance différentes de celle de l'enregistrement avec police identique et valeur "k"
en attachement le résultat voulu

**Heureux-oli** · 15/02/2007, 15h26

Il suffisait d'ajouter les dates.

Mais dans la table, les dates n'étaient pas bonnes.

**lifemaker2025** · 15/02/2007, 16h20

merci bien heureux-oli
j'ai une autre question mais c'est très difficile à expliquer!!!

à la prochaine

amicalement

**Heureux-oli** · 15/02/2007, 17h18

Peut-être que la réponse sera facile à donner !

**lifemaker2025** · 16/02/2007, 11h51

rebonjour
voilà ja requête sélection marche très bien...
comment supprimer la sélection.....j'ai essayé DELETE matabl.* au lieu de SELECT .... mais ça marche pas
merci

**Heureux-oli** · 16/02/2007, 12h15

Je viens de faire quelques tests et j'ai trouvé comment faire, il faut une requête en plus et modifier la second requête ainsi que la table.

Dansla table, il faut ajouter un champ Oui/Non

Valeur par défaut non.

On va mettre ce champ à jour pour supprimer ceux qui doivent l'être.

Code sql :

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

UPDATE Qry_K LEFT JOIN Table3 ON (Qry_K.Ech = Table3.Ech) AND (Qry_K.Eff = Table3.Eff) AND (Qry_K.Police = Table3.Police) SET Table3.bool = Yes;

Ensuite on les supprime

Code sql :

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

1
2
3
DELETE Table3.ID, Table3.Police, Table3.Type, Table3.Eff, Table3.Ech, Table3.bool
FROM Table3
WHERE (((Table3.bool)=Yes));

**Heureux-oli** · 16/02/2007, 12h17

J'avais oublié le fichier

**lifemaker2025** · 16/02/2007, 12h59

merci bie ça marche très bien.....
j'aimerais avoir une autre sélection suppression...je veux supprimer tous les enregistrements qui ont mêmes eff et police identiques aux enregistrement avec categorie "3"
exemple :
Numéro police effe categorie
1 123 01/01/2002 s
2 123 01/01/2002 3
3 145 02/03/2005 h
4 123 01/01/2002 g
je veux que la requête me supprime les lignes 1 et 4
c'est faisables....