MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Critério consulta referencia cruzada

    Compartilhe

    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 02/09/2016

    [Resolvido]Critério consulta referencia cruzada

    Mensagem  ictsp em 29/3/2017, 15:22

    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!!

    [Você precisa estar registrado e conectado para ver esta imagem.]



    [Você precisa estar registrado e conectado para ver esta imagem.]

    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 02/09/2016

    Re: [Resolvido]Critério consulta referencia cruzada

    Mensagem  ictsp em 29/3/2017, 20:42

    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
    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1051
    Registrado : 07/12/2011

    Re: [Resolvido]Critério consulta referencia cruzada

    Mensagem  tauron em 29/3/2017, 20:49

    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.

    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 02/09/2016

    Re: [Resolvido]Critério consulta referencia cruzada

    Mensagem  ictsp em 30/3/2017, 00:37

    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! cheers

      Data/hora atual: 16/11/2018, 04:00