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

    avatar
    Valdenirst
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar e salvar o resultado na tabela Empty [Resolvido]Somar e salvar o resultado na tabela

    Mensagem  Valdenirst 4/5/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%.

    Macedo
    Macedo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Macedo 5/5/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.

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 5/5/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!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Valdenirst
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar e salvar o resultado na tabela Empty Somar

    Mensagem  Valdenirst 5/5/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
    avatar
    Valdenirst
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar e salvar o resultado na tabela Empty Somar e salvar o resultado na tabela

    Mensagem  Valdenirst 5/5/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
    avatar
    Valdenirst
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Valdenirst 19/7/2017, 16:26

    Obrigado Avelino,

    Já resolvi

    Att,

    valdenir

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 04:26