On souhaite afficher sur 1 planning la somme des montants journaliers avec en lignes les mois et en colonnes les jours du mois.

On dispose pour cela d’1 table « T_Facture » contenant 4 champs :

• N° : clé primaire
• DateFacture : type Date
• PU : type Monétaire
• Volume : type Numérique

Et de la requête analyse croisée qui donne le résultat demandé :

TRANSFORM Sum(PU*Volume) AS Montant
SELECT Format([DateFacture],"mmm-yyyy") AS Mois
FROM T_Facture
GROUP BY Format([DateFacture],"mmm-yyyy"), Format([DateFacture],"yyyy-mm")
ORDER BY Format([DateFacture],"yyyy-mm")
PIVOT Day([DateFacture]) In (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);
]]> 0 https://blog.developpez.com/user/p10995/access/title_223 https://blog.developpez.com/user/p10995/access/title_223#comments Sat, 28 Apr 2012 15:09:19 +0000 Objectif

On souhaite afficher les activités de personnes sur 1 semainier et on dispose pour cela de 2 tables:

La table « T_Personne » avec le numéro de la personne et son nom :

• NumPersonne : type Entier long (clé)
• NomPersonne : type Texte

Et la table « T_Planning » contenant 10 champs :

• NumPersonne : type Entier long (clé)
• Annee : type Entier (clé)
• NumSemaine : type Entier (clé)
• Lundi : type Texte
• Mardi : type Texte
• Mercredi : type Texte
• Jeudi : type Texte
• Vendredi : type Texte
• Samedi : type Texte
• Dimanche : type Texte

Pour atteindre notre objectif, on va réaliser une requête paramétrée avec en lignes les informations concernant les personnes, en colonnes les jours de la semaine, et à l’intersection les activités.

Cette requête sera alors facilement exploitable comme source d’un formulaire.

Marche à suivre

1) Création de la requête paramétrée

L’étape suivant consiste à créer une requête « R_Plan », basée sur la table « T_Planning », qui affiche les activités des jours de la semaine identifiée par les paramètres [Forms]![F_Planning]![Annee] et [Forms]![F_Planning]![NumSemaine], qui sont en fait des références aux contrôles situés sur le formulaire « F_Planning » :

PARAMETERS  [Forms]![F_Planning]![Annee]  Value, [Forms]![F_Planning]![NumSemaine] Value;
SELECT NumPersonne, Annee, NumSemaine, Lundi, Mardi, Mercredi, Jeudi, Vendredi, Samedi, Dimanche
FROM T_Planning
WHERE ((Annee=[Forms]![F_Planning]![Annee]) AND (NumSemaine=[Forms]![F_Planning]![NumSemaine]));

2) Afficher toutes les personnes

Cette étape consiste à afficher toutes les personnes en en-têtes de lignes, y compris celles qui n’ont pas eu d’activité au cours de la période. On crée donc une requête « R_Planning » basée sur la table « T_Personne » et sur la dernière requête « R_Plan » et qui réalise une jointure gauche entre la table « T_Personne » et la requête « R_Plan » sur le champ « NumPersonne » :

SELECT T_Personne.NumPersonne, T_Personne.NomPersonne, R_Plan.*
FROM T_Personne LEFT JOIN R_Plan ON T_Personne.NumPersonne = R_Plan.NumPersonne
ORDER BY T_Personne.NumPersonne;

3) Création du sous-formulaire « SF_Planning »

Ce formulaire en mode continu ou feuille de données possède comme source la requête « R_Planning ».
Il affiche en ligne les personnes et en colonnes les jours de la semaine.
Il est intégré au formulaire principal.

Pour mettre à jour les champ [Annee] et [NumSemaine] on ajoutera, sur l’évènement Avant MAJ, le code suivant :

Private Sub Form_BeforeUpdate(Cancel As Integer)
[Annee] = Forms!F_Planning!Annee
[NumSemaine] = Forms!F_Planning!NumSemaine
 
End Sub

4) Création du formulaire principal « F_Planning »

Ce formulaire contiendra, en plus du sous-formulaire, les contrôles (zones de texte ou listes déroulantes) nommés « Annee » pour l’année, et « NumSemaine » pour le numéro de semaine.
On ajoutera une commande pour rafraichir le sous formulaire sur l’évènement Après MAJ des 2 contrôles :

Private Sub Annee_AfterUpdate()
Me!SF_Planning.requery
End Sub
 
