[AC-2003] compléter un Sql avec un me.filter en vba

Re,

Voilà, en redéfinissant une requête pour voir le nbre de data avec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  StrSql = Me.RecordSource 'Donne à StrSql la source de donnée du form
    If Me.FilterOn = True Then
        StrSqlNbreFact = "SELECT *" & _
                        " FROM " & StrSql & _
                        " WHERE ((Archivage)=Yes)" & _
                        " AND " & Me.Filter & ";"
    ElseIf Me.FilterOn = False Then
        StrSqlNbreFact = "SELECT *" & _
                        " FROM " & StrSql & _
                        " WHERE ((Archivage)=Yes);"
    End If
 
 Set qdf = CurrentDb.QueryDefs("R_Essai")
            qdf.SQL = StrSqlNbreFact
            Set qdf = Nothing
NbreFactCocheAnneeSelect = DCount("*", "R_Essai")

J'ai le bon nbre d'enregistrement.

Alors qu'avec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim rstNbreFactCocheAnneeSelect As New ADODB.Recordset
    rstNbreFactCocheAnneeSelect.Open StrSqlNbreFact, CurrentProject.Connection, adOpenStatic
 
    If rstNbreFactCocheAnneeSelect.EOF = False Then
        rstNbreFactCocheAnneeSelect.MoveLast
        rstNbreFactCocheAnneeSelect.MoveFirst
        NbreFactCocheAnneeSelect = rstNbreFactCocheAnneeSelect.RecordCount
    Else
        NbreFactCocheAnneeSelect = 0
    End If
 
    rstNbreFactCocheAnneeSelect.Close
    Set rstNbreFactCocheAnneeSelect = Nothing

J'obtient 0

Je ne vois pas pourquoi.

Merci pour votre aide