Transposition code VBA en SQL

[castours]

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 vba :

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)

[CinePhil]

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 ?

[ddoumeche]

En Access, regardes du coté de IIF()

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

[Yanika_bzh]

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

[ericd69]

salut, yanika a raison:

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

Code vba :

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 vba :

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 vba :

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

ou une autre version procédurale:

Code vba :

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