Bonjour à tous,

J'aurais besoin de faire un comptage d'enregistrement correspondant à un filtre par sélection dans un form.

Le comptage doit se faire en VBA.

J'avais essayé de récupéré le filtre (me.filter), et à l'aide d'un Sql.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim StrSql As String
 
    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


Le problème, c'est que la source est une requête et donc, le filtre n'a pas l'air de fonctionner, j'ai toujours 0 enregistrement.

Merci pour votre aide.