[Resolvido]Calcular faixa de tolerancia e apresentar APROVADO ou REPROVADO.

Preciso Calcular os campos "encontrado1", "encontrado2", "encontrado3" e assim mostrar no campo "laudo" APROVADO (em verde) se todos os campos estiverem dentro da faixa de tolerância do valor padrão. Mas se em algum campo estiver fora da tolerância do valor padrão apresentar REPROVADO (em vermelho).

Exemplo: "Valor padrão = 65" "Tolerância + ou - = 1,5" então se os valores estiverem dentro da faixa de 63,5 a 66,5 nos campos "encontrado1", "encontrado2", "encontrado3" será APROVADO (Em verde) se qualquer campo estiver fora será REPROVADO (em Vermelho).

Obrigado.

Você pode usar formatação condicional com a expressão abaixo:

Entre [NomeDoCampo] - 1,5 E [NomeDoCampo] + 1,5

Coloque a cor verde nessa condição. No campo que vai receber APROVADO ou REPROVADO, coloque na origem:

=SeImed([NomeDoCampo]>=[NomeDoCampoDoValor]-1,5 Or [NomeDoCampo]<=[NomeDoCampoDoValor]+1,5;"APROVADO";"REPROVADO")

Coloque a cor padrão desse campo em vermelho.

Tentei e não consegui pois me retorna Aprovado em qualque valor.

Tente assim, no campo laudo, para colocar se aprovado ou reprovado:

=SeImed([encontrado1] Entre [ValorPadrão] - 1,5 E [ValorPadrão] + 1,5 And [encontrado2] Entre [ValorPadrão] - 1,5 E [ValorPadrão] + 1,5 And [encontrado3] Entre [ValorPadrão] - 1,5 E [ValorPadrão] + 1,5;"APROVADO";"REPROVADO")

Agora, em formatação condicional, adicione duas condições. Na condicção 1, coloque:

O valor do campo > é igual a > "APROVADO"

Coloque a cor que quiser para o fundo do campo e/ ou para as letras. Adicione mais uma condição e coloque:

O valor do campo > é igual a > "REPROVADO"

Repita os procedimentos acima para o reprovado. Você pode definir tamanho de letra, cor de letra, cor de fundo, sublinhado ou não, negrito ou não, etc.

Esta dando a mensagem "EXPRESSÃO SEM SUPORTE PARA CONVERSÃO" ao inserir a função no campo da tabela.

Campo da tabela? Isso é para ser usado em um formulário, até porque não há a necessidade de armazenar esses resultado em tabela. Só precisa da função no formulário para exibir os resultados.

Tentei de varias formas inserir a função e não obtive exido. Estou anexando o exemplo para analise.

Obrigado.

Algo assim..

If encontrado1 < 63,5 or >66,5 Then
Me.encontrado1.backcolor = vbred

Else
Me.encontrado1.backcolor = vbgreen
End if

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Ola.

Quebrei a cabeça mas com muita pesquisa e tentativas consegui o que queria. De vagar estou aprendendo.

=SeImed([Encontrado 1:] Entre [Especificado:]-[Tolerancia:] E [Especificado:]+[Tolerancia:] E [Encontrado 2:] Entre [Especificado:]-[Tolerancia:] E [Especificado:]+[Tolerancia:] E [Encontrado 2:] Entre [Especificado:]-[Tolerancia:] E [Especificado:]+[Tolerancia:] E [Encontrado 3:] Entre [Especificado:]-[Tolerancia:] E [Especificado:]+[Tolerancia:];"APROVADO";"REPROVADO")

Obrigado a todos.