Concatener des requetes

oui j'ai des cles primaires et des relations entre mes tables, mais la je travaille sur des requetes. Je ne vois pas bien ou tu veux en venir ?

je n'ai qu'une seule table, les 2 requetes extraient certaines donnees de cette meme table avec differents criteres. Et je voudrais afficher les differents resultats dans un formulaire ou un etat.

grossomodo :
ta table est du genre

critere  nom    valeur
C1       toto   1
C1       toto   2
C1       tata   3
C2       toto   4
C2       tata   5
C2       tata   6

La premiere requete va sommer que les lignes avec critere = C1 :

  toto  3
  tata  3

et la 2eme requete va sommer les lignes avec critere = C2 :

  toto  4
  tata  11

non, je voudrais afficher les 2 resultats :

           toto   tata
"REQ1"     3      3
"REQ2"     4      11
...

je precise que la liste des requetes que je vais devoir afficher est dans une table

Si c'est possible de dessinner un formulaire par un script VBA ca peut etre une solution:
for requete in list_requete
executer requete
dessinner une ligne dans le formulaire qui contient le nom de la requete et les resultats dans des zones de texte

Mais je ne sais pas creer un nouveau controle et le placer dans un formulaire depuis un script VBA.
J'espere que je suis clair.



Sinon ma premiere solution de reussir a optenir une requete qui me sortirait ca me conviendrait tres bien aussi :

  Nom    Valeur   Req
  toto     3      REQ1
  tata     3      REQ1
  toto     4      REQ2
  tata     11     REQ2

De la je peux creer un etat qui m'afficherait les resultats

Sub test()
    Dim recs As ADODB.Recordset
    Dim recs2 As Recordset
    Dim db As Database
    
    Set db = CurrentDb()
    Set recs2 = db.OpenRecordset("req1")
    Set recs = New ADODB.Recordset
    recs.Fields.Append "nom", adVarChar, 255
    recs.Fields.Append "valeur", adVarChar, 255
    recs.Fields.Append "req", adVarChar, 255
    recs.Open
    Do While Not recs2.EOF
        recs.AddNew Array("nom", "valeur", "req"), Array(recs2.Fields("nom"), recs2.Fields("valeur"), "REQ1")
        recs2.MoveNext
    Loop
    
    Set Forms("MonFormulaire").Recordset = recs
    recs.Close
End Sub