Boucle (code VBA) pour une requête de sélection

Version imprimable

Bonjour tt le monde !

j’ai une requête de sélection que je dois répéter plusieurs fois:
Code:

1 2 3 4 5 6 7 8 9 10 11 (SELECT Candidat.Delegation, Candidat.Genre, Candidat.X FROM Candidat WHERE ((Candidat.X)= "1"));) Union (SELECT Candidat.Delegation, Candidat.Genre, Candidat.X FROM Candidat WHERE ((Candidat.X)= "2"));) Union (SELECT Candidat.Delegation, Candidat.Genre, Candidat.X FROM Candidat WHERE ((Candidat.X)=3));)
est ce qu'il y a une façon d'utiliser une boucle (code VBA).

Merci

07/03/2018, 15h53
loufab

Bonjour,

Pourquoi une boucle en VBA ?

SQL suffit largement au job.

Personnellement j'utiliserais un OR entre mes conditions. Dans la même requête, pas besoin d'UNION.

Cordialement,

J'avais un vieux code qui fait la même chose, j'espère; je l'ai adapté pour ton usage personnel:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub ListeCandidats()
 
Dim ID As String
Dim mySql, mySql1 As String
Dim j As Integer
Dim rs As Recordset
Dim nbr As Long
Dim vect() As Variant
Dim qdfNew As QueryDef
 
mySql1 = "SELECT TblCandidats.Delegation, TblCandidats.Genre, TblCandidats.X " & _
"From TblCandidats WHERE TblCandidats.X='"
 
Set rs = CurrentDb.OpenRecordset("TblCandidats")
nbr = rs.RecordCount
rs.Close
Set rs = Nothing
 
ReDim Preserve vect(nbr)
 
For j = 1 To nbr - 1
    mySql = mySql1 & j & "'"
    mySql = mySql & vbLf & "Union All " & vbLf
    vect(j - 1) = mySql
Next j
 
vect(nbr) = "SELECT TblCandidats.Delegation, TblCandidats.Genre, TblCandidats.X " & _
"From TblCandidats WHERE TblCandidats.X='" & nbr & "';"
 
mySql = vect(0)
 
For j = 1 To nbr
    mySql = mySql & vect(j)
Next j
 
DoCmd.SetWarnings False
    For Each qry In CurrentDb.QueryDefs
        If qry.Name Like "RequêteCandidats" Then DoCmd.DeleteObject acQuery, "RequêteCandidats"
    Next qry
Set qdfNew = CurrentDb.CreateQueryDef("RequêteCandidats", mySql)
DoCmd.SetWarnings True
 
DoCmd.OpenQuery "RequêteCandidats"
 
End Sub

07/03/2018, 17h46
fadilaref

Merci!
je vais le tester
07/03/2018, 17h51
titi95
Bonsoir

Si tu veux rechercher tous les enregistrements de la table Candidat qui ont comme valeur de X 1 ou 2 ou 3, il faut faire tout simplement comme proposé par loubab, soit :
Code:

1 2 3 SELECT Candidat.Delegation, Candidat.Genre, Candidat.X FROM Candidat WHERE (((Candidat.X)="1" Or (Candidat.X)="2" Or (Candidat.X)="3"));
C'est bien ça ?

Titi95
07/03/2018, 23h23
marot_r
Bonjour.

Tu peux peut-être aussi utiliser
Code:

1 2 3 SELECT Candidat.Delegation, Candidat.Genre, Candidat.X FROM Candidat WHERE Candidat.X in ("1", "2", "3");
ou
Code:

1 2 3 SELECT Candidat.Delegation, Candidat.Genre, Candidat.X FROM Candidat WHERE Candidat.X between "1" and "3";
Les requête union ne sont pas des plus efficaces.
Une sélection sur les valeurs ou sur un interval est préférable.

Note que la requête de titi95 avec des or est plus performante que la mienne avec le In() car le In() ne peut pas être optimisé par Access. Par contre in() permet du code plus "compact" surtout si tu as un paquet de valeurs. Et il y a aussi une limite à 2000 caractères pour le SQL donc connaître une syntaxe compacte peut s'avérer utile.

A+

Bonjour
Merci beaucoup

