Code pour calcul en boucle

Bonjour,

j'ai un petit soucis concernant la redaction d'un code pour une boucle de calcul...

J'ai une table avec :

Champ1: Items
Champ2: Sous-Items
Champ3: Cout du sous-item

Chaque sous-item peut etre item et avoir donc lui meme des sous-items.
Si le sous-item n'a pas de parent, c'est le produit final, je rentre le meme nom dans le champ 1 et 2.

En gros il me faut le cout d'un item prenant en compte le coup de ses sous-items, des sous-items des sous-items enfin etc... et par requete, c'est trop difficile, j'en revient donc au vba et jsui pas tres bon...

[Cout Item i] = [Cout item i] + [Cout des sous-items de l'item i]

Si qqn pouvait me donner un bout de code...
Merci d'avance...

Bonsoir,

je suis parti sur la base d'un exemple de table comme celle-ci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Item SousItem Cout 1 1 10 2 2 20 3 3 30 4 4 40 11 1 0 11 2 0 12 3 12 101 11 0 101 12 0 102 12 0,1 102 4 0,2

---

pour créer cette fonction

Code:

---

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

Function CoutItem(Itm As Long) As Double Dim Cout As Double, strTable As String Dim db As DAO.Database, rs As DAO.Recordset   strTable = "tblExemple" Set db = CurrentDb Set rs = db.OpenRecordset("SELECT * FROM [" & strTable & "] WHERE Item=" & Itm, dbOpenSnapshot)   Do While Not rs.EOF Cout = Cout + rs("Cout") If rs("SousItem") <> Itm Then Cout = Cout + CoutItem(rs("SousItem")) rs.MoveNext Loop rs.Close Set db = Nothing CoutItem = Cout End Function

---

Par exemple l'item 101 est composé de l'item 11 (lui même composé de 1 et 2) et de l'item 12 ayant pour sous-item l'item 3.

Je ne sais si ça correspond à ta situation mais le code te montre le principe d'utilisation d'une fonction récursive.

A+

Tout d'abord merci... J'ai examine ca ce matin. J'ai juste un probleme avec le recordset, l'erreur 3464 avec datatypa mismatch...
J'ai bien DAO.Library.

Voici le code avec ses variables... Je veux le cout de l'item 1.

Private Sub Form_Load()
Call CoutItem("1")
End Sub

Function CoutItem(Itm As Long) As Double
Dim Cout As Double, strTable As String
Dim db As DAO.Database, rs As DAO.Recordset

strTable = "Couts"
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM [" & strTable & "] WHERE Item=" & Itm, dbOpenSnapshot)
Do While Not rs.EOF
Cout = Cout + rs("Cout")
If rs("Sous Item") <> Itm Then Cout = Cout + CoutItem(rs("Sous Item"))
rs.MoveNext
Loop
rs.Close
Set db = Nothing
CoutItem = Cout
End Function

Merci de ton aide...

Re...

en faite c'etait un probleme de variable Text/Number... car les items pourront aussi etre en text...

Merci pour ton aide...

Jai reponse a mon probleme et ceci en tres peu de temps... Rien de mieux que le forum...

Bonne journee.