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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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)