Filoweb.it

Aprire una query parametrica da codice VBA.


FB TW whatsapp RSS FEED News letter
ACCESS
Aprire una query parametrica da codice VBA.


Ipotizziamo di avere una query parametrica dal nome qryCompleanni; i parametri si chiamano [Mese:] e [Sesso:]

Allora il codice necessario per passare i parametri alla query e creare un recordset basato sul risultato della query è:



Dim dbs As DAO.Database

Dim qdf As DAO.QueryDef

Dim rst as DAO.Recordset

Set dbs = CurrentDB

Set qdf = dbs.QueryDefs(" qryCompleanni" )

qdf.Parameters![Mese:] = " Marzo"

qdf.Parameters![Sesso:] = " F"

Set rst = qdf.OpenRecordset

' ...

rst.close

qdf.close

Set dbs = nothing



Se poi i parametri sono contenuti in una maschera chiamata frmParametri in due controlli chiamati rispettivamente CercaMese e CercaSesso:



Dim dbs As DAO.Database

Dim qdf As DAO.QueryDef

Dim rst as DAO.Recordset

Set dbs = CurrentDB

Set qdf = dbs.QueryDefs(" qryCompleanni" )

qdf.Parameters![Forms!frmParametri!CercaMese] = Forms!frmParametri!CercaMese

qdf.Parameters![Forms!frmParametri!cercaSesso] = Forms!frmParametri!CercaSesso

Set rst = qdf.OpenRecordset

' ...

rst.close

qdf.close

Set dbs = nothing



NB

Il codice VBA di cui sopra fa riferimento alle librerie Microsoft DAO quindi, se si usa una versione di Access successiva ad Access 97, occorre aggiungere tale libreria ai riferimenti del database.
FB TW whatsapp RSS FEED News letter

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito filoweb.it sono di proprietà di Filippo Brunelli salvo diversamente indicato.
L'uso delle immagini e del testo è gratuito per uso personale ed è subbordinato alla citazione della fonte.
Brunelli Filippo declina ogni responsabilità per l'uso che viene fatto delle informazioni presenti nel sito filoweb.it.
FILOWEB.it Piccolo quaderno degli appunti. Argomento: ACCESS, Titolo:Aprire una query parametrica da codice VBA.. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it