[Resolvido]Baixa e acrescimo de nova pacela

Olá pessoal, o meu problema é o seguinte. Preciso que se o valor pago da parcela for menor que o valor da parcela gerar uma nova parcela com a valor que ficou faltando. Exemplo: Valor: 100,00 Pago: 80,00 - Nova parcela: 20,00. OBS. Nesse caso o valor da parcela que antes era 100,00 precisa ficar em 80,00 para que o restante fique zero.

Veja no exemplo, que fica mais fácil.
Baixa de pacelas

Gilberto, nos meus sistemas onde tem recebimento de contas sempre deixo a opção para pagamento de valores menores, faça o seguinte:

crie um campo oculto sem origem de registro com o nome txt_ValorRestante
crie um campo visivel sem origem de registro com o nome vlr_Pago
supondo que vc ja tem um campo com o valor da parcela

no campo vlr_pago apos atualizar faça uma verificação se o vlr_pago for menor que o valor_parcela então lance a diferença no campo txt_valorRestante

e no botão que baixa o valor da parcela faça uma verificação se o valor do campo txt_valorRestante for maior que zero proceda o cadastro com o valor desse campo ex:
abra um Recordset da sua tabela de parcelas
faça um addnew com todos os campos necessarios e no valor da pacela lance o txt_ValorRestante, faça um UpDate
e no registro atual troque o valor da parcela para o vlr_pago e proceda a baixa normalmente como vc faz.

espero ter ajudado.

Boa tarde, gilberlanio

Quando acrescentar a parcela quer preencher data de vencimento? Qual?
Quer preencher parcela? Como?

Boa Tarde Alexandre.

Preciso que a nova parcela seja preenchida com a mesma data de vencimento da parcela anterior, Exemplo:

Parcela Atual: Valor:100,00 Vencimento:01/10/10 Data Pagamento:03/10/10 Valor Pago:80,00 Restante:20,00


Nova Parcela: Valor:20,00 Vencimento:01/10/10 Data Pagamento: Valor Pago: 0 Restante:20,00

Novamente, gilberlanio

Tem de estruturar melhor as tabelas e relações.
Veja agora aqui

Era isso mesmo Alexandre.

Só um pequeno detalhe. Quando apliquei no meu sistema a data de vencimento da nova parcela está gerando invertina de 01/10/10 para 10/01/10 está trocando o dia pelo mês, não sei o que pode ser.

Mais desde já agradeço. Muito Obrigado.

Em vez de Me.TxtVencto coloque Format(Me.TxtVencto,"mm-dd-yyyy")

Grande Alexendre, funcionou perfeitamente.

Sei que já estou pedindo muito, mais quanto estava testando deu um pequeno problema com números decimais. Por Exemplo se o valor da parcela e 10,00 reais e o valor pago foi 8,50 nesse caso da (erro em tempo de execusão "3346": Numero de valores da consulta e campos de destino não coincidem.)Se o valor pago for 9,00 reais não da erro.

Em vez de

Private Sub TxtPago_Exit(Cancel As Integer)
If TxtPago > 0 And TxtPago <> TxtValor Then
If MsgBox("O valor pago não corresponde ao valor em débito." & vbCr & vbCr & "Quer criar nova parcela com a diferença?", vbYesNo) = vbYes Then
Set Rst = CurrentDb.OpenRecordset("SELECT * FROM tbl2")
Me.TxtValor = Me.TxtPago
End If
End If
End Sub

Coloque
Private Sub TxtPago_Exit(Cancel As Integer)
Dim Rst As DAO.Recordset
If TxtPago > 0 And TxtPago <> TxtValor Then
If MsgBox("O valor pago não corresponde ao valor em débito." & vbCr & vbCr & "Quer criar nova parcela com a diferença?", vbYesNo) = vbYes Then
Set Rst = CurrentDb.OpenRecordset("SELECT * FROM tbl2")
Rst.AddNew
Rst("Codtbl1") = Me.TxtCodtbl1
Rst("parcela") = Me.TxtParc
Rst("vencimento") = Format(Me.TxtVencto, "mm-dd-yyyy")
Rst("valor") = CCur(Me.TxtValor - Me.TxtPago)
Rst.Update
Set Rst = Nothing
Me.TxtValor = Me.TxtPago
End If
End If
End Sub

Show de bola. Valeu garoto.