[Resolvido]Critério na consulta usando Combo em um form para abrir Relatório

Estou tomando uma surra e não descubro a falha.
Tenho 3 tabelas, um Formulário, uma consulta e um Relatório.

Estou tentando colocar os critérios na consulta em produto e data, pegando esses dados do Formulário e não estou conseguindo.
Podem me ajudar? segue amostra do BD.
Obrigado

Boa tarde,

Substitua o click do botão Comando4 pelo código abaixo:

Código:

Private Sub Comando4_Click()
On Error GoTo Err_Comando4_Click
    Dim dataInicio, dataFim
   
    dataInicio = Format(Me.dataInicial, "mm/dd/yyyy")
    dataFim = Format(Me.dataFinal, "mm/dd/yyyy")
   
    Dim str As String
   
    str = "SELECT Venda.[Id venda], Venda.Ref, Venda.Quantidade, [Produtos Inserir].Produto, [Venda Identificar].[Data Venda], [Venda Identificar].NomeCliente "
    str = str & "FROM [Venda Identificar] INNER JOIN ([Produtos Inserir] INNER JOIN Venda ON [Produtos Inserir].Ref = Venda.Ref) "
    str = str & "ON [Venda Identificar].[Id Venda] = Venda.[Id venda] "
    str = str & "WHERE [Produtos Inserir].Produto Like " & Me.CombCal.Column(0) & " AND [Venda Identificar].[Data Venda] "
    str = str & "Between #" & dataInicio & "# AND #" & dataFim & "#;"
   
    CurrentDb.QueryDefs("ConsultaSaidaEscolha").SQL = str
    Me.Visible = False
    DoCmd.OpenReport "RelConsultaSaidasGeralData", acViewPreview

Exit_Comando4_Click:
    Exit Sub

Err_Comando4_Click:
    MsgBox Err.Description
    Resume Exit_Comando4_Click
   
End Sub

Você precisa fazer a consistencia dos seus dados, a pesquisa que você montou é exatamente como acima, porém nas suas tabelas os dados não estão todos lançados.

Abraço.

Olá CassioFabre,
Substitui no banco com todos os dados e também não funcionou. Ele abre o relatório sem dados.

Nessa linha da sql:
str = str & "WHERE [Produtos Inserir].Produto Like " & Me.CombCal.Column(0) & " AND [Venda Identificar].[Data Venda] "

Ela pega na CombCal.Column(0) e esta coloca no no critério da minha consulta a "Ref" e não lista nada, Ref 1 = produto Munição Cal. 38.

Eu alterei para column(1) ai deu um erro mas não abriu nada também.

No campo Produto da tabela "Produtos Inserir" nno critério da consulta tem que entrar o nome e não a ref,  é aqui que esta pegando.

Boa tarde,

Eu usei o sql da sua própria consulta. Então você havia montado errado. Substitua a linha que citou pela abaixo que irá funcionar.:

Código:

str = str & "WHERE Venda.Ref Like " & Me.CombCal.Column(0) & " AND [Venda Identificar].[Data Venda] "

Abraço.

Beleza, agora sim.

Funcionou.

Obrigado