Discussion :

[deby23]

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

[deby23]

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

[Jean-Philippe André]

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

Code :

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

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

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

[deby23]

grand merci jpcheck je vais tester ça toute suite !

[Jean-Philippe André]

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

[deby23]

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

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 !