Alguém sabe transformar este código de Juro Simples para Juro Composto?
Private Function Calc_parc()
Dim rs As DAO.Recordset, I As Byte
Dim rs1 As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("select * from tbl_parcelas where NrContrato = " & Me.NrContrato & "")
Set rs1 = CurrentDb.OpenRecordset("select * from tbl_parcelas where NrContrato = " & Me.NrContrato & " and quitada = -1")
If Not rs1.EOF Then
MsgBox "Este Contrato já foi parcelado e contém pagamento efetuado. " & Chr(10) & "" _
& "Não será possivel refazer parcelamento !!!", vbCritical
Set rs1 = Nothing
Exit Function
End If
If Not rs.EOF Then
If MsgBox("Já existe um parcelamento para este Contrato !!! " & Chr(10) & "" _
& "Deseja substituir pelos novos valores? ", vbYesNo + vbExclamation + vbDefaultButton1, "Parcelamento") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from tbl_parcelas where NrContrato = " & Me.NrContrato & ""
DoCmd.SetWarnings True
Else
Exit Function
End If
End If
If Not Resto <= 0 Then
For I = 1 To Me.q_parc
With rs
.AddNew
!NrContrato = Me.NrContrato
!Num_parc = I & "/" & Me.q_parc
!Data_venc = DateAdd("m", I - 1, (Me.VencParcela1))
!Val_parc = Me.v_parc
.Update
End With
Next
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from tbl_parcelas where NrContrato = " & Me.NrContrato & ""
DoCmd.SetWarnings True
End If
rs.Close
Set rs = Nothing
'MsgBox "Valores inseridos com sucesso!!!"
Me.Forma_Pgto.Requery
Me.Forma_Pgto.SetFocus
End Function
===============================================================================
Obrigado
Ari
Private Function Calc_parc()
Dim rs As DAO.Recordset, I As Byte
Dim rs1 As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("select * from tbl_parcelas where NrContrato = " & Me.NrContrato & "")
Set rs1 = CurrentDb.OpenRecordset("select * from tbl_parcelas where NrContrato = " & Me.NrContrato & " and quitada = -1")
If Not rs1.EOF Then
MsgBox "Este Contrato já foi parcelado e contém pagamento efetuado. " & Chr(10) & "" _
& "Não será possivel refazer parcelamento !!!", vbCritical
Set rs1 = Nothing
Exit Function
End If
If Not rs.EOF Then
If MsgBox("Já existe um parcelamento para este Contrato !!! " & Chr(10) & "" _
& "Deseja substituir pelos novos valores? ", vbYesNo + vbExclamation + vbDefaultButton1, "Parcelamento") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from tbl_parcelas where NrContrato = " & Me.NrContrato & ""
DoCmd.SetWarnings True
Else
Exit Function
End If
End If
If Not Resto <= 0 Then
For I = 1 To Me.q_parc
With rs
.AddNew
!NrContrato = Me.NrContrato
!Num_parc = I & "/" & Me.q_parc
!Data_venc = DateAdd("m", I - 1, (Me.VencParcela1))
!Val_parc = Me.v_parc
.Update
End With
Next
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from tbl_parcelas where NrContrato = " & Me.NrContrato & ""
DoCmd.SetWarnings True
End If
rs.Close
Set rs = Nothing
'MsgBox "Valores inseridos com sucesso!!!"
Me.Forma_Pgto.Requery
Me.Forma_Pgto.SetFocus
End Function
===============================================================================
Obrigado
Ari