Het volgende wil ik realiseren:
Een lijst met personen verdeelt onder rubrieken, bijvoorbeeld
Piet groep a
Henk groep a
Klaas groep b
Gerrit groep c
Nu kan men de rubrieken zelf aanmaken, deze komen in een aparte Access tabel te staan.
Vervolgens kan men de personen invoeren met de daarbij horende gegevens zoals adres en leeftijd.
Deze komen in de 2e tabel te staan.
Nu wil ik als uitvoer de personen per rubriek gesorteerd hebben.
Dus haal ik met deze query de verschillende rubrieken op
[code] rubrieken = "SELECT DISTINCT rubriek FROM contact"
[code] Set rubriekenobjRs = Conn.Execute (rubrieken)
[code] Do Until rubriekenobjRs.EOF
[code] i = i + 1
[code] Query = "Query" & 1
[code]rubriekenobjRs.MoveNext
[code]Loop
Op deze manier heb ik dus een aantal queries die de personen ophalen per rubriek.
Nu lukt het mij alleen niet op de recordsets te vullen met de gegevens van de personen.
Wellicht kan het op een heel andere manier als ik bedacht hebt.
Een lijst met personen verdeelt onder rubrieken, bijvoorbeeld
Piet groep a
Henk groep a
Klaas groep b
Gerrit groep c
Nu kan men de rubrieken zelf aanmaken, deze komen in een aparte Access tabel te staan.
Vervolgens kan men de personen invoeren met de daarbij horende gegevens zoals adres en leeftijd.
Deze komen in de 2e tabel te staan.
Nu wil ik als uitvoer de personen per rubriek gesorteerd hebben.
Dus haal ik met deze query de verschillende rubrieken op
[code] rubrieken = "SELECT DISTINCT rubriek FROM contact"
[code] Set rubriekenobjRs = Conn.Execute (rubrieken)
[code] Do Until rubriekenobjRs.EOF
[code] i = i + 1
[code] Query = "Query" & 1
[code]rubriekenobjRs.MoveNext
[code]Loop
Op deze manier heb ik dus een aantal queries die de personen ophalen per rubriek.
Nu lukt het mij alleen niet op de recordsets te vullen met de gegevens van de personen.
Wellicht kan het op een heel andere manier als ik bedacht hebt.