Boa tarde amigos, estou com ima lista de gerar parcelas que pesquisei daqui do forum e fiz umas alterações e ela gera normalmente , mas so que a primeira parcela fica com valor 0. poderia me ajudar?
- Código:
Private Sub btnGerar_Click()
Dim I As Integer
Dim StrDateAdd As Date
Dim StrValorParc As Double
Dim Parc As String
Me.opcaoApagar.Visible = False
Me.opcaoPago.Visible = False
Me.opcaoTodos.Visible = False
Me.RótuloApagar.Visible = False
Me.Rótulopagos.Visible = False
Me.Rótulotodos.Visible = False
Me.Quadro39.Visible = False
If IsNull(Me.txtParc) Then
MsgBox " Voce esquceu de colocar as parcelas", vbInformation, "Center`Print"
Me.txtParc.SetFocus
ElseIf IsNull(Me.txtData) Then
MsgBox "Coloque a data", vbInformation, "Center Print"
Me.txtData.SetFocus
ElseIf IsNull(Me.txtValor_Total) Then
MsgBox "Você esqueceu de colocar o valor", vbInformation, "CenterPrint"
Me.txtValor_Total.SetFocus
ElseIf IsNull(Me.txtDescricao) Then
MsgBox " O que vai ser parcelado?", vbInformation, "Cenetr Print"
Me.txtDescricao.SetFocus
Else
For I = 1 To Me.txtParc
StrDateAdd = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))
StrParc = I & "/" & Me.txtParc
CurrentDb.Execute "INSERT INTO tblFNparcelas(Compra,CpData,CpValor)" _
& " Values(""" & Me.txtDescricao.Value & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#, """ & StrValorParc & """);"
StrValorParc = Me.txtValor_Total
Next I
Me.txtParc = Null
Me.txtData = Null
Me.txtValor_Total = Null
Me.txtDescricao = Null
Me.lstParcelas.Requery
End If
End Sub