Utilizzare Query come recordset VBA

Question

Salve, mi è capitato spesso utilizzando Vba con access di utilizzare tabelle come recordset con la seguente sintassi

dim recordset as dao.recordset

set recordset = currentdb.openrecordset("Nome_Tabella")

e vari comandi tra cui recordset.movenext o recordset.fields("nome_del_campo")

avrei la necessità di utilizzare una query come recordset,

ho tentato di fare la medesima cosa con la query:

dim recordset as dao.recordset

set recordset = currentdb.openrecordset("Nome_Query")

Ma mi ha dato errore.. qualcuno conosce la sintassi per effettuare questa operazione anche tramite una query?

Grazie in anticipo per la disponibilità!

Answer 1

Ciao,

esistono varie funzioni fornite direttamente da Access che senza esagerare nell'utilizzo (non sono proprio performanti come tempi di risposta) ti semplificano la vita. 

Come la DSum hai anche la DFirst, DLast e forse la più interessante è la DLookUp.

Ciascuna funzione consente inoltre di applicare una condizione al dominio di interesse, ad esempio nel tuo caso avresti potuto avere:

Forms!MainBoard!optot = Forms!MainBoard!optot + DSum("Totale","QOrdini","TuoCampoDiQuery = 'ValoreFiltro'")

Ciao Mimmo

Answer 2

Ciao Sandro, scusa la mia ignoranza, intendi che alla fine della sub è meglio distruggere la variabile DAO.recordset? Anche per le tabelle?

Answer 3

Si in effetti così funziona

In pratica questa funzione somma tutta la colonna "Totale" da "QOrdini" ?