Expressie maken met een totaalveld

[harolda1980]

In de volgende foto krijg ik keurig een juiste query met de totaal afname per product. En die totaal wil ik door de prijs laten vermenigvuldigen. Alleen hoe zit ik dit in een expressie?

 

[harolda1980]

SELECT tblFabrikant.fabID, tblMerk.Merknaam,  tblArtikel.Artikelomschrijving, Sum(tblAfname.Afnamecolli) AS  SomVanAfnamecolli, tblPrijs.Prijsstatus, tblPrijs.Prijs,  Sum([Afnamecolli]*[Prijs]) AS Expr1
FROM (((tblFabrikant INNER JOIN tblMerk ON tblFabrikant.fabID =  tblMerk.Merkfabid) INNER JOIN tblArtikel ON tblMerk.MerkID =  tblArtikel.Artikelmerkid) INNER JOIN tblAfname ON tblArtikel.ArtikelID =  tblAfname.ArtikelafnameID) INNER JOIN tblPrijs ON tblArtikel.ArtikelID =  tblPrijs.ArtikelID
GROUP BY tblFabrikant.fabID, tblMerk.Merknaam,  tblArtikel.Artikelomschrijving, tblPrijs.Prijsstatus, tblPrijs.Prijs
HAVING (((tblFabrikant.fabID)=869036) AND  ((tblPrijs.Prijsstatus)="actief"))
ORDER BY tblMerk.Merknaam;

Dit is mijn oplossing uiteindelijk. Nu kopieer ik deze in mijn VBA code en kleurt hij rood. In acces krijg ik precies de data zoals gevraagd keurig berekend.

Kan iemand mij vertellen wat ik verkeerd gedaan heb?

 

[OctaFish]

Hoe gebruik je de code? Je moet hem, als hij in één keer gebruikt wordt in een opdracht, tussen dubbele quootjes staan. Of je wijst hem toe aan een variabele, en dan geldt hetzelfde:

strSQL="SELECT tblFabrikant.fabID, tblMerk.Merknaam ...... ORDER BY tblMerk.Merknaam"

 

[harolda1980]

Klopt daar tussen heb ik hem staan maar dan nog kleurt hij rood!