Discussion :

[manusp]

Bonjour,

J'ai une requête nommée : R_Récap N°CTA/Cat

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
N° rapport	Catégorie
2012001	INC
2012002	SAP
2012003	SAP
2012004	INC
2012005	SAP
2012006	OPD
2012007	ACC
2012008	ACC
2012009	INC
2012010	SAP
2012011	SAP
2012012	SAP
2012013	ACC
2012014	SAP
2012015	SAP
2012016	SAP
2012017	SAP
2012018	SAP
2012019	ACC
2012020	INC
2012021	INC
2012100	INC
2012200	OPD
2012300	INC

J'aimerais dans l'état suivant ( image ), indiquer le nombre d'ACC, de SAP, de INC, de OPD enregistré dans la requête précédente, au dessus de chaque entité.
[IMG][/IMG]

Est ce que c'est possible et comment ???

Merci d'avance

Manu

[tee_grandbois]

Bonsoir,
il faut créer une requête analyse croisée. Comme il manque un champ pour la ligne,on peut utiliser une expression quelconque :

Code :

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

1
2
3
4
5
TRANSFORM Count([R_Récap N°CTA/Cat].[N° rapport]) AS [CompteDeN° rapport]
SELECT "1" AS Ligne
FROM [R_Récap N°CTA/Cat]
GROUP BY "1"
PIVOT [R_Récap N°CTA/Cat].Catégorie;

Voici le résultat que tu peux insérer dans ton état :

Code :

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

1
2
Ligne	ACC	INC	OPD	SAP
1	4	5	1	11

[manusp]

Bonjour,

Merci de votre réponse, l état est existant je voulais juste créer une zone de texte indépendante pour compter avec une expression pour compter ma requête.

[tee_grandbois]

Bonsoir manusp,
Tu peux utiliser ce code pour remplir tes contrôles, il suffit que tu nommes les champs comme ceux de l'analyse croisée.

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
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim ors As DAO.Recordset
Dim I As Integer, J As Integer
 
Dim stSQL As String
stSQL = "TRANSFORM Count([R_Récap N°CTA/Cat].[N° rapport]) AS [CompteDeN° rapport]"
stSQL = stSQL & " SELECT '1' AS Ligne FROM [R_Récap N°CTA/Cat] group BY '1'"
stSQL = stSQL & " PIVOT [R_Récap N°CTA/Cat].Catégorie;"
 
Set ors = CurrentDb.OpenRecordset(stSQL)
    If Not (ors.EOF) Then
        While Not ors.EOF
 
            For I = 0 To ors.Fields.Count - 1
                For J = 0 To Me.Controls.Count - 1
                    If Me.Controls(J).Name = ors.Fields(I).Name Then
                       Me.Controls(J).Value = ors.Fields(I).Value
                       Exit For
                    End If
                Next J
            Next I
 
            ors.MoveNext
        Wend
    End If
 
 ors.Close
 Set ors = Nothing
 
 
End Sub

[manusp]

Bonjour,

Est ce qu'avec le générateur d expression il est possible de compter les éléments de ma requête?

[rjamin]

Bonjour,
Si vous ne voulez pas passer par VBA je propose ceci
Vous ajoutez dans votre requête des champs calculés.
Pour ACC

Code :

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

CpteACC:VraiFaux([Catégorie]="ACC";1;0)

Pour SAP

Code :

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

CpteSAP:VraiFaux([Catégorie]="SAP";1;0)

et ainsi de suite pour toute les catégories.
Ensuite vous pouvez placer ces champs dans votre état comme n'importe lequel des champs existant dans la table de la table.
Ensuite vous mettez une zone de texte avec comme formule dans Source

Code :

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

=Somme([CpteACC])

Et cette zone affichera le total des ACC.