[Resolvido]Critério consulta referencia cruzada

Bom dia amigos! Fiz uma tabela de referencia cruzada, porém, qdo coloco critério nela, não consigo montar o relatório, simplesmente some os campos.

Alguém poderia me ajudar? Desde já, muito obrigado!!

Boa tarde amigos!

Achei um exemplo do Avelino Sampaio e estou tentando adaptá-lo a minha necessidade, porém está dando erro:

código utilizado:

Código:


Private Sub fncMontaFiltroRefCruzada()

Dim qry As QueryDef
Dim strSql As String
Set qry = CurrentDb.QueryDefs("refcruz")
strSql = "TRANSFORM First(DETORC.prel) AS PrimeiroDeprel "
strSql = strSql & "SELECT DETORC.PROD, DETORC.BITOLA, DETORC.COMP, DETORC.POS, DETORC.COTA, DETORC.MED, CADORÇ.Loc FROM CADORÇ INNER JOIN DETORC ON CADORÇ.loc = DETORC.LOC "
strSql = strSql & " WHERE  CADORÇ.loc = '" & Me.frt
strSql = strSql & " GROUP BY CADORÇ.Loc, DETORC.PROD, DETORC.BITOLA, DETORC.COMP, DETORC.POS, DETORC.COTA, DETORC.MED, CADORÇ.Loc"

strSql = strSql & " PIVOT  DETORC.TIPO;"
qry.sql = strSql
Set qry = Nothing


End Sub


erro no botão que chama a consulta:

Private Sub rel1_Click()
Call fncMontaFiltroRefCruzada
DoCmd.OpenQuery "refcruz", acViewNormal
End Sub

amigo assim em uma olhadinha pelas imagens notei que sua tabela/consulta possui o mesmo nome do relatorio, tente mudar um deles para um teste.

Boa noite! tauron, primeiramente muito obrigado por sua ajuda. Não tenho um conhecimento muito profundo de access e muitas dúvidas esclareço aqui no fórum com os amigos.

Depois de muita luta, resolvi o problema da seguinte forma:

Retirei os critérios da consulta, deixando apenas no total do campo loc como " ONDE"

no código do mestre Avelino, alterei a linha destacada:

Código:


Private Sub fncMontaFiltroRefCruzada()

Dim qry As QueryDef
Dim strSql As String
Set qry = CurrentDb.QueryDefs("refcruz")
strSql = "TRANSFORM First(DETORC.prel) AS PrimeiroDeprel "
strSql = strSql & "SELECT DETORC.PROD, DETORC.BITOLA, DETORC.COMP, DETORC.POS, DETORC.COTA, DETORC.MED, CADORÇ.Loc FROM CADORÇ INNER JOIN DETORC ON CADORÇ.loc = DETORC.LOC "
[b][u]strSql = strSql & " WHERE  CADORÇ.loc =" & Me!frt [/u][/b]' é o campo no form onde armazeno valor "loc"
strSql = strSql & " GROUP BY CADORÇ.Loc, DETORC.PROD, DETORC.BITOLA, DETORC.COMP, DETORC.POS, DETORC.COTA, DETORC.MED, CADORÇ.Loc"

strSql = strSql & " PIVOT  DETORC.TIPO;"
qry.sql = strSql
Set qry = Nothing
End Sub


no botão que abre a consulta, ficou dessa forma:
Private Sub rel1_Click()
Call fncMontaFiltroRefCruzada
DoCmd.OpenQuery "refcruz", acViewNormal
End Sub


Muito obrigado a todos!!Valeu!