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.

[manusp]

Bonjour,

Merci pour les codes pour compter dans ma requête ça fonctionne bien.

C'est juste le dernier code

Code :

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

=Somme([CpteACC])

Quand je l'insère dans une zone de texte indépendante j'ai

Code :

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

#ERREUR

[rjamin]

Bonjour,
Ce sont des champs calculé donc il sont disponibles dans la liste des champs existants donc vous pouvez les tirés avec la souris dans votre formulaire.
Si ce champ fonctionne dans la requête il doit fonctionner dans le formulaire.
et

Code :

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

=Somme([CpteACC])

aussi dans le Pied de formulaire par exemple.

[manusp]

Bonjour,

L'état en question à une source différente du calcul de ma requête, donc je ne les ai pas en champs existant.
C'est pour ça que j'aimerais insérer une zone de texte indépendante.

[rjamin]

Bonjour,
D'après la miniature jointe au premier post on voit les champs ACC, SNAP etc donc s'ils sont dans l'état ils sont nécessairement dans la source de cet état. Donc refaite les champs calculés dans cette source. Ou alors je ne comprend pas.

[manusp]

Bonjour,

En fait la miniature dépend d'une autre requête qui compte par SP (Sapeur Pompier) le nombre d'interventions qu'ils ont réalisé par ACC-SAP-INC-OPD.

La requête du Post 1 : R_Récap N°CTA/Cat est indépendante. c'est pour ça que je ne possède pas les champs calculés dans cet état.

[rjamin]

Re,
Sans voir la structure de la base de données difficile de juger, mais ma première réaction est de dire qu'il n'est pas possible de compter des éléments dont on ne dispose pas.
mais...???
N'y a-t-il pas moyen de mettre la requête de l'état en relation avec un autre qui contient elle les éléments à compter ?

[manusp]

Bonjour,

Ci-joint la bdd, ça sera plus simple pour la compréhension.

Manu