Discussion :

[polon]

Bonjour a tous,

Je voudrais savoir si il etait possible de faire un etat depuis une requette analyse croisé ?

....ou si il y'a une solution a mon problème je suis prenneur pour toute idee ..........merci d'avance

J'explique mon cas (surement un cas d'ecole kel ....bref ) :

J'ai cree une requette qui me liste les produits de ma facture comme ceci :


RefCateg | N° commande| NomMatière|Quantité| NomTaille|NomCouleur
PROD1| 124| Coton / Voile de Coton Uni| 50| 36| Beige|
PROD1| 124| Coton / Voile de Coton Uni| 100| 38| Beige|
PROD1| 124| Coton / Voile de Coton Uni| 60| 40| Choco|
PROD1| 124| Coton / Voile de Coton Uni| 200| 38| Ivoire|
PROD2| 124| Coton / Voile de Coton Uni| 200| 36| Bleu|



puis j'ai une autre requette base sur celle de dessus qui me fait l'analyse croisee sous la forme :


NomCouleur|Total de Quantité|36|38|40|
Beige|150|50|100|0|
Bleu|200|200|0|0|
Choco|60|0|0|60|
Ivoire|200|0|200|0|

ce qui me donne entière satisfaction - pourtant je n'arrive pas a faire un sous-etat à partir de cette requette

qq'un(e) peut me conseiller et me donner un coup de main pour realiser cet etat ?

merci d'avance

polon

[cafeine]

Hello,

quelle est ta difficulté ? En quoi créer un état à partir d'une requete d'analyse croisée diffère d'une autre création d'état ?

tu parles d'état, puis de sous-état ?

[polon]

Bonjour,

j'essaie de reexpliquer mon pb:

Le premier listing que la requette me donne est ok(voir l'exemple plus bas)
Le deuxième est ok aussi : je fait l'analyse croisee sur la première requette pour une RefCateg

Le problème est que je n'arrive pas a faire l'etat qui me sorte pour chaque RefCateg le sous-etat avec l'analyse comme ceci :

Ex :

Requette qui me liste les produits de ma facture :

RefCateg | N° commande| NomMatière|Quantité| NomTaille|NomCouleur
PROD1| 124| Coton / Voile de Coton Uni| 50| 36| Beige|
PROD1| 124| Coton / Voile de Coton Uni| 100| 38| Beige|
PROD1| 124| Coton / Voile de Coton Uni| 60| 40| Choco|
PROD1| 124| Coton / Voile de Coton Uni| 200| 38| Ivoire|
PROD2| 124| Coton / Voile de Coton Uni| 200| 36| Bleu|

Requette base sur la requette listé plus haut qui me fait l'analyse croisee (que pour RefCateg = PROD1):

NomCouleur|Total de Quantité|36|38|40|
Beige|150|50|100|0|
Bleu|200|200|0|0|
Choco|60|0|0|60|
Ivoire|200|0|200|0|


Je voudrais avoir mon etat sous cette forme

Pour RefCateg = PROD1 le sous etat doit etre :

NomCouleur|Total de Quantité|36|38|40|
Beige|150|50|100|0|
Bleu|200|200|0|0|
Choco|60|0|0|60|
Ivoire|200|0|200|0|

RefCateg = PROD2 le sous etat doit etre :

NomCouleur|Total de Quantité|36|38|40|
Bleu|200|200|0|0|

Voila a quoi je voudrais qu'il ressemble mon etat

Desole pour mon francais - j'ai du mal a me faire comprendre par ecrit .

merci pour votre aide

Polon

PS : j'ai mis volontairement en gras PROD2 pour mieux comprendre

[Lou Pitchoun]

Salut
y a une solution.. elle existe dans une base exemple livrée avec access qui se trouve dans Office\exemples\solution.mdb l'état se nomme "Ventes des employés".
si tu as besoin d'explications....

[polon]

- moi je l'ai pas - as tu une idee d'ou je peut la trouver ?

merci

-----------------

oups je l'ai - comtoir.mdb merci

----------------

Entete de groupe / Pied de groupe - c'est ca la solution ? - je vais regarder ca mais si qq'un peut me donner une p'tite explication ou un lien ou on traite de En-tete et Pied de groupe ?

merci d'avance

[Lou Pitchoun]

je ne sais pas si dans comptoir l'exemple que je t'ai cité s'y trouve....

Edit : version Access97

Procédure :
Construire l'état avec :
Dans l'entête de page : les champs nommés Entête1, Entête2 etc... (vont servir d'entête de colonnes)
Dans le détail : les champs nommés Nombre1, Nombre2 etc... (Nombre1 va servir d'entête de ligne, Nombre2 et suivants vont recevoir les valeurs)
Dans le pied d'état : les champs Total1 (avec valeur : Total (c'est l'étiquette en fait), Total2, Total3.... vont effectuer la somme des champs Nombre correspondant

Tous ces champs sont donc indépendants et te permettront d'avoir des colonnes et des lignes créées dynamiquement en focntion du résultat de ta requête.

Sinon voici le code à placer dans l'état :

Code :

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

1
2
3
4
5
6
7
8
' ***** déclaration des variables ***** ' 
Const Nombre_colonnes = 10 ' pour 10 étiquettes sur l'état maximum & _ 
    on peut en afficher plus et donc modifier cette variable 
Dim Base As Database 
Dim Enregistrement As Recordset 
Dim NbColonnes As Integer 
Dim Total_colonnes(1 To Nombre_colonnes) As Long 
Dim Total_état As Long

Détail : Au formatage

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
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) 
 
    Dim entX As Integer 
 
    If Not Enregistrement.EOF Then 
        If Me.FormatCount = 1 Then 
            For entX = 1 To NbColonnes 
                Me("Nombre" + Format(entX)) = xtabCnulls(Enregistrement(entX - 1)) 
            Next entX 
 
            For entX = NbColonnes + 2 To Nombre_colonnes 
                Me("Nombre" + Format(entX)).Visible = False 
            Next entX 
 
            Enregistrement.MoveNext 
        End If 
    End If 
 
