Modificare recordset sottoreport

Question

Salve a tutti,

devo eseguire questa funzione: all'apertura di un report dovrei modificare il recordset di un sottoreport presente nello stesso report...

ho tentato di farlo in questo modo:

rsClie = "SELECT Qtitoli.*, IIf(IsNull([Com]+[Aut]+[ADD]),0,[Com]+[Aut]+[ADD]) AS Altri " & _

"FROM Qtitoli " & _

"WHERE (((Qtitoli.[T6-data7]) Is Null) AND ((Qtitoli.AL) Is Null)) " & strsql2 & ";"

Me.rptArretratiCG_sott1.Report.RecordSource = rsClie

Me.rptArretratiCG_sott1.Requery

Ma mi viene mostrato l'errore: "Riferimento non valido alla proprietà Form/Report nell'espressione"

potete aiutarmi..?

Answer 1

Ciao Matteo,

il problema è che diversamente dalle sottomaschere, non è possibile modificare l'origine record di un sottoreport. L'effetto è l'errore che ricevi.

Esistono tuttavia delle valide alternative:

1. aprire il sottoreport preventivamente in modalità design per modificarne l'origine record
2. utilizzare l'evento Open del sottoreport
3. basare il sottoreport su una query e modificare la query
4. ...

Qui trovi un'interessante discussione che affronta il tuo problema e ne illustra le varie soluzioni:

Change recordsource of subreport in vba

David

Answer 2

Grazie David,

ho risolto il problema modificando la query da codice:

CurrentDb.QueryDefs("YourQuery").SQL = "SELECT TOP 5 ...

grazie ancora per l'aiuto