Comptage d'enregistrements d'une liste

**Virgile59** · 23/01/2006, 09h34

Bonjour, comme le titre l'indique j'aimerais savoir si il existe qqch qui pourrait me permettre d'avoir un compteur qui m'afficherai le nbr d'enregistrement contenuent dans ma liste.

Cette liste est plus ou moins longue car j'ai intégré un système de filtre.

Comment faire ?

**illight** · 23/01/2006, 09h39

Si tu vas la dessus :

http://cafeine.developpez.com/access...echerchemulti/

Tu aura je pense une réponse a ta question

Il y a en effet une zone d eliste et au dessus un label ou il y a écrit le nombre d'enregistrements de la liste, qui varie meme en fonction de la zone de liste et des filtres utilisés

Regarde un peu le code, je pense que tu trouvera ton bonheur

**Virgile59** · 23/01/2006, 10h25

J'ai déjà jeté un coup d'oeil sur ce tuto, le compteur fonctionne mais quand je l'intègre à mon code il ne fonctionne plus, lorsqu'il y a plus de deux conditions WHERE le compteur ne fonctionne plus.

Mon code fonctionne sans le compteur et dès que j'ajoute le compteur il me lance l'erreur d'execution 3075 en me disant Erreur de syntaxe (opérateur absent) dans l'expression.... et là il me sort le code...

Comment solutionner mon problème ?

Quand je clique sur débogage cette ligne est en jaune

Code :

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

Me.lblStats.Caption = DCount("*", "QRY IP5_1FIDS_SALARN", SQLWhere) & " / " & DCount("*", "QRY IP5_1FIDS_SALARN")

**random** · 23/01/2006, 10h31

que contient sqlwhere à ce moment ?

**Virgile59** · 23/01/2006, 10h36

Quand je place le curseur sur SQLWhere il me dit = [QRY IP5_1FIDS_SALARN]![CDMATN]<>'0' GROUP BY [QRY IP5_1FIDS_SALARN]![CDMATN]........

Voici le code :

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
17
18
19
20
21
22
23
24
25
26
27
28
Public Sub RefreshQuery()
Dim sql As String
Dim SQLWhere As String
 
sql = "TRANSFORM First(Effectifs.Metier) AS PremierDeMetier "
sql = sql & "SELECT [QRY IP5_1FIDS_SALARN]![CDMATN] AS CODE, [QRY IP5_1FIDS_SALARN].NOMSAN, [QRY IP5_1FIDS_SALARN].PRENON, [Effectifs Donnees].Site "
 
sql = sql & "FROM ([QRY IP5_1FIDS_SALARN] LEFT JOIN [Effectifs Donnees] ON [QRY IP5_1FIDS_SALARN].CDMATN = [Effectifs Donnees].CDMATN) LEFT JOIN [QRY Effectifs] ON [QRY IP5_1FIDS_SALARN].CDMATN = [QRY Effectifs].CDMATN "
 
sql = sql & "WHERE [QRY IP5_1FIDS_SALARN]![CDMATN]<>'0' "
 
If IsNull(Me.Metier) Then
Else
sql = sql & "AND ((([QRY Effectifs].Metier) = '" & Forms!Effectifs.Metier & "'))"
End If
 
sql = sql & "GROUP BY [QRY IP5_1FIDS_SALARN]![CDMATN], [QRY IP5_1FIDS_SALARN].NOMSAN, [QRY IP5_1FIDS_SALARN].PRENON, [Effectifs Donnees].Site "
sql = sql & "ORDER BY [QRY IP5_1FIDS_SALARN]![NOMSAN] "
sql = sql & "PIVOT [Annee] & 'T0' & Right([Trimestre],1)"
 
SQLWhere = Trim(Right(sql, Len(sql) - InStr(sql, "Where ") - Len("Where ") + 1))
 
sql = sql & ";"
 
Me.lblStats.Caption = DCount("*", "QRY IP5_1FIDS_SALARN", SQLWhere) & " / " & DCount("*", "QRY IP5_1FIDS_SALARN")
 
Me.Liste.RowSource = sql
End Sub