Olá pessoal,
Preciso de ajuda para fazer com que meu formulário quitar parcelas gere outar parcela com o restante no caso de pagamento parcial. já tentei de várias formas utilizei exemplos mas não consegui adaptar para o meu.
Tenho um formulário para quitar as parcelas geradas com os campos parcelas, DtVencimento, ValorParcela, DtaPgto, ValorPago, Débito, Quitar(sim/Não) e um botão de comando (Baixar) com o seguinte código no evento ao clicar:
Private Sub Comando21_Click()
Dim Rst As DAO.Recordset
If Me.Débito > 0 And Me.Débito <> Me.ValorParcela 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 tbl_ContasAreceber")
Rst.AddNew
Rst("CodAutContaAreceber") = Me.CodAutContaAreceber
Rst("Parcelas") = Me.Parcelas
Me.Parcelas = Me.Parcelas
Rst("ValorParcela") = Me.Débito
Rst("DtVencimento") = Format(Me.DtVencimento, "dd-mm-yyyy")
Rst("Débito") = CCur(Me.ValorParcela - Me.ValorPago)
Rst.Update
Set Rst = Nothing
Me.ValorParcela = Me.ValorPago
End If
End If
Me.Form.Recalc
End Sub
Estou enviando o bd junto
Alguém pode me ajudar, agradeço.
Preciso de ajuda para fazer com que meu formulário quitar parcelas gere outar parcela com o restante no caso de pagamento parcial. já tentei de várias formas utilizei exemplos mas não consegui adaptar para o meu.
Tenho um formulário para quitar as parcelas geradas com os campos parcelas, DtVencimento, ValorParcela, DtaPgto, ValorPago, Débito, Quitar(sim/Não) e um botão de comando (Baixar) com o seguinte código no evento ao clicar:
Private Sub Comando21_Click()
Dim Rst As DAO.Recordset
If Me.Débito > 0 And Me.Débito <> Me.ValorParcela 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 tbl_ContasAreceber")
Rst.AddNew
Rst("CodAutContaAreceber") = Me.CodAutContaAreceber
Rst("Parcelas") = Me.Parcelas
Me.Parcelas = Me.Parcelas
Rst("ValorParcela") = Me.Débito
Rst("DtVencimento") = Format(Me.DtVencimento, "dd-mm-yyyy")
Rst("Débito") = CCur(Me.ValorParcela - Me.ValorPago)
Rst.Update
Set Rst = Nothing
Me.ValorParcela = Me.ValorPago
End If
End If
Me.Form.Recalc
End Sub
Estou enviando o bd junto
Alguém pode me ajudar, agradeço.
- Anexos
- Database2.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (57 Kb) Baixado 57 vez(es)