MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    [Resolvido]Consulta via SQL em duas tabelas

    avatar
    ictsp
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ictsp 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 : 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 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 : Respeito às Regras 100%

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

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

    Mensagem  ictsp 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 : 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 29/1/2019, 13:31

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

      Data/hora atual: 18/9/2021, 23:29