Discussion :

[samsam85]

Bonjour Le Forum
Malgré toutes mes recherches sur internet je n'ai pas réussi à trouver une technique pour enregistrer les résultats de sélection d'une ListBox étendue dans une Table .
J'ai une table ( Ingrédient ) avec 6 colonnes ( Nom , Poids , Protides , Lipides , Glucides , Calories ) ; Un formulaire ( Recette ) construit à partir de cette table avec une ListBox ( sélection étendue) des Ingrédients.

une 2ème Table ( Recette ) Identique à la Table (Ingrédient) pour enregistrer ma sélection d'ingrédient faite sur le formulaire ( Recette ) , le remplissage de la Table (Recette) doit se faire de manière à avoir chaque ingrédient sur une nouvelle ligne .

Merci pour votre Aide et Bonne journée
Sam

[tee_grandbois]

bonjour,
ItemsSelected.Count devrait t'aider pour connaitre le nombre d'éléments sélectionnés, après cela dépend si la liste contient plusieurs colonnes ou pas (un impression d'écran ne serait pas de trop dans ce cas).
avec une boucle tu peux insérer dans la table en construisant une requête d'ajout (avec 1 colonne c'est facile):

Code :

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

1
2
3
4
5
6
7
8
Dim itm As variant
Dim stSQL as string
if Maliste.ItemsSelected.Count>0 then
    For Each Itm In Maliste.ItemsSelected
        stSQL = "INSERT INTO RECETTE (champ1) VALUES (""" & Maliste.ItemData(Itm) & """;"
        Currentdb.Execute(stSQL)
    Next
End if

pour les listes avec plusieurs colonnes c'est plus compliqué, il faut faire 2 boucles imbriquées pour récupérer chaque colonne afin de constituer la liste de valeurs à insérer (i est l'indice de la colonne et j celle de la ligne):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
dim stListVal as variant
For j = 0 To Maliste.ListCount - 1
    If Maliste.Selected(j) = True Then
        stListVal = null
        For i = 0 To Maliste.ColumnCount         
            stListVal = stListVal  & IIf(IsNull(stListVal), Null, ",") & "'" & Maliste.Column(i, j)  & "'"
        next i
        stSQL = "INSERT INTO RECETTE (champ1,champ2,champ3, ...) VALUES (" & stListVal & ");"
        Currentdb.Execute(stSQL)
    End If
Next j

[samsam85]

Merci beaucoup de votre aide , je vais essayer comme vous venez de me l'écrire , je vous tiendrai au courant.
Désolé du retard de réponse
Sam

[samsam85]

Bonsoir JB
Je n'arrive pas à vous envoyer la BD en fichier joint , Y a il un autre moyen ?
Merci

[tee_grandbois]

pour les bases Access, il faut joindre un fichier compressé au format ZIP

[samsam85]

Voilà La BD

[tee_grandbois]

j'ai pourtant précisé le format ZIP ... je t'invite à lire cette recommandation du forum (que personne ne lit, visiblement)

Je rappelle que sur Windows il suffit de faire un clic droit sur un fichier, choisir "Envoyer vers" et "Dossier compressé" pour créer un fichier ZIP alors pourquoi s'embêter à télécharger un logiciel de compression ?

[samsam85]

Désolé vous avez raison

Aliments.zip

[ilank]

Bonjour,

Je pense qu'il te manque une table, à moins que tu veuilles faire une copie à l'identique de la table des ingrédients ou que tu ne disposes que d'une seule recette.

[samsam85]

Bonjour Ilank , La table recettes est identique à celle des Ingrédients

[tee_grandbois]

bonjour,
voici la base modifiée :Aliments_1.zip
j'ai fait quelques ajustements au niveau de la liste: la propriété Nbre colonnes, leur largeur ....
Je n'ai pas repris la première colonne (N°Aliment) dans la requête d'ajout de la table Recettes puisqu'il s'agit d'un Numéro Auto: il faut laisser faire Access.
Si il faut absolument récupérer le n° d'origine, il faut changer le type du champ de Numéro auto à Numérique/Entier long dans la table Recettes.
C'est une très mauvaise idée de nommer un champ de table ainsi: Aliments(100g) il faut se limiter aux caractères standards: aA à zZ, 0 à 9, le souligné: _ et c'est tout.
Si on veut un libellé plus parlant il faut utiliser la propriété "Légende" du champ de la table, elle apparaitra en entête de colonne lors de l'affichage des requêtes ou des zones de liste

[samsam85]

UN GRAND MERCI
Je vous souhaite une belle journée

[tee_grandbois]

par contre, je pense qu'il manque un champ pour relier tous ces ingrédients sélectionnés à une même recette ...

[samsam85]

Oui effectivement , vous avez surement la solution

[tee_grandbois]

comme dirait ilank, il manque une table: celle des recettes créées ... mais je ne vais pas créer l'application à ta place, je veux bien donner de l'aide technique mais pas plus, d'autant qu'il doit certainement exister dans les divers forums du site des discussions sur la gestion de recettes

[samsam85]

Il ne s'agit pas d'une application pour créer des recettes de cuisine , c'est pour faire des calculs au niveau des compositions des ingrédients et leur apport calorique . La table Recettes va me servir pour faire mes calculs . il me manque juste un Nom Recette au niveau de la table Recettes ( Nom Recette = Soupe ; Les Ingrédients de la soupe = carotte , courgettte , Oignon ..... )
Comment je peux reproduire le nomRecette = Soupe dans le champs NomRecette de manière à l'avoir pour tous les ingrédients de la Soupe comme dans une relation de 1---- infini

Si vous pouvez m'aider dans cette étape pour le reste je saurai faire

[tee_grandbois]

à mon sens, la table Recettes est à revoir: il faudrait uniquement le nom et un bref descriptif de la recette avec une clé primaire unique au moment de la création.

La table listealiments n'est pas à modifier (ou peut-être le champ Portion, voir plus bas) puisque la composition des aliments ne change pas en théorie (les niveaux calorique, lipidique, protidique etc.. sont définis une fois pour toutes).

Il manque juste une 3ème table contenant la clé primaire unique de la recette, l'identifiant unique de l'ingrédient et peut-être sa quantité ou portion (on n'a pas la même quantité de carottes dans une soupe aux légumes et un flan de carottes par exemple) ...

Mais ce n'est qu'une proposition, à toi de voir si cela colle à ton besoin.

c'est pour faire des calculs au niveau des compositions des ingrédients et leur apport calorique . La table Recettes va me servir pour faire mes calculs

En partant de ça et en l'enrichissant (par exemple en mettant sur papier la méthode de calcul avec ses divers éléments), tu devrais pouvoir construire ton modèle de données.
Une fois cette étape terminée on pourra t'aider plus facilement pour la partie technique

[samsam85]

Bonsoir
Je vais suivre vos conseils ,
Je vous tiendrai au courant

Grand Merci

[samsam85]

Bonjour Tee_grandbois

Je reviens vers vous avec les corrections , comment faire pour modifier votre code ( j'ai fait quelques tentatives mais sans succès )

Merci pour votre aide

[tee_grandbois]

bonsoir,
et maintenant c'est du 7z ...