Faire afficher une constante
mohalesage
Messages postés
162
Statut
Membre
-
f894009 Messages postés 17416 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17416 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Faire afficher une constante
- Afficher appdata - Guide
- Afficher taille dossier windows - Guide
- Windows 11 afficher d'autres options - Guide
- Afficher calendrier outlook dans google agenda - Guide
- Afficher mot de passe wifi android - Guide
1 réponse
Bonjour,
Mettez par programme vos valeur de la table limite dans un tableau,
ex: ici ecrit manuellement, faire par programme lecture table
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
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
