Discussion :

[romain7534]

Bonjour, et désolé si je ne suis pas sur le bon post
J'ai étudié beaucoup de propositions similaires a mon probleme mais rien trouvé!

en VB j'ai ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If Texte40 = 4 Then
    texte43 = ([PRO_PRICE] * [IMP_QUANTITY]) * (1.196 - 1)
End If
If Texte40 = 4 Then
    Texte45 = 0
End If
 
If Texte40 = 5 Then
    Texte45 = ([PRO_PRICE] * [IMP_QUANTITY]) * (1.055 - 1)
End If
If Texte40 = 5 Then
    texte43 = 0
End If

Le probleme est que ça marche mais uniquement pour le 1er enregistrement
Si quelqu'un pouvait m'aider, j'aimerai appliquer tout ce bloc pour chaque enregistrement.
Merci d'avance

[Pierre Fauconnier]

Bonjour et bienvenue sur nos forums.


Il faudrait préciser où tu utilises ce code, dans quel module et sur quel événement?

De plus, tu gagnerais en lisibilité si
- tu nommais tes contrôles, de façon à voir de quoi tu parles
- tu utilisais un bloc Select Case... Case... End Select

Code :

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

1
2
3
4
5
6
7
8
Select Case Texte40
    Case 4
        texte43 = ([PRO_PRICE] * [IMP_QUANTITY]) * (1.196 - 1)
        Texte45 = 0
    Case 5
        Texte45 = ([PRO_PRICE] * [IMP_QUANTITY]) * (1.055 - 1)
        Texte43 = 0
End Select

[romain7534]

Merci de répondre aussi vite!
Je ne connaissais pas le bloc select case (je suis un grand novice)
J'ai donc renommais mes controles et je suis sur une ouverture de formulaire:
code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
 
Select Case codeTVA
    Case 4
        TVA196 = ([PRO_PRICE] * [IMP_QUANTITY]) * (1.196 - 1)
        TVA55 = 0
    Case 5
        TVA55 = ([PRO_PRICE] * [IMP_QUANTITY]) * (1.055 - 1)
        TVA196 = 0
End Select

End Sub

[Pierre Fauconnier]

Ok. Mais cela ne répond pas à mon attente

Il faudrait préciser où tu utilises ce code, dans quel module et sur quel événement?

Sans explications supplémentaires, nous ne pouvons pas comprendre quand tu déclenches ce code

[romain7534]

Ce code est dans un formulaire nommé: F002SEARCHPRODUCT

dans mon formulaire en mode création
j'ai un controle nommé codeTVA (qui aura pour valeur 4 ou 5)
un controle nommé TVA196 et un autre TVA55
Ce que je veux, c'est avoir le montant TVA en 19,6 ou 5,5 selon le codeTVA

J'ai donc crée un évenement sur l'ouverture de mon formulaire

Mon code fonctionne mais sur le 1er enregistrement et je n'arrive pas a faire de boucle pour parcourir tous les enregistrements de

Code :

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

1
2
3
4
5
6
7
8
Select Case codeTVA
    Case 4
        TVA196 = ([PRO_PRICE] * [IMP_QUANTITY]) * (1.196 - 1)
        TVA55 = 0
    Case 5
        TVA55 = ([PRO_PRICE] * [IMP_QUANTITY]) * (1.055 - 1)
        TVA196 = 0
End Select

[Pierre Fauconnier]

Ok. La technique que tu emploies est correcte dans un formulaire n'affichant qu'un seul enregistrement.

Dans un formulaire en continu, il me semble que la seule solution valable soit de créer le jeu correct de champs dans la requête, car l'événement sur mise à jour du contrôle TVA survient ligne par ligne, et donc tu ne pourras pas réaliser ce que tu souhaites.