Transposer table en format hebdo

**SDABJ** · 12/10/2015, 20h59

Bonsoir je cherche a faire un formulaire de saisie en tableau hebdo pour faire un menu de cantine. J ai une table plat liee a menus par 3 types de menus.actuellement le formulaire affiche un menu en colonne je voudrai en afficher 7 sur l écran pour saisir en visuel semaine. La requête analyse croisee ne permet pas de saisir de plus mes champs de valeurs sont les plats de la table plat.colonne date et ligne type de plat (entree;plat;dessert). Qui aurait une idée s il vous plait?

**ClaudeLELOUP** · 13/10/2015, 05h42

Bonjour et bienvenue chez nous,

À quoi bon une requête croisée ?

Tu pourrais, par exemple, concevoir un formulaire « MenuJour » avec 3 zones de liste (entrée, plat, dessert) qui te permet de composer le menu d’un jour.

Tu crées ensuite un formulaire « MenuSemaine » qui contient 7 fois « MenuJour » en tant que sous-formulaire.

**ClaudeLELOUP** · 14/10/2015, 13h35

Peux-tu montrer avec un dessin ce que tu voudrais comme résultat final.

Regarde si tu peux convertir ta db en format Access2000 (la version que j'utilise) et postes-en le zip, ce sera plus clair pour dialoguer.

http://claudeleloup.developpez.com/F...access2000.pdf

**SDABJ** · 14/10/2015, 13h49

je n ai pas pu enregistrer au format anterieur. j ai juste changé l extension.

**ClaudeLELOUP** · 14/10/2015, 15h22

j ai juste changé l extension.DB

Si c’était aussi simple, ça se saurait !

Je me suis débrouillé pour voir le contenu de ta db

En fait, par jour tu as 3 menus : LUNCH, DINNER et MIDNIGHT.

Que veux-tu présenter exactement ?

Un formulaire qui afficherait tous les menus d’une semaine, sur un même écran ? Soit 21 cadres comme celui ci-dessus ?

Pour encoder ? Ou bien seulement pour visionner les données déjà encodées au moyen de ton formulaire « Menu » actuel ?

Peux-tu montrer un dessin de ce que tu voudrais faire ?

**SDABJ** · 14/10/2015, 15h32

oui c est ca j aimerai un formulaire sur 7 jours affichés à l'ecran où l on choisis avec les choix dans chaque case.j aimerai afficher comme dans requete analyse croisee: colonne=date, ligne=type menu et type plat, valeur=plat, et pouvoir saisir les données par liste de choix deroulante.
date1 date 2 date 3 date4 date5 date 6
lunch
entree barsalade salade crudites
....
plat
dessert

dinner
entree
.....
plat
dessert

j ai le meme soucis avec une table d employés, j aimerai afficher comme dans une requete analyse croisee: colonne=date, ligne=poste, valeur=employé

**ClaudeLELOUP** · 14/10/2015, 16h32

Une question : c'est le début et tu cherches ta voie ou bien il y a une application qui existe et sur laquelle tu veux greffer ce nouveau formulaire ?

Si c'est une nouvelle application, il vaudrait mieux revoir l'organisation des données.
Je peux te donner un coup de main, si tu es disposée à expliquer en détail.

**SDABJ** · 14/10/2015, 17h40

Envoyé par ClaudeLELOUP

Une question : c'est le début et tu cherches ta voie ou bien il y a une application qui existe et sur laquelle tu veux greffer ce nouveau formulaire ?

Si c'est une nouvelle application, il vaudrait mieux revoir l'organisation des données.
Je peux te donner un coup de main, si tu es disposée à expliquer en détail.

Ok pour revoir l oganisation des données. ce sera dans une autre bd mais sans liaison.

**ClaudeLELOUP** · 14/10/2015, 17h57

Ok pour revoir l oganisation des données. ce sera dans une autre bd mais sans liaison.

je ne comprends pas ta réponse. (Sans liaison.)

**SDABJ** · 14/10/2015, 18h38

SANS LIAISON AVEC LE RESTE DE LA BD DANS LEQUEL CE FORMULAIRE SERA INTÉGRÉ. BON BREF PARTONS du principe que ce que j ai envoyé serait le point de départ et voyons ce que tu proposes comme reorganisation des données.
merci

**ClaudeLELOUP** · 14/10/2015, 20h22

SANS LIAISON AVEC LE RESTE DE LA BD DANS LEQUEL CE FORMULAIRE SERA INTÉGRÉ.

OK, on se limite donc à ceci comme problème :
- on a des plats
- on doit composer une carte pour chacun des 3 services (lunch, dinner et midnight) de chaque jour d’une semaine.

Je voudrais comprendre ce que représentent dans la table « Plats », les notions de
- Catégorie ;
- Type de plat.
Ceci d’autant plus que, dans de nombreux cas, les valeurs des deux colonnes sont identiques.
------------
L’éventail de la carte

est-il valable quel que soit le service ?
------------
Faut-il prévoir des restrictions dans les choix possibles. Par exemple si un plat est choisi pour la Salle 1 de tel jour, peut-il encore figurer dans les items proposés pour Salle 2 et Salle 3 du même jour ? Idem dans la même semaine.

**SDABJ** · 14/10/2015, 20h53

effectivement les restrictions dont tu parles seraient necessaires. mais risque de bloquer car dans la meme journée pour entree soupe et dessert c est souvent les memes, mais on veut la possibilité de choisir autre chose.
les catégories de plat sont prévues pour les listes de choix des plat1 2 3. dans le plat 1 du boeuf, plat 2 poulet, plat 3 porc et poisson

**ClaudeLELOUP** · 14/10/2015, 21h06

les catégories de plat sont prévues pour les listes de choix des plat1 2 3. dans le plat 1 du boeuf, plat 2 poulet, plat 3 porc et poisson

Donc une seule colonne suffit ! On énumèrera les catégories pour créer les listes des plat1, 2 et 3.
N'y aurait-il pas une appellation plus générique que 1, 2 et 3 pour distinguer les types de plats ? Par ex. : Bovidé, Volaille, Autres.

Ceci est-il voulu ?

Tu n'as pas répondu : même carte aussi détaillée pour chacun des 3 services ?

mais risque de bloquer car dans la meme journée pour entree soupe et dessert c est souvent les memes,

On pourrait chercher un moyen (avec la mise en forme conditionnelle) pour colorer les plats qui figurent plusieurs fois le même jour.

Quelle est la différence entre Légumes1 et Légumes2 de la carte ? Je ne vois pas de distinction dans la table (Légumes).

**SDABJ** · 15/10/2015, 09h16

OUI même carte aussi détaillée pour chacun des 3 services. ET TOUS LES JOURS.
OUI On pourrait chercher un moyen (avec la mise en forme conditionnelle) pour colorer les plats qui figurent plusieurs fois le même jour.
Quelle est la différence entre Légumes1 et Légumes2 de la carte ? AUCUN C'EST SEULEMENT QU IL Y A 2 LEGUMES AUX CHOIX PAR REPAS

**ClaudeLELOUP** · 15/10/2015, 09h42

Je prépare une proposition en ce sens... Un peu de patience : ça doit encore cuire !

**ClaudeLELOUP** · 15/10/2015, 17h34

Voici un premier essai.

Le modèle de données

tMenus contient 1 enregistrement par jour avec une colonne pour chaque item de la carte des 3 services.

Les références utiles

Le formulaire fMenuSemaine

À l’ouverture, le formulaire a cet aspect

L’utilisateur introduit une date : celle du 1er jour de la semaine qu’il veut afficher, si les menus ont déjà été encodés pour cette semaine, il vient :

Si des menus manquent encore, on peut les encoder :

chaque liste ne contient que les items éligibles pour cet élément de la carte

L’idée

Le formulaire fMenuSemaine contient 7 sous-formulaires sfMenuJour, dans 7 conteneurs CTNR0 à CTNR6.

La mise à jour de la date de départ déclenche ce code :

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
Option Compare Database
Option Explicit
 
Private Sub txtDateDepart_AfterUpdate()
  Dim ctl As Control
  Dim sSqlDebut As String
  Dim sSql As String
  'Aménager les dates
  DoCmd.SetWarnings False
  For Each ctl In Me.Controls
    If ctl.Name Like "txtJour#" Then
        'Garnir les contrôles
        ctl = Me.txtDateDepart + Right(ctl.Name, 1)
        'Créer (éventuellement) les enregistrements vierges avec ces dates dans la table tMenus
        DoCmd.RunSQL "INSERT INTO tMenus ( MenuDate ) SELECT #" & Format(Me(ctl.Name), "mm/dd/yyyy") & "# AS Expr1;"
    End If
  Next ctl
  DoCmd.SetWarnings True
  'Construire la source de chaque sous-formulaire
  sSqlDebut = "SELECT * FROM tMenus WHERE MenuDate=#"
  For Each ctl In Me.Controls
    If ctl.Name Like "CTNR#" Then
        sSql = sSqlDebut & Format(Me("txtJour" & Right(ctl.Name, 1)), "mm/dd/yyyy") & "# ;"
        ctl.Form.RecordSource = sSql
        Me(ctl.Name).Requery
    End If
  Next ctl
End Sub

Explication du code

10-17 : on garnit les dates de référence

Et on ajoute les enregistrements pour ces dates dans tMenus.
N.B. S’il s’avère que ces enregistrements existent déjà, la tentative d’ajout échouera, car un index a été posé sur la colonne MenuDate

19-27 : on construit la source de chaque sous-formulaire. Par exemple si la date de référence est le 4/10/15, cette requête :

Ça te convient ?

La db exemple est ici : http://claudeleloup.developpez.com/&99/Menu7jours.mdb

**SDABJ** · 15/10/2015, 18h13

ah oui merci c'est absolument parfait, en fait il me manque dao ou est ce qu il faut le cocher?

**ClaudeLELOUP** · 15/10/2015, 18h23

Dans ma version :

<ALT + F11> pour accéder à l'éditeur de VBA.
Ensuite Outils>Références... et tu cherches dans la liste qui s'affiche.

**SDABJ** · 15/10/2015, 18h45

pour imprimer le meme tableau, creer un état me donne que des numéros, puisque ma table n'est remplie que de chiffres. la je ne sais pas faire non plus. je suis perdue.

**SDABJ** · 15/10/2015, 21h12

en fait je ne maitrise pas le vba, je comprends mais ne sais pas l'écrire, j utilise access avec ses assistants et ensuite j agrémente avec des macro......comment dois je m y prendre pour savoir faire des procedures evenementielles?
il faut que je fasse un etat menu quotidien et un etat menu hebdo, et là ce sera complet et utilisable par tous.
je n y arrive pas bien entendu.......j ai essayé mais je n arrive pas a télécharger le fichier.mdb
merci encore pour votre grande aide.

Transposer table en format hebdo [AC-2010]

IHM

Discussions similaires

Partager

Partager