Discussion :

[Gaston62]

Bonjour à tous,

Je voudrais comptabiliser le nombre d'enregistrements dont le champ est distinct.

Admettons une base de données avec 10 enregistrements, et un champ numérique "Champ1" avec doublons acceptés.



Je voudrais donc obtenir 5, puisqu'il y a 5 valeurs différentes.

Je suppose que je dois travailler avec SELECT DISTINCT [NomDuChamp] FROM MaTable ou SELECT DISTINCT [NomDuChamp] FROM MaRequête et avec DCount, mais je ne vois pas bien de quelle manière.

Je suis arrivé au code suivant, mais évidemment le DCount ne fait que compter la totalité des enregistrements :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim count As Integer
 
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT DISTINCT [NomDuChamp] FROM MaTable", dbOpenDynaset)
 
count = DCount("[NomDuChamp]", "MaTable")
 
MsgBox "Le nombre de groupes d'enregistrements est : " & count
 
rs.Close
Set rs = Nothing
Set db = Nothing

Toute suggestion est la bienvenu,

Gaston

[Gaston62]

Re-bonjour,

J'ai essayé le code suivant :

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
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim countDistinct As Integer
 
Set db = CurrentDb
strSQL = "SELECT COUNT(DISTINCT [N°]) AS NombreEnregistrements FROM [Films_enregistrés]"
Set rs = db.OpenRecordset(strSQL)
 
If Not rs.EOF Then
    countDistinct = rs!NombreEnregistrements
    MsgBox "Le nombre d'enregistrements distincts pour le champ est : " & countDistinct
End If
 
rs.Close
Set rs = Nothing
Set db = Nothing

...mais j’obtiens l'erreur suivante :



Où est l'erreur ?

[User]

Bonjour,

Essayez avec la propriété recordcount du recordset :

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
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim countDistinct As Integer
 
Set db = CurrentDb
strSQL = "SELECT DISTINCT [N°] AS NombreEnregistrements FROM [Films_enregistrés]"
Set rs = db.OpenRecordset(strSQL)
 
If Not rs.EOF Then
    rs.MoveLast
    countDistinct = rs.recordCount
    MsgBox "Le nombre d'enregistrements distincts pour le champ est : " & countDistinct
End If
 
rs.Close
Set rs = Nothing
Set db = Nothing

https://learn.microsoft.com/fr-fr/of...t-property-dao

[hyperion13]

Salut
A tester

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
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSql As String
Dim count As Integer
 
Set db = CurrentDb
 
strSql = "SELECT valeurchamp1, IIf(DCount('valeurchamp1', 'Table1', 'valeurchamp1 = [valeurchamp1]')>0,1,0) AS Compteur" _
& " FROM Table1" _
& " GROUP BY valeurchamp1"
 
Set rs = db.OpenRecordset(strSql, dbOpenDynaset)
    rs.MoveLast
    rs.MoveFirst
    If rs.RecordCount = 0 Then Exit Sub
    MsgBox "Le nombre de groupes d'enregistrements est : " & rs.RecordCount
 
rs.Close
Set rs = Nothing
Set db = Nothing

[Gaston62]

Bonjour User et hyperion13,

Merci pour ces réponses super rapides !!

Les deux méthodes fonctionnent parfaitement, je vais faire des test et choisir la méthode la plus simple et la plus efficace.

Peut-on appliquer ces méthodes à de requêtes plutôt que des tables ?

Gaston

[Gaston62]

Apparemment oui, mais la méthode d'hyperion13 me donne l'erreur suivante si je fais référence à une requête :

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
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSql As String
Dim count As Integer
 
Set db = CurrentDb
 
strSql = "SELECT N°, IIf(DCount('N°', 'Liste VHS exclusive', 'N° = [N°]')>0,1,0) AS Compteur" _
& " FROM Liste VHS exclusive" _
& " GROUP BY N°"
 
Set rs = db.OpenRecordset(strSql, dbOpenDynaset)
    rs.MoveLast
    rs.MoveFirst
    If rs.RecordCount = 0 Then Exit Sub
    MsgBox "Le nombre de groupes d'enregistrements est : " & rs.RecordCount
 
rs.Close
Set rs = Nothing
Set db = Nothing

La méthode de User fonctionne avec une requête :

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
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim countDistinct As Integer
 
Set db = CurrentDb
strSQL = "SELECT DISTINCT [N°] AS NombreEnregistrements FROM [Liste VHS exclusive]"
Set rs = db.OpenRecordset(strSQL)
 
