Report dinamico con due quert a campi incrociati parametriche

lunedì 23 luglio 2012 - 10.23

thebusterazz Profilo | Newbie

Ciao raga,
vorrei sapere se è possibile creare un report dinamico su cui confluiscano i dati di 2 QUERY a campi incrociati parametrici. il codice che ho pensato sarebbe questo

Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize 'prime informazioni Me.RecordSource = "Settimanaoperaistraordinario" Dim asd As DAO.QueryDef Dim cc As DAO.Field Dim bb As DAO.Recordset Dim gigi As Integer Set asd = CurrentDb().QueryDefs("settimanaoperaistraordinario") asd.Parameters![Maschere!Gestionepersonale!testo7] = Forms!gestionepersonale!Testo7 asd.Parameters![Maschere!Gestionepersonale!testo9] = Forms!gestionepersonale!Testo9 Set bb = asd.OpenRecordset gigi = 80 For Each cc In bb.Fields Me("Etichetta" & Trim(gigi)).Caption = cc.Name Me("Etichetta" & Trim(gigi)).Visible = True Me("testo" & Trim(gigi)).ControlSource = cc.Name Me("testo" & Trim(gigi)).Visible = True gigi = gigi + 1 Next Set asd = Nothing Set cc = Nothing Set bb = Nothing 'seconda informazione Me.RecordSource = "Settimanaoperai" Dim qdf As DAO.QueryDef Dim fld As DAO.Field Dim rst As DAO.Recordset Dim Conta As Integer Set qdf = CurrentDb().QueryDefs("settimanaoperai") qdf.Parameters![Maschere!Gestionepersonale!testo7] = Forms!gestionepersonale!Testo7 qdf.Parameters![Maschere!Gestionepersonale!testo9] = Forms!gestionepersonale!Testo9 Set rst = qdf.OpenRecordset Conta = 1 For Each fld In rst.Fields Me("Etichetta" & Trim(Conta)).Caption = fld.Name Me("Etichetta" & Trim(Conta)).Visible = True Me("Controllo" & Trim(Conta)).ControlSource = fld.Name Me("Controllo" & Trim(Conta)).Visible = True Conta = Conta + 1 Next Set rst = Nothing Set qdf = Nothing Set fld = Nothing End Sub

tuttavia nel report il risultato finale è solamente l'inserimento a doppio dei dati relativi all'ultima query (settimanaoperai)... è possibile realizzare ciò che voglio io?
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5