[VBA] ACCESS: Report basato su query parametrica (impostare parametri da codice)

[daryl74]

Dunque...
Ho un report basato su una query parametrica. Ho bisogno di aprire il report in anteprima senza che la query mi richieda i parametri. Cioè ho bisogno di passarglieli io da codice. Sto usando questo ma non funziona:

Private Sub Anteprima_Click()

Dim Mio_DB As Database, Mia_Qdf As QueryDef, Mio_Rs As Recordset

Set Mio_DB = CurrentDB
Set Mia_Qdf = Mio_DB.QueryDefs("Query_1_Param")

Mia_Qdf.Parameters![Prov] = IIf(IsNull(Msk_Filtro_Prov), "", Msk_Filtro_Prov)
Mia_Qdf.Parameters![Area] = IIf(IsNull(Msk_Filtro_Area), "", Msk_Filtro_Area)
Mia_Qdf.Parameters![Sq] = IIf(IsNull(Msk_Filtro_Sq), "", Msk_Filtro_Sq)
Set Mio_Rs = Mia_Qdf.OpenRecordset

DoCmd.OpenReport "Rpt_STAMPA_5", acViewPreview

'Se utilizzo la riga seguente mi richiede i parametri..
'Reports!Rpt_STAMPA_5.RecordSource = "AAA Stampa 5 principale - Tipo Int (1,2,4)"

'Se utilizzo questa invece mi dice Tipo non corripsondente riferito a Mio_Rs
'Reports!Rpt_STAMPA_5.RecordSource = Mio_Rs

Mio_Rs.Close
Mia_Qdf.Close
Set Mio_DB = Nothing

End Sub

Come posso risolvere la questione?

Grazie a tutti !

DaryL74

[VanessaInfo]

io metterei nel report la query senza parametri..e al momento aprire il report farei il filtro.


VaneX