MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Consulta via SQL em duas tabelas

    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Consulta via SQL em duas tabelas Empty [Resolvido]Consulta via SQL em duas tabelas

    Mensagem  ictsp em 26/1/2019, 16:05

    Prezados colegas!

    Estou tentando criar uma consulta com base no valor escolhido no formulário principal.
    A idéia é que a consulta seja realizada ao clicar duas vezes no campo "nnf" e utilizar o valor do campo como filtro.

    O código que estou utilizando é esse:

    Código:
    Private Sub fncFiltro()

    Dim qry As QueryDef
    Dim strSQl As String
    Set qry = CurrentDb.QueryDefs("DadosFormNFE")
    strSQl = strSQl & " SELECT * from PARTE01NF, * from ProdutosNF FROM PARTE01NF INNER JOIN ProdutosNF ON PARTE01NF.nnf = ProdutosNF.nNF"
    strSQl = strSQl & "  WHERE  PARTE01NF.nnf =" & Forms!Lista!SUBXML!nnf
    strSQl = strSQl & " GROUP BY  PARTE01NF.nnf"
     strSQl = strSQl
    qry.SQL = strSQl
    Set qry = Nothing
    End Sub

    Dá erro de sintaxe na clausula " FROM"

    Desde já, agradeço a ajuda dos colegas imensamente!!
    Anexos
    [Resolvido]Consulta via SQL em duas tabelas AttachmentBD XML.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (826 Kb) Baixado 12 vez(es)
    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 106
    Registrado : 22/08/2012

    [Resolvido]Consulta via SQL em duas tabelas Empty Re: [Resolvido]Consulta via SQL em duas tabelas

    Mensagem  FabioGO em 29/1/2019, 12:42

    No evento de clicar duas vezes do campo, em vez desse código:

    Código:
    Call fncFiltro
    DoCmd.OpenForm "FormNfe", acNormal

    Utilize esse código:

    Código:

    On Error GoTo Err_btnContagemGeral_Click

        Dim stDocName As String
        Dim stLinkCriteria As String

        stDocName = "FormNfe"
        
        stLinkCriteria = "[nnf]=" & "'" & Me![nnf] & "'"
        DoCmd.OpenForm stDocName, , , stLinkCriteria

    Exit_btnContagemGeral_Click:
        Exit Sub

    Err_btnContagemGeral_Click:
        MsgBox Err.Description
        Resume Exit_btnContagemGeral_Click

    Nem precisa da função de filtro para isso.
    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Consulta via SQL em duas tabelas Empty Re: [Resolvido]Consulta via SQL em duas tabelas

    Mensagem  ictsp em 29/1/2019, 13:09

    Prezado FabioGo, muito obrigado por sua ajuda.

    Sou leigo no assunto e tenho aprendido muito com os colegas aqui no site.

    Apliquei seu código no form e funcionou perfeitamente.

    Mais uma vez, muito obrigado!!

    Código:
    Private Sub nNF_DblClick(Cancel As Integer)
    On Error GoTo Err_nNF_DblClick

        Dim stDocName As String
        Dim stLinkCriteria As String

        stDocName = "FormNfe"
        
        stLinkCriteria = "[nnf]=" & "'" & Me![nNF] & "'"
        DoCmd.OpenForm stDocName, , , stLinkCriteria

    Exit_nNF_DblClick:
        Exit Sub

    Err_nNF_DblClick:
        MsgBox Err.Description
        Resume Exit_nNF_DblClick
    End Sub
    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 106
    Registrado : 22/08/2012

    [Resolvido]Consulta via SQL em duas tabelas Empty Re: [Resolvido]Consulta via SQL em duas tabelas

    Mensagem  FabioGO em 29/1/2019, 13:31

    Mais importante que a solução é você ter entendido como foi solucionado.
    Que bom que resolveu.

      Data/hora atual: 19/10/2020, 16:17