End Sub

Détail : sur impression

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
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) 
 
    Dim entX As Integer 
    Dim Nblignes As Long 
 
    If Me.PrintCount = 1 Then 
        Nblignes = 0 
 
        For entX = 2 To NbColonnes 
            Nblignes = Nblignes + Me("Nombre" + Format(entX)) 
            Total_colonnes(entX) = Total_colonnes(entX) + Me("Nombre" + Format(entX)) 
        Next entX 
 
        Me("Nombre" + Format(NbColonnes + 1)) = Nblignes 
        Total_état = Total_état + Nblignes 
    End If 
 
End Sub

Détail : au reformatage

Code :

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

1
2
3
4
5
Private Sub Détail_Retreat() 
 
    Enregistrement.MovePrevious 
 
End Sub

Entête état : Au formatage

Code :

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

1
2
3
4
5
6
Private Sub EntêteÉtat_Format(Annuler As Integer, FormatCount As Integer) 
 
    Enregistrement.MoveFirst 
    Initvar 
 
End Sub

Entête de page : au formatage

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
Private Sub EntêtePage_Format(Annuler As Integer, FormatCount As Integer) 
 
    Dim entX As Integer 
 
    ' Met les entêtes de colonnes 
    ' dans des zones de texte dans la section Entête. 
    For entX = 1 To NbColonnes 
        Me("Entête" + Format(entX)) = Enregistrement(entX - 1).Name 
    Next entX 
 
    ' Crée l'entête Totaux de la prochaine zone de liste disponible. 
    Me("Entête" + Format(NbColonnes + 1)) = "Totaux" 
 
    ' Cache les zones de texte inutilisées dans la section Entête. 
    For entX = (NbColonnes + 2) To Nombre_colonnes 
        Me("Entête" + Format(entX)).Visible = False 
    Next entX 
 
End Sub

