Faire afficher une constante

Fermé
mohalesage Messages postés 147 Date d'inscription mercredi 20 février 2013 Statut Membre Dernière intervention 31 décembre 2015 - Modifié par mohalesage le 22/04/2015 à 15:03
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 - 22 avril 2015 à 15:39
Bonjour

Je travaille sur vb6 avec access 2007, utilisant la méthode ado.

sur ma BD j'ai un tableau ( nommé : TableLimites ) de constantes comme suite :



Limite1 Limite2 Taux

10000 20000 0%
20001 35000 5%
35001 45000 10%

sur mon interface , j'ai ComboBox sur lequel s'ffiche une serie
de numéro. et un label ( appelé : lblTaux ); et un autre label
( appelé : lblTotalpoint)

ce que je cherche à faire est d'afficher le taux correspond

c'est à dire une fois que je séléctionne un numéro sur le
combobox, un total de point s'ffiche sur le lblTotalPoint
et le taux correspond à la plage ( Limite1 - Limite2 )
s'affiche sur le lblTaux


Merci d'avance pour votre aide

1 réponse

f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
22 avril 2015 à 15:39
Bonjour,

Mettez par programme vos valeur de la table limite dans un tableau,

ex: ici ecrit manuellement, faire par programme lecture table

Dim T(2, 2, 0)
T(0, 0, 0) = 1000
T(1, 0, 0) = 20000
T(2, 0, 0) = 0

T(0, 1, 0) = 20001
T(1, 1, 0) = 35000
T(2, 1, 0) = 5

T(0, 2, 0) = 35001
T(1, 2, 0) = 45000
T(2, 2, 0) = 10

et a chaque selection d' un numero de serie, comparez dans une boucle de 0 a 2 le total de point avec les limites ecrite dans le tableau
For x = 0 To 2
    If Totalpoint > T(0, x, 0) And Totalpoint < T(1, x, 0) Then
        Taux = T(2, x, 0)
        Exit For
    End If
Next x
0