[Resolvido]Consulta via SQL em duas tabelas

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

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.

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

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