J'ai une table, dans laquelle, je veux faire 2 requêtes successives, une requete pour la periode, une autre pour le nom de l'entreprise, je suis obligé de faire 2 requetes à la suite, sinon, j'ai trop de cas particuliers à traiter. Pour la 1ere requete, pas de probleme, par contre, pour la seconde, je sais comment faire une requete sur un recordset.

Voici mon code :

Dim MyDB As Database, MyRS As Recordset, MyRS2 As Recordset
.
.
.
Set MyDB = CurrentDb
// 1ere requete
Set MyRS2 = MyDB.OpenRecordset("SELECT * FROM [Rebuts internes] WHERE Month(Date) = " & Cadre55.Value & " AND Year(Date) = " & Texte95.Value & " ORDER BY Date")
// 2nde requete ( celle qui marche pas !! )
Set MyRS = MyDB.OpenRecordset("SELECT * FROM MyRS2 ORDER BY NumOF")

je sais que c'est au niveau de MyRS2 que ça ne passe pas, mais je vois pas comment faire

Y a + simple !! ! ! !

MyDB.execute(ta requete)

mydb ou un autre obg je c plus !!!

ta requete = String en SQL bien sur


-------------------------------
Réponse au message :
-------------------------------

J'ai une table, dans laquelle, je veux faire 2 requêtes successives, une requete pour la periode, une autre pour le nom de l'entreprise, je suis obligé de faire 2 requetes à la suite, sinon, j'ai trop de cas particuliers à traiter. Pour la 1ere requete, pas de probleme, par contre, pour la seconde, je sais comment faire une requete sur un recordset.

Voici mon code :

Dim MyDB As Database, MyRS As Recordset, MyRS2 As Recordset
.
.
.
Set MyDB = CurrentDb
// 1ere requete
Set MyRS2 = MyDB.OpenRecordset("SELECT * FROM [Rebuts internes] WHERE Month(Date) = " & Cadre55.Value & " AND Year(Date) = " & Texte95.Value & " ORDER BY Date")
// 2nde requete ( celle qui marche pas !! )
Set MyRS = MyDB.OpenRecordset("SELECT * FROM MyRS2 ORDER BY NumOF")

je sais que c'est au niveau de MyRS2 que ça ne passe pas, mais je vois pas comment faire

hello!!
c'est normal que cela ne marche pas, car, dans le select de MyRS, MyRS2 n'est pas reconnu comme table ou requete dans mydb car c'est une variable locale à l'application.
Une solution consisterait à creer une requete dans MyDB (Querydefs.add etc, mais c'est assez complexe), ou bien, ce qui serait plus simple, de reecrire le Select pour MyRS
Set MyRS2 = MyDB.OpenRecordset("SELECT * FROM [Rebuts internes] WHERE Month(Date) = " & Cadre55.Value & " AND Year(Date) = " & Texte95.Value & " ORDER BY NumOf") ou
...& " ORDER BY Date,NumOf")