MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Somar com critério

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    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 4 vez(es)

    Silvanio123
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    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?

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    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 1 vez(es)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    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

    Silvanio123
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    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 08 Dez 2016, 23:54