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 na consulta usando Combo em um form para abrir Relatório

    Compartilhe

    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 11/01/2012

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

    Mensagem  flecha em 15/3/2018, 18:43

    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
    Anexos
    Banco de Dados1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (90 Kb) Baixado 9 vez(es)
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

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

    Mensagem  CassioFabre em 15/3/2018, 19:21

    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.


    .................................................................................
    Só não tem código pra morte!

    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 11/01/2012

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

    Mensagem  flecha em 15/3/2018, 23:09

    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.
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

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

    Mensagem  CassioFabre em 16/3/2018, 17:04

    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.


    .................................................................................
    Só não tem código pra morte!

    flecha
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 247
    Registrado : 11/01/2012

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

    Mensagem  flecha em 17/3/2018, 13:37

    Beleza, agora sim.

    Funcionou.

    Obrigado

      Data/hora atual: 16/11/2018, 10:14