[Resolvido]Atualizado valores em uma tabela (soma)

Tenho uma tabela que controlo parcelas...

Os campos que interessam a esse topicos são:

Val_Par (valor da Parcela)
ValorPago (o valor do pagamento)

O Campo Val_par é preenchido pelo FOrm de parcelamento...
Ja o valorPago fica em branco... a ser preenchido na epoca da quitacao....

Quando da quitacao... ao clicar no campo ValorPago... executo o codigo:

Me.ValorPago.Value = Me.Val_parc.Value

tenho uma Caixa texto com a linha: =[val_parc]-[ValorPago]

ou seja.. se a parcela é 100,00 e o valor pago: 20,00
essa caixa mostra o resto: 80,00

Outro comando leva esse valor para o campo Val_parc.. Ficando assim

Val_Parc = 80,00
Valor Pago = 20,00

Esses novos valores ficam na tabela....

O que ocorre... quando vou receber o restante... em nova quitacao... eu clico no campo valor pago.. e ele puxa novamente o valor do campo Val_parc.. 80,00, dou a quitacao e a linha fica assim...
Val_Parc =0,00
Valor Pago = 80,00

e é isso que quero mudar.. preciso que quando eu receber os 80,00 restante ele some com os 20,00 recebido anteriormente..
Ficando Assim:

Val_Parc = 0,00
Valor Pago = 100,00


Se puderem me ajudar.. Agradeco

Acredito que um DLookup resolva. Algo parecido com isso:

If DLookup("ValorPago", "NomeTabela", "Código=" & Me!Código) > 0 Then
    Me.ValorPago = Me.ValorPago + DLookup("ValorPago", "NomeTabela", "Código=" & Me!Código)
Else
    Exit Sub ' ou Me.ValorPago = Me.ValorPago (o que couber melhor)
End If

Mais ou menos isso, eu creio.

Eita... onde coloco isso rsrs?

Não faço a mínima ideia, hehehe. No "Após atualizar" do campo aonde você insere a parcela, ou ao clicar em um botão. A lógica é o código fazer uma pesquisa no campo do valor pago. Se for maior que 0, é porque já foi pago uma parcela, então soma-se o já pago com o pagando.

Hummm

Esse e o codigo para pagamento parcial

If Quitada = -1 Then
Data_Pgto = Date
Else
Data_Pgto = ""
End If
Me.Data_Pgto.SetFocus
Me.Refresh
DoCmd.SetWarnings False
DoCmd.OpenQuery "cns_Parcelas_Vendas_Caixa"
DoCmd.SetWarnings True
Me.QuitadaParcial = -1
Me.Quitada.Value = ""
MSG = MsgBox("RECEBIMENTO PARCIAL EFETUADO !!!", vbOKOnly + vbExclamation, "AVISO")
If vbOK Then
Me.QuitadaParcial = -1
If Me.Val_parc.Value = 0 Then
Me.QuitadaParcial = ""
DoCmd.OpenForm "Recibo"

Prezado Criquio, reslvi a questão de uma forma alternativa, no entanto creio que mais facil....

Como resolvi:

Quando Faco o parcelamento, Coloquei no botao que gera o parcelemento o seguinte codigo:

Private Sub Comando29_Click()
Call Calc_parc
Me.ValorParcela.Value = Me.v_parc.Value
'Essa linha pega o valor da parcela e lanca em uma caixa texto no form (ValorParcela)
Me.Refresh
End Sub

Quando vou fazer a quitação:

'Se o Valor da parcela for =0 (pois a antigo valor >0 vai para o Campo Valor Pago

If Me.Val_parc.Value = 0 Then
Me.ValorPago.Value = Forms!Cadastro_Parcelas!ValorParcela.Value
'Aqui essa linha acima pega o Valor da parcela que esta em um campo HIDDEN no form (o da caixa texto la de cima) e retorna esse valor para a tabela no campo ValorPago
MSG = MsgBox("Confirma o Recebimento? Depois de efetuado o recebimento para estornar, clique em ESTORN0 DE PAGAMENTOS", vbYesNo + vbQuestion, "Excluir")
If MSG = vbYes Then GoTo QuitarApagando
If MSG = vbNo Then GoTo Sair1
End If


Assim sendo...

Se o Valor da Parcela original For R$ 500,00 (esse valor fica no Form em uma caixa texto para ser usando quando da quitação total da parcela)

e tiversmo a situacao:

ValParc Restante = 200
Valor pago parcial = 300 (esse valor esta na tabela) que foi o valor recebido parcialmente)

