[Resolvido]Valor mínimo e máximo de 3 campos.

Tenho os campos no relatório: calc1, calc2 e calc3 e preciso saber qual desses 3 campos tem valor mínimo e máximo e jogar o resultado no campo Minimo e Maximo.

Estou tentando fazer assim:

Nas propriedades do campo Minimo, utilizando o Expression Builder:

=Min([calc1],[calc2],[calc3])

Nas propriedades do campo Maximo, utilizando o Expression Builder:

=Max([calc1],[calc2],[calc3])

Mas apresenta erro.

Se alguém puder me ajudar com isso eu agradeço.

Ola leor

tente

Propriedades do Minimo=

Código:

SeImed(Mín([calc1])<Mín([calc2]);SeImed(Mín([calc1])<Mín([calc3]);Mín([calc1]);Mín([calc3]));SeImed(Mín([calc2])<Mín([calc3]);Mín([calc2]);Mín([calc3])))

Propriedades do Maximo=

Código:

SeImed(Máx([calc1])>Máx([calc2]);SeImed(Máx([calc1])>Máx([calc3]);Máx([calc1]);Máx([calc3]));SeImed(Máx([calc2])>Máx([calc3]);Máx([calc2]);Máx([calc3])))

tem que colocar o campo minimo e o campo maximo dentro do detalhes para dar certo

e se quiser colocar no cabeçalho ou rodapé do relatorio, crie novos campos nos cabeçalho e coloca na propriedades
o campo minimo o campo minimo do detalhes e no outro o campo maximo do detalhes

Bom é fazer isso via procedimento de evento

Fiz isso, mas ao abrir ao gerar o relatório aparece a seguinte informação:

Insira o valor do parâmetro: calc1

envia a sua base de dados zipada para melhor te ajudar

Eu tive que modificar, pois o Access que utilizo é o Access 2016 em inglês, então coloquei:

Código:

=IIF(Min([calc1])<Min([calc2]);IIF(Min([calc1])<Min([calc3]);Min([calc1]);Min([calc3]));IIF(Min([calc2])<Min([calc3]);Min([calc2]);Min([calc3])))

Na versão do Access em inglês tem que estar desta maneira aí ou tem algo errado?

está correto, mas veja se  no Min tem acento Mín e assim no Máx tambem, acho que não tem acento

Sim, eu removi os acentos, mas agora está aparecendo este erro:

The expression you entered contains invalid syntax.

You omitted an operand or operator, you entered an invalid character or comma, or you entered text without surrounding it in quotations marks.

Pedi para você anexar seu banco de dados zipado por aqui para te ajudar melhor

pode fazer isso?

Vc esta colocando o codigo onde?

@clebergyn, estou removendo algumas informações do BD para poder enviar.

@tauron, estou colocando o código em Control Source das propriedades do Text box.



Se tiver alguma forma de colocar como procedimento de evento eu coloco.

Segue o exemplo ai em anexo

O Cleber ja enviou o exemplo funfando. Pergunto, qual a finalidade destes campos? Seria tipo comparando preço de produtos?

Cleber, mesmo com o seu exemplo ocorreu o mesmo erro na hora de abrir o relatório:



Pelo seu exemplo, os dados do calc1 estão armazenados em uma tabela, mas no relatório que estou usando os dados do calc1 é o resultado de uma multiplicação de duas tabelas, (no calc2 e calc3 também) veja no print abaixo:



o calc1 está recebendo essa multiplicação: =[DLD_AC_mL_NaOH_1]*[DLD_AC_F_Am_1]

E na hora que o relatório está sendo gerado parece que não tem dados no calc1 aí abre aquela janela pedindo pra inserir dados no calc1, depois no calc2 e calc3.

E os outros campos (calc2 e calc3) quais as formulas? são quantas tabelas envolvidas neste relatorio?


Caro Leandro, disponibilize seu bd para que possamos melhor lhe ajudar.

Anexei o BD para vocês verificarem por favor.

não deu para entender muito bem o que quer no seu bd

mas no relatorio,

veja ai, coloquei o calc1 ....calc6 nos campos da consulta
veja se por ai da para voce conseguir seu objetivo

veja o anexo

Na hora que gero o relatório do mês de Janeiro o mínimo está errado:

calc1: 16,200
calc2: 15,600
calc3: 15,400

O mínimo está aparecendo 14,000 e não 15,400 (que é o resultado do calc3 que é o valor mínimo desses 3 campos).

Print do relatório:

Olá a todos,

Leandro, não efectuou uma Busca aqui no fórum, veja este exemplo de 2016:
https://www.maximoaccess.com/t27130-resolvido-criterio-para-identificar-campo-maior-que-os-outros

Adaptando para a sua necessidade:

Código:

Function fncMax#(cp1#, cp2#, cp3#)
'Alvaro Teixeira - 2017
    Dim x@
    
    x = cp1
    If cp2 > x Then x = cp2
    If cp3 > x Then x = cp3
    fncMax = x

End Function


Function fncMin#(cp1#, cp2#, cp3#)
'Alvaro Teixeira - 2017
    Dim x@
    
    x = cp1
    If cp2 < x Then x = cp2
    If cp3 < x Then x = cp3
    fncMin = x

End Function

No seu report, cole o código acima.

Depois na origem do controlo para mínimo:
=fncMin([Calc1];[Calc2];[Calc3])

Na origem do controlo para máximo:
=fncMax([Calc1];[Calc2];[Calc3])

e teste.

Abraço

veja ai, é no seu caso não precisava usar a função mín e máx
somente precisaria se fosse pesquisar no geral

no anexo ai, fiz a soma do min por registro e a soma do min no geral

tente fazer com o maximo do mesmo jeito

Agora sim!!!!

Muitíssimo obrigado Cleber, Emerson e Alvaro pela ajuda.

Olá a todos,

Leandro, obrigado pelo retorno, os utilizadores do fórum agradecem.

Cleber Botelho, concordo plenamente, parabéns pela ajuda.

Acho que ficou um excelente tópico, demonstrando duas formas de se obter o mesmo resultado.