De hele sub is denk ik wat veel, omdat er nog veel meer gebeurd. Maar hieronder in ieder geval het stuk waar het om gaat. Ik heb beide oplossingen gebeurd, maar deze geven beide hetzelfde resultaat.
Wat ik wil is een bedrag ophalen en tonen (dat werkt), maar dan ook nog de bedragen optellen per commissielid.
' gegevens van deze vergadering ophalen
SQL = "SELECT TabelCommissieLid.Id, KLLeden.Naam, TabelCommissieLid.Functie FROM TabelCommissieLid LEFT JOIN "
SQL = SQL & "KLLeden ON TabelCommissieLid.LidId = KLLeden.Id WHERE TabelCommissieLid.VergaderingId = "
SQL = SQL & intid & " ORDER BY TabelCommissieLid.Functie DESC"
Set rs = CurrentDb.OpenRecordset(SQL)
rs.MoveLast
aantal = rs.RecordCount
rs.MoveFirst
For i = 0 To aantal - 1
' naam in tabel plaatsen
WordTable.Cell(cel, 1).Range.Text = rs("Naam")
WordTable.Cell(cel, 2).Range.Text = "€"
Dim RsF As Recordset
' bedrag ophalen
If rs("Functie") = "v" Then
SQL = "SELECT Bedrag FROM KLBedragen WHERE Omschrijving = 'Voorzitter'"
Set RsF = CurrentDb.OpenRecordset(SQL)
WordTable.Cell(cel, 3).Range.Text = RsF("Bedrag")
WordTable.Cell(cel, 3).Range.Paragraphs.Alignment = 2
'"bedrag" & Rs("Naam") = RsF("Bedrag")
'"bedrag" & Rst.fields("Naam") = RstF("Bedrag")
RsF.close
Set RsF = Nothing
Else
SQL = "SELECT Bedrag FROM KLBedragen WHERE Omschrijving = 'Lid'"
Set RsF = CurrentDb.OpenRecordset(SQL)
WordTable.Cell(cel, 3).Range.Text = RsF("Bedrag")
WordTable.Cell(cel, 3).Range.Paragraphs.Alignment = 2
' "bedrag" & Rs("Naam") = RsF("Bedrag")
' "bedrag" & Rst.fields("Naam") = RstF("Bedrag")
RsF.close
Set RsF = Nothing
End If
cel = cel + 1
rs.MoveNext
Next i
rs.close
Set rs = Nothing
' naar volgend record
Rst.MoveNext
Next
Rst.close
Set Rst = Nothing