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

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

    Compartilhe

    AMarcos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 26/07/2016

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

    Mensagem  AMarcos em Seg 30 Jul 2018, 3:30 pm

    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.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4151
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Seg 30 Jul 2018, 4:49 pm

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    AMarcos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 26/07/2016

    Resposta

    Mensagem  AMarcos em Ter 31 Jul 2018, 11:34 am

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4151
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 31 Jul 2018, 2:19 pm

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    AMarcos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 26/07/2016

    Re: Discriminação de Custo por faixa de valor

    Mensagem  AMarcos em Qua 01 Ago 2018, 6:55 am

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4151
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qua 01 Ago 2018, 7:41 am

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    AMarcos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 26/07/2016

    Re: Discriminação de Custo por faixa de valor

    Mensagem  AMarcos em Qua 01 Ago 2018, 3:37 pm

    EXCELENTE!!!

    AMarcos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 119
    Registrado : 26/07/2016

    Re: Discriminação de Custo por faixa de valor

    Mensagem  AMarcos em Sab 11 Ago 2018, 11:38 am

    Resolvido e muito bem resolvido!!!

      Data/hora atual: Qui 13 Dez 2018, 3:24 pm