Discussion :

[electrosat03]

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.

[electrosat03]

Re,

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

Code :

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

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 :

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

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