Mon problème c'est que je veux sélectionné les 5 premiers candidats de chaque établissement
et j'ai 150 établissements c.a.d répéter 150 fois le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 (SELECT TOP 5 Table2.NumEleve, Table2.NomCompleteFr, Table2.NomComplete, Table2.date_naissance, Table2.Delegation, Table2.Etablissement, Table2.TypeEtab, Table2.CodeEtab, Table2.Classe, Table2.MoyenneGen, Table2.MENTIONAR FROM Table2 WHERE (((Table2.CodeEtab)=(SELECT EtabHaouz2.Codetab FROM EtabHaouz2 WHERE (((EtabHaouz2.N°)=1))))) ORDER BY Table2.MoyenneGen DESC;) union (SELECT TOP 5 Table2.NumEleve, Table2.NomCompleteFr, Table2.NomComplete, Table2.date_naissance, Table2.Delegation, Table2.Etablissement, Table2.TypeEtab, Table2.CodeEtab, Table2.Classe, Table2.MoyenneGen, Table2.MENTIONAR FROM Table2 WHERE (((Table2.CodeEtab)=(SELECT EtabHaouz2.Codetab FROM EtabHaouz2 WHERE (((EtabHaouz2.N°)=2))))) ORDER BY Table2.MoyenneGen DESC;)
c'est pourquoi je veux une boucle qui va me faciliter la tâche en donnant à (EtabHaouz2.N°) les valeurs de 1 à 150 sans répéter la requête 150 fois avec union.

Merci

08/03/2018, 13h23
titi95

Bonjour

Une idée, mais non testée :

Tu crées une nouvelle table (vide) qui recevra les résultats de la requête.
Tu crées une requête Mise à jour de cette table sur la base de ton dernier code, mais avec seulement un bloc (1 établissement), dans laquelle tu remplaces le n° d'établissement en dur par une variable (Ietab par exemple)
Tu mets cette requête dans une boucle incrémentée avec Ietab comme indice.

Pour chaque valeur de l'indice, la requête va alimenter la table avec les 5 premières valeurs de Table2.MoyenneGen

Titi95

Bonjour
Merci beaucoup

Mon problème c'est que je veux sélectionné les 5 premiers candidats de chaque établissement
et j'ai 150 établissements c.a.d répéter 150 fois le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 (SELECT TOP 5 Table2.NumEleve, Table2.NomCompleteFr, Table2.NomComplete, Table2.date_naissance, Table2.Delegation, Table2.Etablissement, Table2.TypeEtab, Table2.CodeEtab, Table2.Classe, Table2.MoyenneGen, Table2.MENTIONAR FROM Table2 WHERE (((Table2.CodeEtab)=(SELECT EtabHaouz2.Codetab FROM EtabHaouz2 WHERE (((EtabHaouz2.N°)=1))))) ORDER BY Table2.MoyenneGen DESC;) union (SELECT TOP 5 Table2.NumEleve, Table2.NomCompleteFr, Table2.NomComplete, Table2.date_naissance, Table2.Delegation, Table2.Etablissement, Table2.TypeEtab, Table2.CodeEtab, Table2.Classe, Table2.MoyenneGen, Table2.MENTIONAR FROM Table2 WHERE (((Table2.CodeEtab)=(SELECT EtabHaouz2.Codetab FROM EtabHaouz2 WHERE (((EtabHaouz2.N°)=2))))) ORDER BY Table2.MoyenneGen DESC;)
c'est pourquoi je veux une boucle qui va me faciliter la tâche en donnant à (EtabHaouz2.N°) les valeurs de 1 à 150 sans répéter la requête 150 fois avec union.

Merci

Bonjour,
avec une sous-requête, c'est possible, je pense, essaie ceci :

Code:

1
2
3
4
5
SELECT Table2.NumEleve, Table2.NomCompleteFr, Table2.NomComplete, Table2.date_naissance, Table2.Delegation, Table2.Etablissement, Table2.TypeEtab, Table2.CodeEtab, Table2.Classe, Table2.MoyenneGen, Table2.MENTIONAR
FROM Table2
WHERE (Table2.CodeEtab=(SELECT EtabHaouz2.Codetab FROM EtabHaouz2 WHERE (EtabHaouz2.N°)=Table2.CodeEtab) 
And Table2.NumEleve In (select top 5 T5.NumEleve from [Table2] T5 where t5.CodeEtab = [Table2].[CodeEtab] order by t5.MoyenneGen Desc) )
ORDER BY Table2.MoyenneGen DESC;

Attention : la requête peut renvoyer 5 enregistrements ou plus en cas d'égalité sur le dernier Top (même moyenne chez plusieurs élèves).

