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

    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
    avatar
    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 618
    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: Seg 23 Out 2017, 05:24