[Resolvido]Carregar uma consulta de referencia cruzada em recordset

Tenho a seguinte consulta de referencia cruzada:

PARAMETERS [Formulários]![frmImpressaoNotaMuralAloj]![DataInicio] DateTime, [Formulários]![frmImpressaoNotaMuralAloj]![DataFinal] DateTime;
TRANSFORM Avg(qryNotaMuralAloj.Média) AS MédiaDeMédia
SELECT qryNotaMuralAloj.Alojamento, Avg(qryNotaMuralAloj.Média) AS ValorMedio
FROM qryNotaMuralAloj
WHERE (((qryNotaMuralAloj.dataAvaliação) Between [Formulários]![frmImpressaoNotaMuralAloj]![DataInicio] And [Formulários]![frmImpressaoNotaMuralAloj]![DataFinal]))
GROUP BY qryNotaMuralAloj.Alojamento, qryNotaMuralAloj.dataAvaliação
PIVOT Format$([dataAvaliação],"dd/mm",0,0);


Funciona perfeitamente, porém ao carregar em um recordser dá erro: Parâmetros insuficientes eram esperados 2...

O que fazer amigos?

O que pretendo é contar quantos campos a consulta tem.. Pode ter 1 ou mais de 1 dependendo do critério de datas..

Obrigado pela ajuda.

Boas Mestre.. Testei com a consulta Fecha e em seguida aberta..
A mesma é filtrada por datas..

Exibiu a contagem 0

Cumprimentos.

Olá Hary,
Esse erro é usual quando algum nome de campo não está certo.
Tenta
currentdb.openrecordset("TRANSFORM Avg(qryNotaMuralAloj.Média) AS MédiaDeMédia
SELECT qryNotaMuralAloj.Alojamento, Avg(qryNotaMuralAloj.Média) AS ValorMedio
FROM qryNotaMuralAloj
WHERE qryNotaMuralAloj.dataAvaliação Between #" & [Formulários]![frmImpressaoNotaMuralAloj]![DataInicio] & "# And #" & [Formulários]![frmImpressaoNotaMuralAloj]![DataFinal] &"# GROUP BY qryNotaMuralAloj.Alojamento, qryNotaMuralAloj.dataAvaliação
PIVOT Format$([dataAvaliação],'dd/mm',0,0);")
Abraços,

Perfeito Mestre Alexandre!

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("TRANSFORM Avg(qryNotaMuralAloj.Média) AS MédiaDeMédia SELECT qryNotaMuralAloj.Alojamento, Avg(qryNotaMuralAloj.Média) AS ValorMedio" _
                               & " FROM qryNotaMuralAloj WHERE qryNotaMuralAloj.dataAvaliação Between #" & Me.DataInicial & "#  And #" & Me.DataFinal & "# GROUP BY qryNotaMuralAloj.Alojamento," _
                               & " qryNotaMuralAloj.dataAvaliação PIVOT Format$([dataAvaliação],'dd/mm',0,0);")
MsgBox rs.Fields.Count

Boas Mestre Avelino, irei aguardar o outro exemplo...
O Tópico que eu necessitava disto era na tentativa de resolver o tópico do Colega João Ricardo:

http://maximoaccess.forumeiros.com/t17826-carregar-uma-consulta-de-referencia-cruzada-em-recordset

No entanto consegui adaptar o Exemplo do Mestre João Paulo para ele..
No mesmo tópico o Avelino sugeriu uma outra forma de fazer.. baseado em programação diretamente no relatório, creio que é uma ótima solução vindo de sua pessoa. Irei estudar o exemplo sugerido por ele.


Este e o tópico do colega João Ricardo foi e está sendo uma ótima oportunidade de aprendizado.

Obrigado Mestres!

Que bacana Avelino, fiquei feliz em saber que eu estava seguindo a mesma linha de raciocínio quando comecei a ajudar o colega, veja o que eu havia pensando antes de você oferecer sua grata ajuda:

O que eu havia pensado?

Carregar a consulta de referencia cruzada em um recordset, contar quantos campos tem..
e ao abrir o formulário carregar o controlSource dos objetos com os respectivos campos da consulta... algo assim:



Dim StrSQL As String
Dim Rs As DAO.Recordset

StrSQL = "PARAMETERS Me.DataIni DateTime, Me.dataFin DateTime;" _
& " TRANSFORM Avg(qryNotaMuralAloj.Média) AS MédiaDeMédia SELECT qryNotaMuralAloj.Alojamento, Avg(qryNotaMuralAloj.Média) AS ValorMedio" _
& " FROM qryNotaMuralAloj WHERE (((qryNotaMuralAloj.dataAvaliação) Between Me.DataIni" _
& " And Me.dataFin))GROUP BY qryNotaMuralAloj.Alojamento, qryNotaMuralAloj.dataAvaliação" _
& " PIVOT Format$([dataAvaliação],'dd/mm',0,0);"

Set Rs = CurrentDb.OpenRecordset(StrSQL)
CampCount = Rs.Fields.Count

If CampCount = 3 Then
Me.lbData1.Caption = Rs(2).Name
Me.txtData1.ControlSource = "= " & Rs(2).Name & ""
ElseIf CampCount = 4 Then
Me.lbData1.Caption = Rs(2).Name
Me.txtData1.ControlSource = "= " & Rs(2).Name & ""
Me.lbData2.Caption = Rs(3).Name
Me.txtData1.ControlSource = "= " & Rs(3).Name & ""
ElseIf CampCount = 5 Then
Me.lbData1.Caption = Rs(2).Name
Me.txtData1.ControlSource = "= " & Rs(2).Name & ""
Me.lbData2.Caption = Rs(3).Name
Me.txtData2.ControlSource = "= " & Rs(3).Name & ""
Me.lbData3.Caption = Rs(4).Name
Me.txtData3.ControlSource = "= " & Rs(4).Name & ""
End If


Justamente carregar o controlSource do objeto

Abraços!

Me dei por satisfeito com vossas ajudas Avelino e Alexandre Neves!

Obrigado.