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 e salvar o resultado na tabela

    Compartilhe

    Valdenirst
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 14
    Registrado : 04/05/2015

    [Resolvido]Somar e salvar o resultado na tabela

    Mensagem  Valdenirst em Seg 04 Maio 2015, 22:13

    Olá pessoal,

    estou fazendo um projeto para o SGQ de nossa empresa em ACCESS e tenho varios campos como Hora8, Hora9, Hora10 onde esses campos estão configurados como percentual, eu quero na verdade é que o mesmo grave na tabela a soma desses campos para depois eu fazer uma média. Somente fazer uma soma em uma tabela ou relatório não ficaria com o calculo gravado na tabela.

    Alguem pode me ajudar? segue o que eu fiz baseado em pesquisas na Net:

    Private Sub Hora7_AfterUpdate()
    Me.PPb.Value = Val(Me.Hora8) + Val(Me.Hora9) + Val(Me.Hora10)
    Me.PPb.Requery
    DoCmd.GoToRecord , , acNewRec

    End Sub

    Está trazendo como resultado 0,00%.

    avatar
    Macedo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 23/09/2010

    Re: [Resolvido]Somar e salvar o resultado na tabela

    Mensagem  Macedo em Ter 05 Maio 2015, 02:10

    Ola amigo, se for em um relatorio basta ir somando os campos veja com ficaria:

    criar um campo qualquer na seção detalhe no relatorio nomeie como SomaHoras e em propriedades fonte de controle digite o seguinte =nz([Hora8]) + nz([Hora9]) + nz([Hora10]), entendendo-se que os campos Hora8, Hora9, Hora10 já existam no relatorio

    espero ajudar.

    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3408
    Registrado : 04/04/2010

    Re: [Resolvido]Somar e salvar o resultado na tabela

    Mensagem  Avelino Sampaio em Ter 05 Maio 2015, 08:46

    Olá!

    Como vc está usando percentagem, os valores armazenados são menores ou igual a 1. Como exemplo, o valor numérico de 5% é 0.05. A função Val(), neste caso, só irá retorna o valor inteiro val(0.05) :::> 0

    O que a função val() está fazendo é isso, pois só esta retornando a parte inteira:

    Me.PPb.Value = 0 + 0 + 0

    Minha sugestão:

    Me.PPb.Value = format(Me.Hora8+ Me.Hora9 + Me.Hora10,"percent")

    Sucesso!

    Valdenirst
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 14
    Registrado : 04/05/2015

    Somar

    Mensagem  Valdenirst em Ter 05 Maio 2015, 12:53

    Obrigado Avelino,

    Deu muito certo, era isso mesmo, agora a próxima batalha é fazer a média destes valores, vou dividir pela quantidade de amostras que são maiores que zero para que a média não distorça e outro campo para que se a média ficar entre 25% a 35% será aprovada, caso contrario será reprovada.

    Caso não consiga vou pedir ajuda ao amigo.

    Att,

    Valdenir

    Valdenirst
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 14
    Registrado : 04/05/2015

    Somar e salvar o resultado na tabela

    Mensagem  Valdenirst em Ter 05 Maio 2015, 13:47

    Bom dia Avelino

    Quanto a soma deu certo, eu não consegui foi dividir o resultado do percentual pela quantidade de amostra.

    O código que vc me passou ficou assim:

    Private Sub Hora7_AfterUpdate()
    Me.PPb.Value = Format(Me.Hora8 + Me.Hora9 + Me.Hora10 + Me.Hora11 + Me.Hora12 + Me.Hora13 + Me.Hora14 + Me.Hora15 + Me.Hora16 + Me.Hora17 + Me.Hora18 + Me.Hora19 + Me.Hora20 + Me.Hora21 + Me.Hora22 + Me.Hora23 + Me.Hora24 + Me.Hora1 + Me.Hora2 + Me.Hora3 + Me.Hora4 + Me.Hora5 + Me.Hora6 + Me.Hora7, "percent")
    Me.PPb.Requery
    DoCmd.GoToRecord , , acNewRec

    End Sub

    Agora eu preciso que esse resultado seja dividido pela quantidade de amostras para que assim eu tenha a média e depois se a média ficar entre 25 a 35% quero que o campo "Situação" apareça aprovado ou reprovado.

    Como Faço?

    Att,

    Valdenir

    Valdenirst
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 14
    Registrado : 04/05/2015

    Re: [Resolvido]Somar e salvar o resultado na tabela

    Mensagem  Valdenirst em Qua 19 Jul 2017, 16:26

    Obrigado Avelino,

    Já resolvi

    Att,

    valdenir

      Data/hora atual: Qua 22 Nov 2017, 20:09