[AC-2007] Requête sélection et affectation automatique

[Stoo69]

Bonjour,

J'ai une liste de produits qui peuvent se trouver à plusieurs emplacements, A, B ou C.
Quand un produit est utilisé souvent, ce que l'on fait c'est que l'on va masquer et FERMER les emplacements A et B par exemple et ne laisser que C OUVERT : ainsi, on dit que le produit est triple, l'adresse de prélèvement sera C mais le produit sera présent dans A, B et C à la fois pour s'assurer qu'il y ait toujours des produits de dispo quand ils sont populaires.

A partir d'une requête, je peux obtenir la liste des emplacements masqués, exemple :

-Produit 1 : A/B
-Produit 2 : B/C
...

L'objectif : c'est de créer une requête qui permettrait à partir de la liste ci-dessus d'affecter automatiquement le statut OUVERT ou FERMER en fonction des données.

En reprenant l'exemple ci-dessus, voici la démarche :

-Produit 1 : A/B ==> A et B fermés / C ouvert
-Produit 2 : B/C ==> B et C fermés / A ouvert
...

Comment procéder ?

Merci d'avance

[ClaudeLELOUP]

Bonjour,

J’essayerais volontiers de t’aider si je comprenais le problème.

Peux-tu afficher ta table avec quelques données concrètes et un exemple de ce que tu veux.

[francishop]

Bonsoir,

Il est possible de commencer par le statut ouvert qui correspond au max. Dans un module :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function fMax(ParamArray abc() As Variant)
    Dim lgDonnees As Long
    Dim varOuvert
 
    For lgDonnees = 0 To UBound(abc())
        If IsEmpty(varOuvert) Or IsNull(varOuvert) Or IsMissing(varOuvert) Then
            varOuvert = abc(lgDonnees)
        End If
        If IsMissing(abc(lgDonnees)) = False _
            And IsNull(abc(lgDonnees)) = False _
            And IsNumeric(abc(lgDonnees)) Then
            If abc(lgDonnees) > varOuvert Then varOuvert = abc(lgDonnees)
        End If
    Next lgDonnees
 
    fMax = varOuvert
 
End Function

Ce qui permet un bon début pour travailler dans une requête genre :

Code :

1
2
3
SELECT A, B, C, 
fMax([A],[B],[C]) AS Ouvert
FROM Tatable

Cordialement.