Bonjour , j'ai une base de donnée avec une table journalier, la dedans ce trouve des articles vendus
j'ai ex:
Codebar,prix,quantité,département,groupe,ect.......
dans la vente de la journée il y a plusieur fois la même chose,
donc je vend peu etre 10 X cocacola 50Xpepsi ect......
j'ai fait le code si dessous pour calculer le nombre total d'article.
comment faire pour aller plus vite ??????
évidament je n'ai pas de référence d'article pour le controle puisque on ne sait pas ce qui vas etre vendu.
Merci
nitul = 0
qqaa = 0
Set db = OpenDatabase(App.Path & "\manager.mdb")
Set rs = db.OpenRecordset("journalier")
If rs.RecordCount > 0 Then
Set rd = db.OpenRecordset("journalier")
rs.MoveFirst
Do Until rs.EOF = True
nitul = rs!cod_prod
rd.MoveFirst
Do Until rd.EOF = True
If rd!cod_prod = nitul Then
nitul1 = nitul1 + rd!quantité
End If
rd.MoveNext
Loop
Set rt = db.OpenRecordset("journalier_detaille")
If rt.RecordCount > 0 Then
rt.MoveFirst
Do Until rt.EOF = True
If rt!cod_prod = nitul Then
qqaa = 1
End If
rt.MoveNext
Loop
End If
If qqaa = 0 Then
rt.AddNew
rt!cod_prod = rs!cod_prod
rt!design = rs!design
rt!numero_dep = rs!numero_dep
rt!departement = rs!departement
rt!quantité = nitul1
rt.Update
End If
nitul1 = 0
qqaa = 0
rs.MoveNext
Loop
End If