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]Somar com critério

    Compartilhe
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 23/08/2010

    [Resolvido]Somar com critério

    Mensagem  Mylton em Sab 04 Jun 2016, 16:02

    Bom dia a todos.
    Existe uma classificação para lesão neurológica onde precisamos quantificar em cada local um valor que vai de 1 a 5. e ao final devemos somar tudo para obtermos o valor total.
    Conforme figura abaixo.


    Fiz essa rotina para soma nos campos textos com valor numérico....

    Me.TxtSoma.Value = Me.TxtNota1 + Me.TxtNota2 + Me.TxtNota3


    Minha dúvida consiste em como limitar a digitação somente com os números compreendidos entre 1 a 5 e somando tudo ao final.

    Alguém teria uma ideía?
    Obrigado
    Anexos
    images_sbot94_03_mar_image.94.mar.95.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (78 Kb) Baixado 5 vez(es)
    avatar
    Silvanio123
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 93
    Registrado : 24/08/2011

    Re: [Resolvido]Somar com critério

    Mensagem  Silvanio123 em Sab 04 Jun 2016, 17:23

    Olá Mylton,

    Não seria mais simples no lugar de campos texto, campos Combobox com somente estes dados escolhidos (1~5)?

    Seria mais simples de controlar os dados inseridos...

    Que acha?
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 23/08/2010

    ok

    Mensagem  Mylton em Sab 04 Jun 2016, 17:31

    Pode ser.
    Mas como faria a soma?
    Anexos
    somaTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 2 vez(es)
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 23/08/2010

    Re: [Resolvido]Somar com critério

    Mensagem  Mylton em Sab 04 Jun 2016, 17:45

    Silvanio
    Funcionou assim

    Private Sub BtnCalcular_Click()
    Me.TxtSoma.Value = Me.teste1 + Me.teste2 + Me.teste3
    End Sub

    Obrigado
    avatar
    Silvanio123
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 93
    Registrado : 24/08/2011

    Re: [Resolvido]Somar com critério

    Mensagem  Silvanio123 em Dom 05 Jun 2016, 02:38

    OK vlw...

      Data/hora atual: Qui 17 Ago 2017, 12:47