MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Código para gerenciar preços

    Compartilhe

    Akr2012
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 23/02/2016

    Código para gerenciar preços

    Mensagem  Akr2012 em Ter 23 Fev 2016, 00:55

    Olá pessoal!

    Meu conhecimento em access é muito pouco gostaria de pedir sua ajuda.

    Tenho os seguintes campos em uma tabela:

    preco_maximo (digitado manualmente)
    preco_minimo (digitado manualmente)
    preco_sugerido (vem através de uma consulta atualização)
    preco_alvo (valor a ser gerado pelo código)

    Preciso que o preco_sugerido respeite os valores de máximo e mínimo e a partir dele fosse igualado ao mínimo ou ao máximo ou mantido.

    Exemplo:

    preco_maximo: 56.77
    preco_minimo: 50.42

    preco_sugerido:58.99 (neste caso o preco_alvo deveria se igualar ao preco_máximo)
    preco_sugerido:47.95 (neste caso o preco_alvo deveria se igualar ao preco_minimo)
    preco_sugerido:52.50 (neste caso o preco_alvo deve ficar igual ao sugerido que fosse mantido em 52.50)

    Obrigado

    Akira

    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 550
    Registrado : 02/10/2011

    Re: Código para gerenciar preços

    Mensagem  rubenscouto em Sab 05 Mar 2016, 10:00

    é pura lógica!
    No evento após atualizar do campo preco_sugerido faça o seguinte:
    if me.preco_sugerido <= preco_minino then
    me.precosugerido = me.preco_minimo
    else
    end if

    if me.preco_sugerido > preco_minimo and <= preco_maximo then
    exit sub

    if me.preco_sugerido > preco_maximo then
    me.preco_sugerido = preco_maximo
    else
    end if

    é por ai que vai dar certo!!!!
    Anexos
    preco.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 8 vez(es)

      Data/hora atual: Qua 07 Dez 2016, 20:09