Pessoal, boa noite!
Sou muito leigo quando se trata de recordset, realmente é algo preciso me informar mais. Hoje a duvida que tenho é a seguinte:
No campo número de parcelas existe um evento após atualizar que executa o seguinte comando:
Private Sub N_Parcelas_AfterUpdate()
Set db = CurrentDb()
Set rs = db.OpenRecordset("Contas_Pagar")
Valor_Parcelas = Me.TotalGeral / Me.N_Parcelas
For I = 1 To Me.N_Parcelas
rs.AddNew
rs("ID_ContasPagar") = Me.Código
rs("Parcelas") = I & "/" & Me.N_Parcelas
rs("Valor_Parcelas") = Valor_Parcelas
rs("Vencimento") = DateAdd("m", I - 1, Me.Data_Parcela)
rs.Update
Next
rs.Close
db.Close
Me.Sub_Tab_Contas_Pagar.Requery
End Sub
esse comando adiciona as parcelas no subformulário.
Até aí tudo certo! Porém quando desejo alterar o número de parcelas eu preciso que ele apague as parcelas antigas e gere novas, como fazer esse comando?
Agradeço a todos desde já por se colocarem a disposição.
Sou muito leigo quando se trata de recordset, realmente é algo preciso me informar mais. Hoje a duvida que tenho é a seguinte:
No campo número de parcelas existe um evento após atualizar que executa o seguinte comando:
Private Sub N_Parcelas_AfterUpdate()
Set db = CurrentDb()
Set rs = db.OpenRecordset("Contas_Pagar")
Valor_Parcelas = Me.TotalGeral / Me.N_Parcelas
For I = 1 To Me.N_Parcelas
rs.AddNew
rs("ID_ContasPagar") = Me.Código
rs("Parcelas") = I & "/" & Me.N_Parcelas
rs("Valor_Parcelas") = Valor_Parcelas
rs("Vencimento") = DateAdd("m", I - 1, Me.Data_Parcela)
rs.Update
Next
rs.Close
db.Close
Me.Sub_Tab_Contas_Pagar.Requery
End Sub
esse comando adiciona as parcelas no subformulário.
Até aí tudo certo! Porém quando desejo alterar o número de parcelas eu preciso que ele apague as parcelas antigas e gere novas, como fazer esse comando?
Agradeço a todos desde já por se colocarem a disposição.
![cheers](https://2img.net/i/fa/i/smiles/icon_cheers.png)
![cheers](https://2img.net/i/fa/i/smiles/icon_cheers.png)