Discussion :

[KGUTBM]

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...

[LedZeppII]

Bonsoir,

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

Code :

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

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 vb :

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
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+

[KGUTBM]

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...

[KGUTBM]

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.