Een select query in access 2000, VBA code

[anoniem]

Weet iemand hoe ik met een select query variabelen kan oproepen uit tabellen. Ik ken de Docmd.runSQL functie, maar dat is alleen voor een action query. Ik wil juist een waarde uit een tabel halen die ik nodig heb in mijn code. Wie kan mij vertellen hoe. Thnx StruiS

[anoniem]

Daar gebruik ik doorgaans DAO voor, moet je eerst naar verwijzen (vb-editor, menu extra-verwijzingen): DAO 3.6 DAO bevat Data Access Objects, als Database en Recordset. Dim dbs As DAO.Database Dim rst As DAO.Recordset Set dbs = CurrentDB set rst = dbs.OpenRecordset("SELECT veld FROM tabel;") De gegevens worden uit de tabel gelezen en in het recordset-object geplaatst. Je kunt ze benaderen via de Fields-collectie: var = rst.Fields("veld") Je krijgt dan de veldwaarde uit het actieve record. Om een voor een alle records uit te lezen loop je door de recordset: Do While Not rst.EOF var = rst.Fields("veld") rst.MoveNext ' naar volg. record gaan Loop 1 waarde uit 1 veld lezen kan wat eenvoudiger met de functie DLookup: var = DLookup("veld", "tabel"[, "ID = 6"])