Ik wil de voorwaarden voor de som in de criteria meenemen maar dit lukt niet. Ik ben reeds een eindje op weg - denk ik toch - maar de query in de criteria is leeg en wordt pas bewaard bij het afsluiten van deze procedure.
De voorwaarden om de som te berekenen wordt bekomen als resultaat uit een relatie tussen verschillende tabellen. Ik doe dit nu als volgt.

Code:
sqlTotaalSom = "SELECT tblWerkgroepCGS.WGAfdelingDivisie, tblProducten.*, tblAandachtspunten.* " & _
"FROM tblWerkgroepCGS INNER JOIN (tblProducten LEFT JOIN tblAandachtspunten ON tblProducten.ProductenID = tblAandachtspunten.ProductenID) " & _
"ON tblWerkgroepCGS.WerkgroepCGSID = tblProducten.WerkgroepCGSID " & _
"WHERE (tblProducten.PKalenderjaar = " & TempVars.Item("PubKalenderjaar") & ") AND (tblProducten." & Me.Parent.txtWGAfdelingDivisiePD & " = True) " & _
"AND (tblProducten.WerkgroepCGSID <> " & Me.Parent.txtWerkgroepCGSID & ") OR ((tblAandachtspunten." & Replace(Me.Parent.txtWGAfdelingDivisiePD, "P", "A", 1, 1) & " > 0) " & _
"AND (tblWerkgroepCGS.WGAfdelingDivisie <> '" & Mid(Me.Parent.txtWGAfdelingDivisiePD, 2) & "'));"
CurrentDb.CreateQueryDef SomQuery, sqlTotaalSom
TotaalVoettekst = DSum(Replace(Me.Parent.txtWGAfdelingDivisiePD, "P", "A", 1, 1), "sqlTotaalSom")