probleem met SQL in VBA: Select top 1 geeft meerdere waarden

[107mb]

Ik heb een tabel (werkblad in Excel) met onder andere deze gegevens:
Positie,oppervlak,frequentie,bedrag

Bij de frequenties zijn o.a. de volgende waarden mogelijk:
5w 5 keer per week
3w 3 keer per week
2m 2 keer per maand
8j 8 keer per jaar

Bij een totaaltelling moeten alle oppervlakte’s en bedragen opgeteld worden, en de query moet de hoogste frequentie weergeven.

Vanwege de 8 wordt in dit geval 8 keer per jaar als hoogste frequentie geselecteerd, wat natuurlijk fout is. Daarom heb ik een tweede tabel (tabel FREQ) gemaakt, waarin deze frequenties zijn opgenomen, met een doorberekening naar aantal per jaar (FREQ.brtJr52). 5w is dus 210 keer per jaar. 8j is dus 8 keer per jaar.

Vanwege de complexiteit van de totaaltelling maak ik gebruik van SQL in VBA. De data in het werkblad krijgt een namedRange “DATASET”

Ik heb de volgende (vereenvoudigde) query gemaakt:

Visual Basic:

sSelect = "select  a.[pos], space(10) as omschrijving, sum([oppervlak])," & _
"(select top 1 b.[freq1] from DATASET b left join FREQ fr on (fr.[freq]=b.[freq1]) where b.[pos] = a.[pos] order by fr.[brtJr52] desc) as freq," & _
"sum(IIF(isnull(a.[omzetJaar1]),0,a.[omzetJaar1])) " & _
"from DATASET a group by a.[pos]"

De select top 1 zorgt er voor dat de hoogste waarde geretourneerd wordt.

Dan nu het probleem:
Als ik deze query op SQL server database loslaat, dan werkt deze perfect. Bouw ik hem om naar een VBA-SQL query, dan werkt hij ook goed indien de hoogste waarde maar 1 maal voorkomt in de DATASET. Komt bijvoorbeeld 5w meer dan een keer voor dan krijg ik in de debugger de volgende melding:
At most one record can be returned by this subquery.

Ondanks de top 1 krijg ik toch meerdere waarden terug?!?