Pied d'état : au formatage

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
Private Sub PiedÉtat_Format(Annuler As Integer, NBimpression As Integer) 
 
    Dim entX As Integer 
 
    For entX = 2 To NbColonnes 
        Me("Total" + Format(entX)) = Total_colonnes(entX) 
    Next entX 
 
    ' Place TotalEtat dans une boite de texte dans le pied d'état. 
    Me("Total" + Format(NbColonnes + 1)) = Total_état 
 
    ' Cache les zones de texte inutilisées dans le pied d'état. 
    For entX = (NbColonnes + 2) To Nombre_colonnes 
        Me("Total" + Format(entX)).Visible = False 
    Next entX 
 
End Sub

Etat : sur fermeture

Code :

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

1
2
3
4
5
Private Sub Report_Close() 
 
    Enregistrement.Close 
 
End Sub

Etat : sur aucune données

Code :

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

1
2
3
4
5
6
7
Private Sub Report_NoData(Annuler As Integer) 
 
    MsgBox "Aucun enregistrement n'a été trouvé.", vbExclamation, "Oh la boulette !!!" 
    Enregistrement.Close 
    Annuler = True 
 
End Sub

Etat : sur ouverture

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Report_Open(Annuler As Integer) 
 
    Dim Requête As QueryDef 
 
    Set Base = CurrentDb 
    Set Requête = Base.QueryDefs("NomRequeteAnalyseCroisée") 
    Set Enregistrement = Requête.OpenRecordset() 
 
    'Définit le nombre de colonnes de la requête 
    NbColonnes = Requête.Fields.Count 
 
End Sub

Codes à placer dans l'état :
Sub Initvar

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Initvar() 
 
    Dim entX As Integer 
    Total_état = 0 
 
    For entX = 1 To NbColonnes 
        Total_colonnes(entX) = 0 
    Next entX 
 
End Sub

Fonction xtabCnulls

Code :

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

1
2
3
4
5
6
7
8
9
Private Function xtabCnulls(varX As Variant) 
 
    If IsNull(varX) Then 
        xtabCnulls = 0 
        Else 
        xtabCnulls = varX 
    End If 
 
End Function

PS : j'ai demandé à Demco si ça pouvait apparaitre dans la FAQ.

[polon]

merci - je vais m'y mettre pour voir si j'ai compris qq chose

je vous tiens au courant

@+ Polon

[loutsky]

J'ai réalisé cette procédure sous ACCESS 2002, ca fonctionne parfaitement. Le seul truc à modifier par rapport à ACCESS 97, c le nom de la procédure EntêtePage_Format à remplacer par ZoneEntêtePage_Format.
Et ne pas oublier de mettre la requête en source de l'état.
Cette procédure devrait apparaitre dans la FAQ, c pas compliqué à mettre en place et très efficace.

Merci Kikof

[random]

un pivot into aurait été plus simple

[loutsky]

Comment tu fais un pivot into?

[Armagnak]

Salut,

Je me permet de "déterrer" ce topic.
J'ai le même problème (et je suis loin d'être le seul à ce que j'ai pu voir)
sauf que je n'arrive pas à comprendre la solution de Kikof.
Je pensais m'en sortir avec l'exemple livré avec Access...

Je n'ai malheureusement pas l'état "ventes des employés" dans ma base Comptoirs.
A-t-il été renommé ?
Y-a-t-il un autre état contruit à partir d'une requête analyse croisée ?

Merci d'avance

[Lou Pitchoun]

Salut,
Je n'ai malheureusement pas l'état "ventes des employés" dans ma base Comptoirs.
A-t-il été renommé ?
Y-a-t-il un autre état contruit à partir d'une requête analyse croisée ?

Merci d'avance

Salut,
Cet exemple se trouve dans la base Solutions.mdb !!!!

En "théorie", tu copies-colles le code dans l'état que tu crées. Tu changes le nom de la requete dans "Private Sub Report_Open(Annuler As Integer)" et comme ça a été dit, pour les versions supérieures, il faut remplacer EntêtePage_Format par ZoneEntêtePage_Format.