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]retornar menor preço

    Compartilhe

    Raigley
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 09/07/2016

    [Resolvido]retornar menor preço

    Mensagem  Raigley em 19/5/2017, 20:35

    boa tarde!

    estou com um problema novamente.

    tenho uma tabela de produtos alimentada por um formulário.
    na tabela tenho o campo codProduto, Produto, Fornecedor, Fabricante e PreçoUnit
    pois bem, tenho 3 produtos iguais porém com códigos diferentes, pois cada um pertence a um(1) fornecedor.
    preciso ao clicar no listbox me retorne o Preço Unitário de cada fornecedor com o mesmo produto e em seguida retornar o fornecedor com o
    menor preço.
    è possível?

    Desde já agradeço!
    Anexos
    ApresentacaoELT.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (369 Kb) Baixado 12 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5589
    Registrado : 15/03/2013

    Re: [Resolvido]retornar menor preço

    Mensagem  ahteixeira em 21/5/2017, 11:01

    Olá Raigley,

    Crie uma consulta, edite no modo SQL ,cole a instrução abaixo e teste:
    Código:
    SELECT Produtos.Produto, First(Produtos.Fabricante) AS PrimeiroDeFabricante, First(Produtos.Fornecedor) AS PrimeiroDeFornecedor, Min(Produtos.PrecoUnit) AS MinDePrecoUnit FROM Produtos GROUP BY Produtos.Produto;

    Nota, está a fazer o agrupamento pela descrição, se algum produto for criado com a descrição mal não vai funcionar.
    O ideal era você ter um campo tipo "codProdutoUnico" em que era repetido nos produtos iguais de vários fornecedores.

    Abraço
    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1051
    Registrado : 07/12/2011

    Re: [Resolvido]retornar menor preço

    Mensagem  tauron em 21/5/2017, 11:54

    Alvaro, eu já havia pensado nisso. Observe que o formulario possui campos para o resultado.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5589
    Registrado : 15/03/2013

    Re: [Resolvido]retornar menor preço

    Mensagem  ahteixeira em 21/5/2017, 12:49

    Olá Emerson Laranjo,

    Será adicionar no fim do código do evento lstProduto_Click()

    Código:
    txtPrecoMin = DMin("[PrecoUnit]", "Produtos", "[Produto] = '" & Me.lstProduto.Column(1) & "'")
    txtFornEnc = DLookup("[Fornecedor]", "Produtos", "[Produto] = '" & Me.lstProduto.Column(1) & "' AND [PrecoUnit] = " & Replace(CCur(txtPrecoMin), ",", "."))

    Ficamos aguardar retorno do colega.
    Abraço a todos
    avatar
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1051
    Registrado : 07/12/2011

    Re: [Resolvido]retornar menor preço

    Mensagem  tauron em 21/5/2017, 19:17

    Alvaro, aqui funcionou perfeitamente, entao ficamos no aguardo do amigo.

    Raigley
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 09/07/2016

    Resolvido

    Mensagem  Raigley em 22/5/2017, 16:43

    Boa tarde!

    galera, muito obrigado pela atenção de vocês!

    funcionou perfeitamente, tanto a consulta no modo sql quanto o código no evento click da caixa de listagem.
    agora vou seguir o conselho e fazer com um código único para cada produto.


    resolvidíssimo. Very Happy Very Happy

    assim que terminar posto o bd finalizado.

    abraço!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5589
    Registrado : 15/03/2013

    Re: [Resolvido]retornar menor preço

    Mensagem  ahteixeira em 2/6/2017, 11:32

    Olá a todos,
    Raigley, obrigado pelo retorno, o fórum agradece.
    Abraço

      Data/hora atual: 16/11/2018, 04:01