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

    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Critério consulta referencia cruzada Empty [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!!

    [Resolvido]Critério consulta referencia cruzada Op111



    [Resolvido]Critério consulta referencia cruzada Op210
    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Critério consulta referencia cruzada Empty 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
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

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

    [Resolvido]Critério consulta referencia cruzada Empty 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.
    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Critério consulta referencia cruzada Empty 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: 19/4/2019, 03:45