Discussion :

[bertin19]

Bonjour,
je cherche à créer un RecordSet à partir d'une requete existante. Boici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
     Dim MaBD As Database
    Dim MaRequete As Recordset
    Dim NbEnreg As Integer
 
   Set MaBD = CurrentDb()
   Set MaRequete = MaBD.OpenRecordset("R_proprietaire_publipostage", dbOpenSnapshot)
 
    NbEnreg = MaRequete.RecordCount
   MsgBox NbEnreg

Quand je compte le nombre d'enregistrement dans mon RecordSet, il me retourne 1, alors que ma requete en contient 12. Je souhaite avoir dans mon recordset le meme nombre d'enregistrements pour pouvoir appliquer un filtre.

[Domi2]

Bonjour,

A tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Dim Db As DAO.Database
    Dim rst As DAO.Recordset
    Dim qry As DAO.QueryDef
    NbEnreg As Integer
 
    'Ouverture de la requête
    Set Db = CurrentDb
    Set qry = CurrentDb.QueryDefs("R_proprietaire_publipostage")
    Set rst = qry.OpenRecordset
 
    NbEnreg = rst.RecordCount

Domi2

[bertin19]

Très bien Domi2, ton code marche. Mais avant de compter le nombre d'enregistrements contenus dans le recordset, il faut se positionner sur le dernier enregistrement. Il faut mettre donc :

Code :

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

rst.MoveLast