Discussion :

[paselo]

MErci !

Voilà ça fonctionne très bien avec ceci :

Code :

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

=RechDom("[SommeDeSommepayé]";"R_Calcul_somme_payé_par clients_-365";"N°_Client =" & [N°_Client])

Est-il possible de faire une condition if avec ce genre de code?

Code :

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

If me.[chiffre_affaire].value > "200" then Me.[Rabais]=RechDom("[Rabais_1]";"T_Rabais";"N°_Club =" & [N°_Club])

En fait j'aimerais que si le chiffre d'affaire est plus grand que 200 , le champ "rabais" prenne la valeur "rabais_1" de T_Rabais et que ça prenne par rapport à la ligne N°club
et si > 400 , rabais_2, > 600 then rabais_3 etc

En fait la même chose que

Code :

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

=RechDom("[SommeDeSommepayé]";"R_Calcul_somme_payé_par clients_-365";"N°_Client =" & [N°_Client])

Mais avec en plus une condition If on fonction de la valeur d'un champ du formulaire !

Pourriez-vous m'aiguiller ? Faut-il faire ça en VBA ou c'est possible d'en une source contrôle ?

MErci

[paselo]

J'ai bricolé...

J'utilise ces code pour récupérer mes 3 valeurs dans 3 champs différents de mon formulaire. Ces champs sont uniquement là comme champ "transitoire" .

Code :

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

=RechDom("[Rabais_progressif_1]";"T_Club";"Nom_Club ='" & [Nom_Club] & "'")

Et ensuite avec un code VBA sur après mise à jour de la liste déroulante

Code :

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

1
2
3
If Me.Chiffre_affaire.Value > "200" Then Me.Rabais = Me.Progressif_1 & "%"
If Me.Chiffre_affaire.Value > "400" Then Me.Rabais = Me.Progressif_2 & "%"
If Me.Chiffre_affaire.Value > "600" Then Me.Rabais = Me.Progressif_3 & "%"

ça marche mais je me demande si il n'est pas possible d'éviter les champs transitoire et de finalement regrouper le tour dans la formule =rechdom etc

Merci

[paselo]

comme souvent ça marche mais pas complétement.. Sur le PC principal, pas de soucis, par contre sur le deuxième pc en runtime avec les tables liés, il ne doit pas aimer mon code vba car il plante... donc faudrait vraiment trouver une solution avec =rechdom..

En espérant trouver de l'aide...

Merci

[paselo]

Personne n'a une idée?

Merci