Compter les éléments d'un split

Bonjour,

J'essaye de travailler sur un champs qui contiendrait une liste un peu à la manière des champs multivalués...

J'ai une table [Produits] qui contient des enregistrements sous la forme:
Produit / Liste (des sous produits utilisés)
"Produit1", "sous_prod2;sous_prod9;sous_prod15"
"Produit2", "sous_prod9,sous_prod22"
"Produit9", "sous_prod15;sous_prod21,sous_prod3,sous_prod1"

Une table [Sous_Produits] sous la forme:
Sous_Produit/ Désignation / Rangement
"sous_prod1","vis de 12", "tirroir2"
"sous_prod2","écrous de 12", "tirroir21"...

Une table [Produits à transférer] qui à la même structure que le table [Produits] et qui me sert de table tampon.

Lorsque je travaille sur un produit (ajout ou suppression de sous produits), les sous produits à partir desquels il est fabriqué sont chargés dans ma table [Produits à transférer] au moyen d'un requette.

Afin de pouvoir appeler chacun des "sous produits" d'un "produit" j'ai recours à un split réalisé dans une requête grace à la fonction découpe définie dans un module global:

Fonction découpe

Code:

---

1 2 3 4

Public Function Decoupe(str As String, separateur As String, INDEX As Long) As String Decoupe = Split(str, separateur)(INDEX) End Function

---

Requette appelant le sous produit(1) d'un produit

Code:

---

1 2 3 4 5 6

MySql = "INSERT INTO [Produits à transferer] (Sous_Produit, Désignation, Rangement)" MySql = MySql + " SELECT decoupe([Produits].[Liste],';',1), [Sous_Produits].Désignation, [Sous_Produits].Rangement" MySql = MySql + " FROM [([Produits] INNER JOIN [Sous_Produits] ON decoupe([Produits].[Liste],';',1)=[Sous_Produits].[Sous_Produit]" MySql = MySql + " WHERE ([Produits].Produit = """ & Produit & """ ) ;" bdd.Execute MySql

---

La fonction découpe utilise un index afin d'extraire sous produit par sous produit mais le problème c'est que je ne vois pas comment connaitre le nombre (i) de "sous produits" d'un produit afin de pouvoir itérer ma requette de 0 à i ...

Je précise que je suis sous access 2003 et que je ne peux donc pas utiliser les champs multivalués...

Alors si vous avez des idées...
Merci d'avance.

split renvoie un array

ubound(split()) renverra ton indice

Merci random pour ta promptitude !

Citation:

---

split renvoie un array

ubound(split()) renverra ton indice

---

:oops: Mais je ne vois pas trop comment utiliser ton ubound...

Par contre j'ai pensé à rajouter un champ [Nbr de sous produits] dans la table [Produits] qui me permet d'obtenir directement l'info...

Ca avance donc mais je continue à chercher .... :aie:

Bonsoir,

un exemple d'itération :

Code:

---

1 2 3 4 5 6 7

Dim decoupe() As String Dim i As Integer   decoupe = Split("A;B;C;D", ";") For i = LBound(decoupe) To UBound(decoupe) MsgBox decoupe(i) Next

---

Il te suffit dans la boucle de générer le code de ta requête et de l'exécuter.

A+

Bonjour et merci LedZeppII

C'est bien là que je n'y arrive pas...

Citation:

---

Il te suffit dans la boucle de générer le code de ta requête et de l'exécuter.

---

Ce qui me pose problème c'est que le champ "A;B;C;D" est sélectionné dans la requête mais la requête doit être lancée autant de fois qu'il y a d'éléments dans le champ...

J'ai donc besoin de l'information contenue dans la requete en "dehors" de la requete car ma requête est basée sur une jointure assurée par la fonction découpe

Code:

---

1 2	decoupe([Produits].[Liste],';',1)=[Sous_Produits].[Sous_Produit]

---

Ici evidemment la jointure est faite sur le 2eme élément de la liste (i=1)

Peut être devrais-je changer d'idée en ne requetant plus i fois avec une jointure mais une seule fois en cherchant dans la table [Sous produits] avec une requête qui utiliserait une chaine "A' or 'B' or 'C' or 'D" et qui serait générée par la fonction découpe...

Est ce que vous avez des idées ? :aie:

ceci se régle avec ce que je nomme une "table index" (pardon pour le néologisme)
une table index est une table contenant des valeurs scalaires 0;1..10000
(évidemment on n'est pas obligé d'aller jusqu'à 10000)

une telle table est trés utile pour une base de données en l'utilisant dans un produit cartésien

l'idée de base est de partir sur

Code:

---

1 2 3 4

SELECT matable.monitem, index.index FROM matable,index WHERE index.index<=[valeur choisie];

---

qui va me renvoyer [valeur choisie] (par exemple 5) exemplaires de monitem

si tu remplaces [valeur choisie] par ubound(split(monitem)) tu obtiendras autant d'item que de séparateurs

reste à remplacer monitem par split(monitem(),index))

si cela semble un peu compliqué vas y pas à pas

Bonjour,

J'ai vu dans ton code que tu connais le Produit.
Puisque tu es en VBA tu peux facilement récupèrer la liste des sous-produits avec un DLookup (cela simplifie la requête car plus besoin de INNER JOIN) et tu répètes la requête INSERT

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim strListe As String Dim strDecoupe() As String Dim i As Integer, MySql As String, bdd As DAO.Database   strListe = DLookup("Liste", "Produits", "Produit='" & Produit & "'") strDecoupe = Split(strListe, ";")   Set bdd = CurrentDb bdd.Execute "DELETE FROM [Produits à transferer]"   For i = LBound(strDecoupe) To UBound(strDecoupe) MySql = "INSERT INTO [Produits à transferer] (Sous_Produit, Désignation, Rangement)" MySql = MySql + " SELECT [Sous_Produits].[Sous_Produit], [Sous_Produits].Désignation, [Sous_Produits].Rangement" MySql = MySql + " FROM [Sous_Produits] " MySql = MySql + " WHERE ([Sous_Produits].[Sous_Produit] = """ & strDecoupe(i) & """ ) ;" bdd.Execute MySql Next

---

La solution de Random est très astucieuse en dehors de VBA, dans une requête pure.

A+

Un grand merci à Random et LedZeppII !

Tout marche très bien, la seule modif à faire était de rajouter des "[]" à certains endroits dans le Dlookup afin que cela marche parfaitement.

Merci à vous
:lahola::lahola::lahola: