Aide pour confectionner des menus

**Hakimol** · 12/02/2018, 11h30

Ajoute les postes dans la table tPlats avec le type Légumes.
Si tu compètes avec un ingrédient avec restriction quant à la période, l'item ne sera pas proposé dans les choix si la date saisie est hors saison.

Je parlais de la garniture qui correspond à "légumes" dans le menu et qui est actuellement bloquée sur "légumes de saison". Je souhaiterais pouvoir préciser via un menu déroulant comme pour les autres.

Pourrais-tu m'indiquer comment faire s'il te plait ?

Merci

**ClaudeLELOUP** · 12/02/2018, 13h14

Quand tu auras complété la table, je modifierai la matrice sfMenu pour ajouter une zone de liste qui offrira un choix parmi les éléments de la table tPlats dont le type correspond à légumes.

**Hakimol** · 12/02/2018, 14h40

J'ai ajouté quelques "plats" de légumes avec la table tPlats.

Je modifierai la matrice sfMenu pour ajouter une zone de liste qui offrira un choix parmi les éléments de la table tPlats dont le type correspond à légumes.

Pourrais-tu me préciser cette étape s'il te plait ?

**ClaudeLELOUP** · 12/02/2018, 17h42

Voilà, c'est modifié. http://claudeleloup.developpez.com/%...206Hakimol.mdb

Tu peux maintenant choisir tes légumes.

Pourrais-tu me préciser cette étape s'il te plait ?

Regarde la propriété Contenu des zones de liste dans sfMenu

P.-S. Les zones de liste dont le nom commence par « Pcbo » sont créées à la volée.

**Hakimol** · 13/02/2018, 08h47

Merci pour ce retour.

Avec les légumes c'est parfait. J'ai juste changé l’appellation en "Fromage ou yaourt nature" et j'ai ajouté une liste "yaourts aux fruits".

**ClaudeLELOUP** · 13/02/2018, 08h57

Bonjour,

Poste la db, je la récupérerai pour la suite des développements.

**Hakimol** · 13/02/2018, 09h05

Je te transmets la db.

**ClaudeLELOUP** · 13/02/2018, 09h14

OK merci.

