Filoweb.it

Aprire una query parametrica da codice VBA.


FB TW G+ 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 G+ 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 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 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