Bonjour.

Oui tu peux faire une boucle en VBA mais tu peux aussi "numéroter" tes candidats de 1 à 5 par établissement puis les sélectionner.

pour la boucle c'est assez facile :

Je suppose que tu vas "pousser" les résultats dans une table de résultat qui a aux moins tous les champs ta requête de sélection.

Tu crées une rqequête paramétrée :

reqSelection
Code:

1 2 3 4 5 6 (SELECT TOP 5 Table2.NumEleve, Table2.NomCompleteFr, Table2.NomComplete, Table2.date_naissance, Table2.Delegation, Table2.Etablissement, Table2.TypeEtab, Table2.CodeEtab, Table2.Classe, Table2.MoyenneGen, Table2.MENTIONAR FROM Table2 WHERE (((Table2.CodeEtab)=(SELECT EtabHaouz2.Codetab FROM EtabHaouz2 WHERE (((EtabHaouz2.N°)=[prmNumero]))))) ORDER BY Table2.MoyenneGen DESC;)
et une requête d'ajout :

reqAjout
Code:

1 2 3 INSERT INTO tblResultat SELECT reqSelection.* FROM reqSelection;
Elle va "hériter" du paramètre de reqSelection.

puis la procédure :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 public sub Selectionner() dim db as dao.database:set db=curentdb call db.excecute("delete * from tblResultat", dbfailonerror) 'vide la tabel résultat. dim q as dao.querydef: set q=db.querydefs("reqAjout") dim SQL as string dim i as long:for i=1 to 150 q.parameters("prmNumero")=i 'Détermine quel est l'établissement call q.execute(dbFailOnError) 'Ajoute les candidats de cet établissement. next i set q=nothing db.close:set db=nothing end sub
Si au lieu de cela tu veux le faire par nuérotation il faut faire quelque chose comme :

reqNumerotation
Code:

1 2 3 SELECT Table2.NumEleve, Table2.NomCompleteFr, Table2.NomComplete, Table2.date_naissance, Table2.Delegation, Table2.Etablissement, Table2.TypeEtab, Table2.CodeEtab, Table2.Classe, Table2.MoyenneGen, Table2.MENTIONAR, DCount("NumEleve", "Table2", "[CodeEtab]=""" & Table2.CodeEtab & """ and [NumEleve]<=" & Table2.NumEleve & " and [MoyenneGen]>=" & Table2.MoyenneGen) as NumCandidat FROM Table2
Code:

DCount("NumEleve", "Table2", "[CodeEtab]=""" & Table2.CodeEtab & """ and [NumEleve]<=" & Table2.NumEleve & " and [MoyenneGen]>=" & Table2.MoyenneGen)

Va compter les eleves qui sont dans le même établissement et qui ont une moyenne >= à la moyenne de l'éleve courant et dont le numéro est <= au numéro de l'élève courant. Ce dernier test est pour distinguer les éléves qui ont la même moyenne.

reqSelection
Code:

1 2 select [reqNumerotation].* from [reqNumerotation] where [reqNumerotation].[NumCandidat]<=5
L'avantage de cette solution est que tu n'as pas besoin de table ou de requête union.
L'inconvénient et que le caclul du numero peut être assez long.

A+

08/03/2018, 18h18
titi95

Re

J'avais fait une proposition qui me semble simple. J'y apporte qq précisions pour être plus clair.

Tu crées une nouvelle table (vide) qui recevra les résultats d'une requête Ajout. (et non Mise à jour ; excuses !)
Tu crées la requête Ajout pour cette table sur la base de ton dernier code, mais avec seulement un bloc (1 établissement), dans laquelle tu remplaces le n° d'établissement en dur par une variable (Ietab par exemple)
Tu mets cette requête dans une boucle incrémentée (For... Next ) avec Ietab comme indice qui va varier de 1 à 150

Pour chaque valeur de l'indice (donc chaque établissement), la requête va alimenter la table avec les 5 premières valeurs de Table2.MoyenneGen (Top 5)
Dans la table tu vas ainsi récupérer 150 paquets de 5 jeux de données (top 5)

Titi95
09/03/2018, 12h59
fadilaref

Bonjour,

Je vous remercie.

ça fonctionne avec le principe de requête paramétrée + requête d'ajout + code VBA.

je remercie tous ceux qui ont participé

Cordialement