À part le fait que tu voudrais ajouter la description des recettes (cf. http://claudeleloup.developpez.com/t...on-restaurant/), que vois-tu encore comme fonctionnalité à ajouter pour la partie « élaboration des menus » ?

**Hakimol** · 13/02/2018, 09h25

L'idéal serait de pouvoir aboutir à une édition d'un menu semaine comme sur http://claudeleloup.developpez.com/t...s/menus7jours/ avec un bouton.

Au niveau de la partie "élaboration des menus", je crois qu'on aura fait le tour.

Après, il y a un bar à crudités et salades qui pourrait faire l'objet d'un traitement dans Access mais ce serait plus "léger". Il y a 4 salades proposées par jour (dont création d'un nouveau type "salade" dans ). L'objectif pourrait être d'avoir la même trame avec le système de menu déroulant mais sans la contrainte des semaines, juste avec un choix parmi les plats codés en "salade" pour aboutir à l'édition d'un menu uniquement des salades. Après ce ne serait qu'un plus. Je trouve déjà que l'élaboration des menus et tout le travail accompli sont énormes.

**ClaudeLELOUP** · 13/02/2018, 09h47

**Hakimol** · 13/02/2018, 10h08

J'ai modifié mon dernier message avant ta réponse je crois

**ClaudeLELOUP** · 13/02/2018, 10h25

Il y a 4 salades proposées par jour

Montre un exemple

**Hakimol** · 13/02/2018, 11h09

salade 1 : assortiment de crudités de saison

salade 2 : segments d'agrumes

salade 3 : macédoine de légumes

salade 4 : salade coleslaw

J'ai ajouté le type "salade" et quelques salades.

**ClaudeLELOUP** · 13/02/2018, 13h39

Ne suffit-il pas d'ajouter un sous-formulaire sfSalades par semaine ?

**Hakimol** · 13/02/2018, 18h49

Si le sous formulaire est tout à fait adapté. C'est peut être même mieux d'avoir tout sur la même page.

Par contre, il y a 4 salades par jour et non par semaine.

En tout cas de tout réunir sur le même formulaire c'est très bien

**ClaudeLELOUP** · 14/02/2018, 07h10

Bonjour,

C'est noté.

Je te demande un peu de patience : je serai peu disponible pendant quelques jours.

À bientôt.

**Hakimol** · 14/02/2018, 09h34

Bonjour,

Pas de problème !

Merci pour tout le boulot. J'étais loin de savoir que tout cela était possible avec Access.

**ClaudeLELOUP** · 17/02/2018, 13h53

Bonjour,

Vérifie que ceci correspond à la cible :

Regarde le code associé au sfMenu, il a pour but d’éviter que deux propositions identiques soient présentées le même jour.

Code vba :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Option Compare Database
Option Explicit
 
Public Function VerifUnicite(cboActive As String) As Boolean
  On Error GoTo GestionErreurs
  Dim i As Integer
  Dim iTab(5) As Integer  '5 = nbre maximal de répétitions du même item + 1
                          '    dans notre cas 4 salades
 
  For i = 1 To 4
    iTab(i) = i
  Next i
   i = Right(cboActive, 1)
   For i = 1 To 4
     If iTab(i) <> Right(cboActive, 1) Then
         If Me(cboActive) = Me(Left(cboActive, Len(cboActive) - 1) & i) Then Exit Function
     End If
AuSuivant:
   Next i
   VerifUnicite = True
GestionErreurs:
   Select Case Err.Number
     Case 0 'pas d'erreur
     Case 2465 'N° de suffixe dépassé
       Resume AuSuivant
     Case Else
       MsgBox "Erreur dans VerifUnicite N° " & Err.Number & " " & Err.Description
   End Select
End Function
 
Private Sub PcboPlat1_BeforeUpdate(Cancel As Integer)
  If VerifUnicite(Me.ActiveControl.Name) = False Then
      MsgBox "Ce Plat est déjà présenté !"
      Cancel = True
      Me.ActiveControl.Undo
  End If
End Sub
 
Private Sub PcboPlat2_BeforeUpdate(Cancel As Integer)
  If VerifUnicite(Me.ActiveControl.Name) = False Then
      MsgBox "Ce Plat est déjà présenté !"
      Cancel = True
      Me.ActiveControl.Undo
  End If
 
End Sub
 
Private Sub cboDessert1_BeforeUpdate(Cancel As Integer)
  If VerifUnicite(Me.ActiveControl.Name) = False Then
      MsgBox "Ce dessert est déjà présenté !"
      Cancel = True
      Me.ActiveControl.Undo
  End If
End Sub
Private Sub cboDessert2_BeforeUpdate(Cancel As Integer)
  If VerifUnicite(Me.ActiveControl.Name) = False Then
      MsgBox "Ce dessert est déjà présenté !"
      Cancel = True
      Me.ActiveControl.Undo
  End If
End Sub
 
 
Private Sub cboSalade1_BeforeUpdate(Cancel As Integer)
  If VerifUnicite(Me.ActiveControl.Name) = False Then
      MsgBox "Cette salade est déjà présentée !"
      Cancel = True
      Me.ActiveControl.Undo
  End If
End Sub
Private Sub cboSalade2_BeforeUpdate(Cancel As Integer)
  If VerifUnicite(Me.ActiveControl.Name) = False Then
      MsgBox "Cette salade est déjà présentée !"
      Cancel = True
      Me.ActiveControl.Undo
  End If
End Sub
Private Sub cboSalade3_BeforeUpdate(Cancel As Integer)
  If VerifUnicite(Me.ActiveControl.Name) = False Then
      MsgBox "Cette salade est déjà présentée !"
      Cancel = True
      Me.ActiveControl.Undo
  End If
End Sub
Private Sub cboSalade4_BeforeUpdate(Cancel As Integer)
  If VerifUnicite(Me.ActiveControl.Name) = False Then
      MsgBox "Cette salade est déjà présentée !"
      Cancel = True
      Me.ActiveControl.Undo
  End If
End Sub

db mise à jour à l'adresse habituelle.

**Hakimol** · 19/02/2018, 09h46

Bonjour,

Je viens de regarder la nouvelle db et ça correspond tout à fait à ce que je souhaitais.

Seul "bug", lorsque je choisis la semaine du 19/02, je ne peux pas indiquer de plat et plat 2 car j'ai une alerte "plat déjà présenté".