MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    [Resolvido]Avaliação de Notas

    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fabioavila Sáb 31 maio - 22: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 : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves Dom 1 Jun - 3: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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fabioavila Dom 1 Jun - 8:52

    Ola Alexandre,

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

    Obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. Sáb 18 Abr - 13: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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fabioavila Sáb 18 Abr - 14:14

    obrigado

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 21 Nov - 15:55