Macro qui va chercher des conditions dans une table
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:
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 !
