Transposition code VBA en SQL

Bonjour,
Je voudrais transposer ces conditions VBA ci-dessous dans une requête SQL access 2003
Les champs suivants sont utilisés: CoéfCharge, QuotePart,NbMoiset Franchise.
Le champ CoéfCharge est le champ qui doit recevoir le résultat.
Merci de votre aide


La requête a modifier

Code:

---

1 2

SELECT T_Facturation.CoéfCharge, T_Facturation.Franchise, T_Facturation.NbMois, T_Facturation.IdChif, T_Facturation.N°Fam, T_Facturation.Code, T_Facturation.[Dégradations imputables], T_Facturation.PrixUni, T_Facturation.Quantité, T_Facturation.Unité, T_Facturation.PctMens, T_Facturation.TVA, T_Facturation.Vetuste, T_Facturation.QuotePart, Nz([Quantité]*[PrixUni]) AS [Prix HT], Nz([MontantHt]*(1+[TVA])) AS [Prix TTC], T_Facturation.Observations, T_Facturation.MontantHt FROM T_Facturation

---

Le code VBA

Code:

---

1 2 3 4 5 6 7

If NbMois > Vetuste Then CoéfCharge = QuotePart End If If NbMois < Franchise Then CoéfCharge = 100 End If CoéfCharge = 100 - ((NbMois - Franchise) * PctMens)

---

Citation:

---

Envoyé par castours

Je voudrais transposer ces conditions VBA ci-dessous dans une requête SQL access 2003

---

C'est le forum MySQL ici ! Erreur de forum ou erreur dans ton message ?

En Access, regardes du coté de IIF()

et en Mysql, du coté de IF() ou mieux du CASE qui lui est plus portable

Votre code

Code:

---

1 2 3 4 5 6 7

If NbMois > Vetuste Then CoéfCharge = QuotePart End If If NbMois < Franchise Then CoéfCharge = 100 End If CoéfCharge = 100 - ((NbMois - Franchise) * PctMens)

---

me parait suspect ...
En effet dans tous les cas, vous vous trouvez avec

Code:

---

CoéfCharge = 100 - ((NbMois - Franchise) * PctMens)

---

Ce qui rend vos 2 blocs if inutiles et donc code mort ...

Bon courage

salut, yanika a raison:

tu exécutes 2 if mais de manière systématique tu applique ta formule, le bon code serait:

Code:

---

1 2 3 4 5 6 7 8 9

IF NbMois > Vetuste Then CoéfCharge = QuotePart ELSE IF NbMois < Franchise Then CoéfCharge = 100 else CoéfCharge = 100 - (NbMois - Franchise) * PctMens End IF End IF

---

ce qui donnerait en sql procédural:

Code:

---

1 2 3 4 5 6 7 8 9

IF NbMois > Vetuste Then set CoéfCharge = QuotePart ELSE IF NbMois < Franchise Then set CoéfCharge = 100 else set CoéfCharge = 100 - (NbMois - Franchise) * PctMens End IF End IF

---

ou en sql pour un select:

Code:

---

IF(NbMois > Vetuste, QuotePart, IF(NbMois < Franchise, 100, 100 - (NbMois - Franchise) * PctMens))

---

ou une autre version procédurale:

Code:

---

set CoéfCharge = IF(NbMois > Vetuste, QuotePart, IF(NbMois < Franchise, 100, 100 - (NbMois - Franchise) * PctMens))

---