pb algo vers Vba et/ou SQL

Bonjour,

Voilà le problème :
j'ai récupéré par une requête les infos suivantes :

- n°article
- empl : emplacement
- type : type d'emplacement
- capacite : capacité de l'emplacement
- vol_occ : volume occupé
- vol_dispo : volume disponible
- tx_occ : taux d'occupation de l'emplacement

L'objectif est de lister les transferts pertinents dans l'entrepot afin d'optimiser le stockage.

Une répresentation du résulat sous forme de "liste transfert" avec un champ emplacement source et un autre emplacement destination pourrait être une représentation adaptée...

Dans cet objectif je pensais à quelque chose comme ça :

SI un article est stocké à plusieurs emplacements de même type, alors je compare les volumes occupés et disponibles dans chaque emplacements où sont stockés cet article.

Si le volume occupé est inférieur au volume disponible alors un transfert est possible.
Sinon je cherche un emplacement disponible de capacité pouvant accueillir le volume total occupé par cet article et le transfert est possible.

ou encore exprimé comme ça :

Si
(n°article <> n°article+1) alors //cet article à un seul empl.;
i := i + 1 ;
//transfert impossible ;

Sinonsi
(type = type + 1) alors
Si
(vol.occ.n°article < vol.dispo.n°article+1) alors
empl := emplacement source ;
empl+1 := emplacement destination;
Afficher; //transfert possible ;
Sinon
(SELECT empl AS emplacement destination FROM list where tx_occ = 0, capacité>SUM(vol_occ);
FinSi;
Finsi;

Persuadée que mon algo à des failles et est un mixe pas très élégant de divers pseudo langage j'aimerais des conseils sur les possiblités de traiter ce problème via Access ?
ps: je ne maitrise pas le VBA, plus SQL mais pas experte !

Merci

si quelqu'un peut m'orienter vers de sources suceptibles de m'aider ?

en ce qui concerne mon problème, par SQL est-ce que vous pensez que c'est jouables ? des if...then ? autrement je pense dans un 1er temps me concentrer sur "si vol_occ<vol dispo" alors transfert possible.. des idées pour traduire ça en SQL ou VBA ?

merci

salut ô deby, :mouarf:
vite fait tu passes par des boucles de test if then else end if

Code:

---

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

Si (n°article <> n°article+1) alors //cet article à un seul empl.; i := i + 1 ; //transfert impossible ;   Sinonsi (type = type + 1) alors Si (vol.occ.n°article < vol.dispo.n°article+1) alors empl := emplacement source ; empl+1 := emplacement destination; Afficher; //transfert possible ; Sinon (SELECT empl AS emplacement destination FROM list where tx_occ = 0, capacité>SUM(vol_occ); FinSi; Finsi;

---

donnerait en VBA a peu près ca :

Code:

---

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

If n°article <> n°article + 1 Then i = i + 1   ElseIf type = type + 1 Then If vol.occ.n°article < vol.dispo.n°article + 1 Then empl = emplacementsource empl+1 = emplacementdestination MsgBox "transfert possible" Else Set RS = CurrentDb.OpenRecordSet("SELECT empl AS emplacement destination FROM list where tx_occ = 0, capacité>SUM(vol_occ);") End If End If

---

grand merci jpcheck je vais tester ça toute suite !

ca ne fonctionnera pas si tu lances le code tel quel hein :aie:
les variables doivent être nommées comme il faut, et tout et tout :oops:

mince j'ai rêvée 1 bonne minute ! :lol:

merci quand même ça me donne une piste, il me reste à bien déclarer mes variables et faire attention sur la syntaxe no ?
bon je ne sais pas si je dois te l'avouer mais c'est mon 1er prog en vba ! :oops:

ne t'en fait pas, ca ne fait pas trop mal ^^