Discussion :

[piflechien73]

Bonjour,

J’ai fait une petite macro qui déclenche une requête qui va chercher dans la table BASE les personnes qui ont les yeux bleus. Le résultat est ajouté dans la table RESULTAT.
Elle marche bien malgré mon niveau de débutant ;-)

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
Sub rqt_yeux()
 
'Définitions
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim Qry As DAO.QueryDef
Dim fld As DAO.Field
Dim sql As String
 
End Sub
 
'Base en cours
Set db = CurrentDb
CurrentDb.QueryDefs.Delete "tmp"
strSQL = "INSERT INTO resultat (NOM)select NOM From BASE Where YEUX='bleu';"
Set Qry = CurrentDb.CreateQueryDef("tmp", strSQL)
DoCmd.OpenQuery "tmp"
 
End Sub

Je cherche à améliorer cette macro : je voudrais utiliser un système de boucle qui va chercher une ou plusieurs couleurs choisies par l’utilisateur dans la table COULEURS.

Exemple : Ici la table COULEURS contient les couleurs BLEU et VERT.
Je voudrais que la requête tourne une fois pour la couleur BLEU puis ajoute le résultat dans la table RESULTAT.
Je souhaiterais ensuite qu’elle retourne une fois pour la couleur VERT et qu’elle ajoute à la suite dans la table RESULTAT.

Important : je souhaite faire tourner la requête autant de fois que de couleurs et ne pas utiliser de condition OU. En d’autres terme, je souhaite faire tourner la condition avec à chaque fois une seule couleur en condition.

Voir fichier joint.

Si quelqu’un peut m’aider, merci par avance !

[LE VIEUX]

bonsoir,
et en classant simplement les couleurs de la table principale ?
ex:

[nico84]

Bonsoir,

A quoi ça sert d'avoir une table "résultat" alors que l'info est déjà dans BASE et facile à filtrer ???

Il est possible de parcourir la table couleurs et de faire l'insert pour chaque couleur :

Code :

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

1
2
3
4
5
6
dim rsc as recordset
Set rsc = CurrentDb.OpenRecordset("SELECT * FROM couleurs")
while not rsc.eof
  DoCmd.RunSQL "INSERT INTO resultat (NOM) select NOM From BASE Where YEUX='" & rsc!yeux & "';"
  rsc.movenext
wend

Pour ne le faire que pour les couleurs sélectionnées il faudrait ajouter un booleen "selection" à la table couleurs et changer le premier select

Code :

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

"SELECT * FROM couleurs where selection"

Pour info :
db ne sert à rien puisqu'ensuite tu appelles currentdb et non db
tmp ne sert pas à grand chose non plus inutile de compliquer le code...

[piflechien73]

Bonsoir,

merci pour vos réponses et vos remarques. Comme je débute, j'ai tendance à me compliquer. La solution est super claire.

Par contre votre code bloque à la ligne

Code :

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

1
2
 
 DoCmd.RunSQL "INSERT INTO resultat (NOM) select NOM From BASE Where YEUX='" & rsc!couleur & "';"

avec un "run-time error 3265"--> Item not found in this collection. Savez vous pourquoi?

Merci par avance.

[nico84]

Ah oui dans la table "couleurs" les couleurs sont dans le champ "yeux"

J'ai corrigé ci-dessus

[piflechien73]

J'aurais pu m'en rendre compte aussi

Cela montre que je dois faire quelques progrès!!!

Merci mille fois!