If Not rs.EOF Then
    rs.MoveLast
    countDistinct = rs.RecordCount
    MsgBox "Le nombre d'enregistrements distincts pour le champ est : " & countDistinct
End If
 
rs.Close
Set rs = Nothing
Set db = Nothing

[star]

Bonjour,
Je n'ai pas essayé mais je pense que ça devrait le faire

Code :

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

1
2
3
4
5
6
7
SELECT Count(Champ1)
FROM
(
SELECT Champ1, Count(Champ1) AS Nbre
FROM TaTables
GROUP BY Champ1
);

.

[Gaston62]

Bonjour,

La commande SQL me donne "1" si je spécifie une table (alors que je devrai obtenir "336"), et une erreur de syntaxe si je spécifie une requête !?

[star]

Bonjour,
Bizarre, pourtant ça fonctionne très bien chez moi
.

[micniv]

En simplifiant la bonne proposition de star :

Code :

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

1
2
3
4
5
6
7
8
 
 
SELECT count(Champ1) AS nb_valeurs FROM
(
SELECT Champ1
FROM T_test
GROUP BY Champ1
)

[User]

Bonjour,

Une chose importante à dire c'est que la fonction de domaine dcount attend le nom d'une table ou d'une requête comme nom de domaine :

Code :

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

cpt = DCount("[NomDuChamp]", "NomRequeteDistinct")

Cdlt,

[Gaston62]

Voilà ce que ça donne avec une table:







mais avec une requête, ça donne :

[Gaston62]

Pour précision :

"Liste VHS exclusive" est une requête
"Films_enregistrés" est une table

Cordialement,
Gaston

[Gaston62]

J'utilise la solution de User de cette façon :

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
29
30
31
32
33
34
35
36
37
 
Private Sub cmdVHS_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSql As String
Dim countDistinct1 As Integer
Dim countDistinct2 As Integer
Dim count As Integer
 
Set db = CurrentDb
 
strSql = "SELECT DISTINCT [N°] AS NombreEnregistrements FROM [Films_enregistrés]"
Set rs = db.OpenRecordset(strSql)
 
If Not rs.EOF Then
    rs.MoveLast
    countDistinct1 = rs.RecordCount
End If
 
strSql = "SELECT DISTINCT [N°] AS NombreEnregistrements FROM [Liste VHS exclusive]"
Set rs = db.OpenRecordset(strSql)
 
If Not rs.EOF Then
    rs.MoveLast
    countDistinct2 = rs.RecordCount
'    MsgBox "Le nombre d'enregistrements distincts pour le champ est : " & countDistinct2
End If
 
rs.Close
Set rs = Nothing
Set db = Nothing
 
count = countDistinct1 - countDistinct2
MsgBox "Le nombre total de cassettes est de : " & countDistinct1 & vbLf & _
"Le nombre de cassettes avec enregistrements exclusives est de : " & countDistinct2 & vbLf & _
"Le nombre de cassettes à éliminer est de " & count
End Sub

Ça fonctionne très bien, mais il est peut-être possible de simplifier.

[tee_grandbois]

bonjour,

"Liste VHS exclusive" est une requête

le hic c'est que son nom contient des espaces et que SQL n'aime pas, d'où le message d'erreur de syntaxe, il faut entourer les objets "non conformes au règles de nommage" par des crochets:

Code :

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

FROM [Liste VHS exclusive]

[Gaston62]

Bonjour,

Yep! C'était en effet le problème.

Ça fonctionne donc également avec la méthode d'hyperion13.

Merci à tous pour votre aide et bon lundi de Pentecôte!

Gaston

[Gaston62]

Bonjour,

Je reviens sur un problème de syntaxe et j'aurais tout de même voulu savoir pourquoi ce code que j'avais utilisé me donne une erreur?
Quel est l'opérateur manquant ?

Code :

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

SELECT COUNT(DISTINCT [N°]) AS NombreEnregistrements FROM [Films_enregistrés]"

[User]

Parce que tu dois d'abord générer les lignes distincts à l'aide d'une sous-requête (avec select distinct), pour ensuite les comptabiliser dans la requête principale :

Code SQL :

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

1
2
3
4
5
6
SELECT COUNT([N°]) AS nb_valeurs
FROM 
(
SELECT DISTINCT [N°]
FROM [Films_enregistrés]
)

Il faut bien qu'il passe en revue d'abord la liste des valeurs pour ne garder que les valeurs uniques, et cela se fait à l'aide d'une sous-requête.

Cdlt,

[Gaston62]

Pigé!

Un grand merci pour cet éclaircissement User.

Bonne soirée,

Gaston