MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Avaliação de Notas

    avatar
    fabioavila
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 22/03/2011

    [Resolvido]Avaliação de Notas Empty [Resolvido]Avaliação de Notas

    Mensagem  fabioavila em 1/6/2014, 03:33

    Amigos ,

    Tenho um campo que exibe uma nota ex: 2 gostaria de fazer uma formula que me retornasse as seguintes opções:

    0 até 2 = Péssimo
    2 até 4 = Ruim
    4 até 6 = Regula
    6 até 8 = Bom
    8 até 10= Ótima

    Alguém pode me dar uma força...

    Obrigad
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7652
    Registrado : 05/11/2009

    [Resolvido]Avaliação de Notas Empty Re: [Resolvido]Avaliação de Notas

    Mensagem  Alexandre Neves em 1/6/2014, 08:38

    Bom dia,
    Vejo que cá anda há 3 anos. Neste tempo, já se mostraram muitas funções que pudesse aprender.
    Veja como é simples
    Function NotaTexto(bytNota as byte)as string
    if bytnota<3 then
    NotaTexto = "Péssimo"
    elseif bytnota<5 then
    NotaTexto= "Ruim"
    elseif bytnota<7 then
    NotaTexto= "Regula"
    elseif bytnota<9 then
    NotaTexto= "Bom"
    elseif bytnota<11 then
    NotaTexto= "Ótima"
    end if
    end function

    veja se as condições estão certas pois, na sua exposição não deixou claro quando a nota é 2, 4, 6, 8 ou 10
    Se não tiver clareza na exposição, só por sorte a terá na construção do código


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    fabioavila
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 22/03/2011

    [Resolvido]Avaliação de Notas Empty Re: [Resolvido]Avaliação de Notas

    Mensagem  fabioavila em 1/6/2014, 13:52

    Ola Alexandre,

    Certo... me diz uma coisa eu coloco no evento ao abrir do formulario ?

    Obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2118
    Registrado : 22/11/2016

    [Resolvido]Avaliação de Notas Empty Re: [Resolvido]Avaliação de Notas

    Mensagem  DamascenoJr. em 18/4/2020, 18:28

    Fabio, conseguiu avançar?

    Copie o código passado pelo Alexandre e cole em um módulo global. No campo onde deseja que o resultado seja mostrado faça o uso da função colocando

    Código:
    =NotaTexto(NomeDoCampoNota)

    Aguardamos retorno.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    fabioavila
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 22/03/2011

    [Resolvido]Avaliação de Notas Empty Re: [Resolvido]Avaliação de Notas

    Mensagem  fabioavila em 18/4/2020, 19:14

    obrigado

      Data/hora atual: 16/7/2020, 14:49