Private Sub NumSemaine_AfterUpdate()
Me!SF_Planning.requery
End Sub

Conclusion

Vous pouvez facilement adapter cet exemple à votre cas en changeant au besoin les noms des champs et des contrôles.

Notez que les données peuvent être directement mise à jour sur le planning.

]]> 0 https://blog.developpez.com/user/p10992/access/afficher_un_planning_au_moyen_d_une_requ https://blog.developpez.com/user/p10992/access/afficher_un_planning_au_moyen_d_une_requ#comments Fri, 27 Apr 2012 15:37:27 +0000 Objectif

On souhaite afficher les activités de personnes sur 1 planning et on dispose pour cela de 2 tables :

La table « T_Personne » avec le numéro de la personne et son nom :

• NumPersonne : clé primaire
• NomPersonne : type Texte

Et la table « T_Planning » contenant 4 champs :

• id : clé primaire
• DateDebut : type Date
• DateFin : type Date
• Activite : type Texte
• NumPersonne : clé étrangère

Pour atteindre notre objectif, on va réaliser une requête analyse croisée avec en en-têtes de lignes les informations concernant les personnes, en en-têtes de colonnes les indices des jours et à l’intersection les activités.

Cette requête sera alors facilement exploitable comme source d’un formulaire.

Marche à suivre

1) Définition des indices de colonnes

Tout d’abord, il nous faut définir le nombre de colonnes, le nombre de jours à afficher dans la requête analyse croisée, normalement 31.
Pour cela, on doit créer une table « T_Jour » contenant les indices des 31 jours (1,2,3…31).

2) Génération des 31 dates

Puis, il nous faut générer les dates correspondant aux 31 indices partant d’une date entrée en paramètre d’une requête.
On crée donc une requête paramétrée « R_Jour », basée sur la table précédente et qui affiche les 31 jours à partir du jour [Jour1] passé en paramètre.

PARAMETERS [Jour1] DateTime;
SELECT T_Jour.Jour, [Jour1]+[Jour]-1 AS DateJ
FROM T_Jour;

Notez que le paramètre [Jour1] peut aussi bien être un contrôle dans un formulaire.

3) Générer les jours intermédiaires entre les dates de début et de fin

L’étape suivant consiste à créer une requête « R_Plan », basée sur la requête « R_Jour » et la table « T_Planning », qui affiche tous les jours à planifier, y compris les jours intermédiaires entre les dates de début et de fin :

SELECT T_Planning.*, R_Jour.DateJ
FROM R_Jour, T_Planning
WHERE (R_Jour.DateJ BETWEEN [DateDebut] AND [DateFin]);

4) Afficher toutes les personnes

L’avant dernière étape consiste à afficher toutes les personnes, y compris celles qui n’ont pas eu d’activité au cours de la période. On crée donc une requête « R_Planning » basée sur la table « T_Personne » et sur la dernière requête « R_Plan » et qui réalise une jointure gauche entre la table « T_Personne » et la requête « R_Plan » sur le champ « NumPersonne » :

SELECT T_Personne.NumPersonne, T_Personne.NomPersonne, R_Plan.[DateJ] AS Jour, R_Plan.Activite AS Activite
FROM T_Personne LEFT JOIN R_Plan ON T_Personne.NumPersonne = R_Plan.NumPersonne
ORDER BY T_Personne.NumPersonne;

5) Créer la requête analyse croisée

Enfin, on va réaliser une requête croisée basée sur la table « T_Personne » et sur la dernière requête « R_Planning » et qui affiche, en lignes les informations des personnes, et en colonnes les indices des 31 jours partant du 1er jour passé en paramètre :

TRANSFORM First(Activite) AS Activite
SELECT NumPersonne, NomPersonne
FROM R_Planning
GROUP BY NumPersonne, NomPersonne
ORDER BY NumPersonne
PIVOT DateDiff("d",[Jour1],[Jour])+1 In (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);

La clause Pivot désigne les en-têtes de colonnes et l’opérateur In permet de fixer les colonnes : Ici, la requête comportera 31 colonnes (1,2..31).

L’expression DateDiff(« d »,[Jour1],[Jour])+1 renvoie l’indice du jour partant du 1er jour passé en paramètre.

Conclusion

Vous pouvez facilement adapter cet exemple à votre cas et utiliser le résultat dans un formulaire en mode continu.

]]> 0