Então quando eu recebo o restante (R$ 200,00)
Dou a quitacao e esse valor passa ao valor original da parcela que é R$ 500,00 (dando quitacao total na parcela original...

Espero ter sido claro..

Obrigado pela Ajuda.

É como diz o ditado: "o que engorda o boi é o olho do dono". Não tem muito a ver, mas ninguem conhece o sistema melhor que o seu próprio criador, não é?

O Harysohn vai estar no topo dentro de algum tempo e um expert em access. Parabéns.

Colocarei o codigo todo para que possam ver e utilizar caso queiram

Esse codigo foi adaptado do exemplo Parcelas 2008 enviado a mim pelo João Paulo

Acrescentei 2 campos na Tbl_Parcelas_Vendas
permitindo assim a quitacão parcial da parcelas

Campo: ValorPago
Campo Sim/Não: Quitada Parcial


Private Sub Quitada_AfterUpdate()
Dim MSG As Integer
Data_Pgto = Date

'Aqui se o Valor Pago for nulo ou estiver em branco, retorna ao form para seu preenchimento

If IsNull(ValorPago.Value) Then
MSG = MsgBox("É necessário o preenchimento do Valor de Pagamento !!!", vbOKOnly + vbQuestion, "ATENÇÃO")
If vbOK Then GoTo Sair
End If

'Aqui se o Valor da parcela original for =0 vai para o comando quitar apagando (quitação total)

If Me.Val_parc.Value = 0 Then
Me.ValorPago.Value = Forms!Cadastro_Parcelas!ValorParcela.Value
Me.QuitadaParcial.Value = 0
MSG = MsgBox("Confirma o Recebimento? Depois de efetuado o recebimento para estornar, clique em ESTORN0 DE PAGAMENTOS", vbYesNo + vbQuestion, "Excluir")
If MSG = vbYes Then GoTo QuitarApagando
If MSG = vbNo Then GoTo Sair1
End If

'Aqui se o Valor da parcela original for >0 vai para o comando Recebimento Pacrial
If Me.Val_parc.Value > 0 Then
MSG = MsgBox("Confirma o Recebimento Parcial? Depois de efetuado o recebimento para estornar, clique em ESTORN0 DE PAGAMENTOS", vbYesNo + vbQuestion, "Excluir")
If MSG = vbYes Then GoTo RecebimentoParcial
'Retorna ao Form caso o usuário desista de efetuar o recebimento, voltando os valores aos valores originais
If MSG = vbNo Then GoTo Sair1
End If

'Executa o recebimento parcial

RecebimentoParcial:
If Quitada = -1 Then
Data_Pgto = Date
Else
Data_Pgto = ""
End If
Me.Data_Pgto.SetFocus
Me.Refresh
DoCmd.SetWarnings False
DoCmd.OpenQuery "cns_Parcelas_Vendas_Caixa"
DoCmd.SetWarnings True
Me.QuitadaParcial = -1
Me.Quitada.Value = ""
MSG = MsgBox("RECEBIMENTO PARCIAL EFETUADO !!!", vbOKOnly + vbExclamation, "AVISO")
If vbOK Then
Me.QuitadaParcial = -1
DoCmd.OpenForm "Recibo"
If Me.Val_parc.Value = 0 Then
Me.QuitadaParcial = ""
End If
Exit Sub


'Retorna ao Form para preenchimento do Valor Pago

Sair:
If Quitada = -1 Then
Data_Pgto = Date
Else
Data_Pgto = ""
End If
Me.Data_Pgto.SetFocus
Me.Refresh
Me.Quitada.Value = ""
Me.Data_Pgto.Value = ""
Me.Val_parc.Value = Me.ValorPago.Value
Me.ValorPago.Value = ""

Forms!Cadastro_Parcelas!Num_Ordem.Visible = False
Forms!Cadastro_Parcelas!Parcela.Visible = False
Forms!Cadastro_Parcelas!Texto_Parcela.Visible = False
Forms!Cadastro_Parcelas!Grafico.Visible = False
Forms!Cadastro_Parcelas!ValorPago.Visible = False
DoCmd.RunCommand acCmdUndo
Me.Quitada.Value = ""
Me.Data_Pgto.Value = ""
Me.ValorPago.Value = ""
Exit Sub

'Retorna ao Form caso o usuário desista de efetuar o recebimento, voltando os valores aos valores originais


Sair1:
If Quitada = -1 Then
Data_Pgto = Date
Else
Data_Pgto = ""
End If
Me.Data_Pgto.SetFocus
Me.Refresh
Me.Quitada.Value = ""
Me.Data_Pgto.Value = ""
Me.Val_parc.Value = Me.ValorPago.Value


Forms!Cadastro_Parcelas!Num_Ordem.Visible = False
Forms!Cadastro_Parcelas!Parcela.Visible = False
Forms!Cadastro_Parcelas!Texto_Parcela.Visible = False
Forms!Cadastro_Parcelas!Grafico.Visible = False
Forms!Cadastro_Parcelas!ValorPago.Visible = False

Me.Quitada.Value = ""
Me.Data_Pgto.Value = ""
Me.ValorPago.Value = ""
Exit Sub



'Executa o recebimento Total
QuitarApagando:
If Quitada = -1 Then
Data_Pgto = Date
Else
Data_Pgto = ""
End If
'Me.Data_Pgto.SetFocus
Me.Quitada.Value = -1
Me.Refresh
DoCmd.SetWarnings False
DoCmd.OpenQuery "cns_Parcelas_Vendas_Caixa"
DoCmd.SetWarnings True
Forms!Cadastro_Parcelas!Lista65.Requery
Me.Requery
Me.Refresh

Forms!Cadastro_Parcelas!Num_Ordem.Visible = False
Forms!Cadastro_Parcelas!Parcela.Visible = False
Forms!Cadastro_Parcelas!Texto_Parcela.Visible = False
Forms!Cadastro_Parcelas!Grafico.Visible = False
Forms!Cadastro_Parcelas!ValorPago.Visible = False

DoCmd.OpenForm "Recibo"
End If

End Sub



Finalizado o sistema colocarei no repositorio de exemplos

O Sistema ficou com

Geração de parcelas permitindo quitação Total/Parcial
Emissão do devido Recibo quando da quitação Total ou Parcial (geração automatica)
Integracão com um controle de Caixa feito em LstBox... com entrada da parcela Paga Total ou Parcial
Relatorios de Contas:
A receber (parcelas)
Quitadas
Quitadas Parcial
Em atraso...

No Caixa:
Relatorios Sinteticos e analiticos...

Grato Vieira...

Obrigado pela partilha, isso é muito importante para todos os que tiverem as mesmas dúvidas.

Caro vieira apesar de pouco tempo trabalhando com Access (5 meses)

Notei que para que consiga seu objetivo, tem-se que analisar primeiramente o que pretende que o Código/Aplicativo faça.. Toda a rotina pormenorizada e lógica da aplicação...

Tenho conseguido bons resultados com o uso de camposTexto (não acoplados) que recebem valores temporários para uso no código que esta sendo executado...

Isso em parceria com o Comando:
Me.(Campo).Value = Me.(Campo2).Value.. tem produzido excelentes resultados sem precisar de códigos mais complicados para o desenvolvedor...

Em diversos casos o uso dessa lógica substitui completamente commandos mais complexos.. produzindo resultado igual...

A ferramenta Goto tambem produz uma otima producao na execucao de diversos procedimento dentro e um evento..

AGORA:
Antes de tudo, o desenvolvedor tem que ter pronto todo o caminho que o codigo vai trilhar para que ele produza o resultado esperado... Não adianta saber programar se não tem a analise do que o sistema pretende...

é meu Humilde Pensamento..

Grato Vieira, Grato Criquio pela sempre pronta Ajuda...

Como os tópicos tendem a ir ficando meio engavetados após serem solucionados, eu deixaria como dica colocar esse módulo na sala de "Repositório de Códigos VBA". Que acham da ideia?

Amigo criquio, creio nao ser necessario, pois assim que estiver pronto o sistema completo, o colocarei no repositorios de exemplos com todos os codigos e forms...

Bem é uma ideia... mas se quiser colocsar o codigo no Exemplos VB pode ser tambem...
Ao coloca-lo frise que pertence ao aplicativo Parcelas2008...

Grato

Se ele será postando no Repositório de Exemplos, melhor

Concordo, Criquio, um bom Pepanp para o repositório de exemplos

rsrs O que é Pepanp? rsrsrs

Significado de PEPANP:

Post
Excepcional
Para
Ampliar
Nosso
Profissionalismo

Pepanp é uma invenção mineira, misturada com goias e que classifica um poste de muito importante para a aprendizagem de todos os intervenientes actuais e futuros.

Uai Sô.. tu és Mineiro ou Português? hehehe

Mineiro misturado com goias a gente conhece à distância. O grande Criquio Calavera, pois então.