MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Retornar menor valor entre três campos.

    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Retornar menor valor entre três campos. Empty [Resolvido]Retornar menor valor entre três campos.

    Mensagem  Cláudio Machado Seg 22 Set 2014, 00:24

    Boa noite amigos.

    Tenho três campos em uma consulta:

    Preço_SCO, Preço_EMOP e Preço_SINAP

    Gostaria de obter o menor preço entre estes 3 campos.

    Utilizei tudo que conheço e não consegui.

    Obrigado


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Retornar menor valor entre três campos. 90dssg para agradecer a dica que solucionou seu problema.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Retornar menor valor entre três campos. Empty Re: [Resolvido]Retornar menor valor entre três campos.

    Mensagem  formiga10x Seg 22 Set 2014, 04:20

    Código:
    Dim a, b, c As Single

    a = DSum("Animais", "tblTeste")
    b = DSum("Humanos", "tblTeste")
    c = DSum("Ets", "tblTeste")

    If a >= Nz(b) And a >= Nz(c) Then MsgBox ("Maior Valor " & FormatCurrency(a) & " Na Tabla tblTeste Campo Animais"), vbInformation, "Aviso"
    If b >= Nz(a) And b >= Nz(c) Then MsgBox ("Maior Valor " & FormatCurrency(b) & " Na Tabla tblTeste Campo Humanos"), vbInformation, "Aviso"
    If c >= Nz(a) And c >= Nz(b) Then MsgBox ("Maior Valor " & FormatCurrency(c) & " Na Tabla tblTeste Campo Ets"), vbInformation, "Aviso"
    Anexos
    [Resolvido]Retornar menor valor entre três campos. AttachmentMaiorValorTabela.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 26 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Retornar menor valor entre três campos. Empty Re: [Resolvido]Retornar menor valor entre três campos.

    Mensagem  Avelino Sampaio Seg 22 Set 2014, 08:40

    Ou veja se este exemplo atende:

    http://maximoaccess.forumeiros.com/t17622-resolvidofuncao-max-e-dmax

    Nota: acrescente o igual(=) nas comparações

    If c1 >= c2 Then If c1 >= c3 Then If c1 >= c4 Then k = c1
    ...
    ...

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Retornar menor valor entre três campos. Empty Re: [Resolvido]Retornar menor valor entre três campos.

    Mensagem  Cláudio Machado Seg 22 Set 2014, 12:18

    Bom dia.
    Obrigado Mestre Avelino!
    Mais uma vez me ajudou com suas dicas. cheers

    Agradeço também ao formiga!
    Muito interessante seu código.

    Resolvido! bounce


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Retornar menor valor entre três campos. 90dssg para agradecer a dica que solucionou seu problema.

    Conteúdo patrocinado


    [Resolvido]Retornar menor valor entre três campos. Empty Re: [Resolvido]Retornar menor valor entre três campos.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 07 Nov 2024, 18:39