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]Erro ao Subtrair e Gravar na Tabela

    Compartilhe

    julia-melo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 72
    Registrado : 02/01/2013

    [Resolvido]Erro ao Subtrair e Gravar na Tabela

    Mensagem  julia-melo em Ter 18 Mar 2014, 12:33

    Por gentileza,

    Estou com um probleminha, já estou quebrando a cabeça faz um tempo e não saio do lugar, por isso recorri ao fórum, é o seguinte...

    Tenho um formulário que efetuo o controle do pagamento pagamento dos meus fornecedores, como base utilizei um exemplo aqui do fórum mesmo, porém necessitei efetuar alguns ajustes para satisfazer a minha necessidade.

    Possuo três campos (A, B e C) que calculam os valores totais, e via VBA gravam tais valores em uma tabela, dois desses campos são somatórios e gravam perfeitamente (A e B), porém o último campo é uma subtração  entre os campos A e B (C = A - B).

    O problema é que o campo C está gravando o calculo da linha anterior e não da atual.

    Código:
    Campo A: txtTotalPagar = DSum("total", "tblDetalheCompraFor", "codCompra =" & txtCodCompra)
    Campo B: TxtSomaValorPago = DSum("ValorPago", "tblDetalheCompraFor", "codCompra =" & txtCodCompra)
    Campo C: TxtRestanteValor = txtTotalPagar - TxtSomaValorPago <-- (Erro)

    Anexo o BD:
    [Você precisa estar registrado e conectado para ver este link.]

    Mais uma vez obrigada.

    Julia


    Última edição por julia-melo em Ter 18 Mar 2014, 12:57, editado 1 vez(es)

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1095
    Registrado : 21/01/2012

    Re: [Resolvido]Erro ao Subtrair e Gravar na Tabela

    Mensagem  Cláudio Más em Ter 18 Mar 2014, 12:51

    Olá Júlia,

    O arquivo não tem o formulário, nem a tabela envolvida nos cálculos.
    Parece que você enviou outro arquivo por engano.

    julia-melo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 72
    Registrado : 02/01/2013

    Thanks!

    Mensagem  julia-melo em Ter 18 Mar 2014, 12:58

    Olá Cláudio.

    Enviei mesmo, obrigada.

    Segue o correto:
    [Você precisa estar registrado e conectado para ver este link.]

    ** Já corrigi no inicio.

    Thanks!

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1095
    Registrado : 21/01/2012

    Re: [Resolvido]Erro ao Subtrair e Gravar na Tabela

    Mensagem  Cláudio Más em Ter 18 Mar 2014, 13:18

    No final do código do botão salvar, antes das 5 linhas de Requery, insira a linha abaixo:

    Código:
    CurrentDb.Execute "Update tblDetalheCompraFor Set Restante = Total - ValorPago"

    julia-melo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 72
    Registrado : 02/01/2013

    Agradecida

    Mensagem  julia-melo em Qua 19 Mar 2014, 13:24

    Olá Cláudio.

    Mais uma vez obrigada pela ajuda, nem sei quantas vezes me ajudou. Valeu mesmo!  Smile 

    O que você me propôs funcionou perfeitamente, só que me revelou outra inconsistência, quando atualizo o valor pago ou quando deleto, os valores pagos ficam desatualizados, pra falar a verdade nem sei explicar direito o que ocorre.

    Salva os valores que não são os atuais.

    Veja: [Você precisa estar registrado e conectado para ver este link.]

    ** desculpa não ter respondido ontem, é que eu estava fora.

    Julia

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1095
    Registrado : 21/01/2012

    Re: [Resolvido]Erro ao Subtrair e Gravar na Tabela

    Mensagem  Cláudio Más em Qua 19 Mar 2014, 14:28

    Oi Júlia,

    Segue o arquivo com a correção.
    Durante os testes, tive que alterar e excluir alguns registros, ok?
    Se ainda ocorrer problemas, avisa.
    Ajudo sempre que puder   Smile
    Bjs
    Anexos
    DB Julia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (64 Kb) Baixado 6 vez(es)

    julia-melo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 72
    Registrado : 02/01/2013

    Thnaks!

    Mensagem  julia-melo em Qui 27 Mar 2014, 11:08

    Perfeito Cláudio!

    Demorei responder pois estava viajando a trabalho.

    Perfeito.

    Mais uma vez obrigada!

    Julia

    julia-melo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 72
    Registrado : 02/01/2013

    Thanks!

    Mensagem  julia-melo em Qui 27 Mar 2014, 16:40

    Finish!

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1095
    Registrado : 21/01/2012

    Re: [Resolvido]Erro ao Subtrair e Gravar na Tabela

    Mensagem  Cláudio Más em Qui 27 Mar 2014, 16:59

    De nada Julia, disponha.
     Smile 

      Data/hora atual: Sab 03 Dez 2016, 02:21