[Resolvido]Discriminação de Custo por faixa de valor

Boa tarde amigos, finalmente após anos nesse canal, sem achar solução nas diversas postagens aqui publicadas, venho recorrer a ajuda dos amigos e mestres.
Eu tenho um BD onde contém um formulário chamado Manutenção Realizada, eu gostaria que no txtBox CUSTO aparecesse a palavra ALTO, MÉDIO ou BAIXO dependendo da faixa de porcentagem do valor da manutenção em relação ao valor do bem:

Ex: Se ao atualizar o valor da mnt, e o valor for menor ou igual a 1% do valor do bem, o txtBox CUSTO terá a palavra BAIXO;
    Já se o valor da mnt for maior que 1% do valor do bem e menor ou igual a 5% valor bem, então no txtBox CUSTO aparecerá a palavra MÉDIO; e
    Por último, se o valor da mnt for maior que 5% do valor do bem e menor ou igual a 60% valor bem, então no txtBox CUSTO aparecerá a palavra ALTO.

Também no mesmo formulário existe um campo STATUS DA OS (Aberta/Fechada), onde de início a OS de cada viatura terá o Status de Aberta e só terá a condição de abrir outra OS para uma determinada viatura somente quando a primeira OS estiver passado para o Status de Fechada e isso só se dará quando for preenchido o campo "Saída da Oficina". Ou seja, uma viatura só poderá entrar em um novo serviço (OS Aberta) se o serviço anterior estiver finalizado (OS Fechada). Se for outra viatura que não tem OS Aberta, o serviço pode ser iniciado.

Espero ter sido compreendido no meu pedido de ajuda.

Boa tarde, seja bem vindo ao forum

Primeiro corrigir os espaços entre os nomes que estão na tabela manutenção.
Bom seria não usar:
palavras acentuadas
palavras com espaços.


Segundo, cole e copie o código abaixo e teste ( lembrando que o campo Txt_valor tem que estar preenchido )

Bons estudos

Private Sub txt_ValorMnt_AfterUpdate()
Dim a
Dim b
Dim c
a = 60 / 100
b = 5 / 100
c = 1 / 100


If Me!txt_ValorMnt >= a * Me!txt_Valor Then
Me!txt_Custo = "NÃO COMPENSADOR"

ElseIf Me!txt_ValorMnt >= b * Me!txt_Valor And Me!txt_ValorMnt <= a * Me!txt_Valor Then
Me!txt_Custo = "ALTO"

ElseIf Me!txt_ValorMnt >= c * Me!txt_Valor And Me!txt_ValorMnt <= b * Me!txt_Valor Then
Me!txt_Custo = "MÉDIO"

ElseIf Me!txt_ValorMnt <= c * Me!txt_Valor Then
Me!txt_Custo = "BAIXO"

End If

End Sub

Bom dia Silvio!

Quero agradecer a rápida intervenção no intuito de ajudar esse amigo que tá no sufoco pra terminar esse projeto, mas devo lhe dizer que não deu certo o código enviado pois só está aparecendo "NÃO COMPENSADOR" na txt_CUSTO para qualquer valor inserido em txt_ValorMnt.
Eu coloquei o código no Evento "Ao Atualizar" do txt_ValorMnt com o txt_CUSTO "não acoplado".
A txt_Valor (referente a valor do bem) está não visível no Formulário e herda o valor da tabela Viaturas, por isso ao atualizar o nome da viatura, o valor do bem é atualizado automaticamente.

O entendimento é esse, mas deve estar faltando algum detalhe para que as outras faixas sejam discriminadas no txt_CUSTO.

AMarcos

De uma olhada no que eu fiz....veja a tabela a qual me referi.

Excelente Silvio! Ficou perfeito!!!
Descobri que ao copiar (pois já havia uma estrutura de código) eu acabei esquecendo do primeiro Else
e daí estava discriminando apenas o "Não Compensador".
Muito obg, impasse resolvido.

AMarcos

Bom dia, que bom que resolveu.
Não se esqueça de colocar o tópico como resolvido.
Abraços.

EXCELENTE!!!

Resolvido e muito bem resolvido!!!