Caros colegas, tenho um formulario que gera parcelas em um sub-form.continuo, acontece que as vezes preciso editar, alterar essas parcelas e ai tenho que apagar uma por vez para depois estar gerando novas parcelas pois senão elas acumulam. O que preciso e que quando gerar novas parcelas ela substitua aquelas anteriormente geradas.
Segue o codigo que estou utilizando;
Dim db As Database, rs As Recordset
Dim ValorPac As Currency, I As Long
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl2") 'Abre tbl2
ValorPac = Me.[valor aluguel imovel] '/ Me.parcelas 'Valor de cada Parcela
For I = 1 To Me.[prazo locaçao imovel] 'Insere as Parcela na tbl2
rs.AddNew
rs("codTabCadastro") = Me.[novo codigo CADASTRO]
rs("Parcela") = I
rs("ValorAluguel") = ValorPac
'Calcula as datas de Vencto através da função DateAdd()
rs("Vencimento") = DateAdd("m", I - 1, Me.data)
rs.Update
Next
rs.Close
db.Close
Me.tbl2_subformulário.Requery 'Atualiza o SubForm
Me.parcelas.Locked = False
grato.
Segue o codigo que estou utilizando;
Dim db As Database, rs As Recordset
Dim ValorPac As Currency, I As Long
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl2") 'Abre tbl2
ValorPac = Me.[valor aluguel imovel] '/ Me.parcelas 'Valor de cada Parcela
For I = 1 To Me.[prazo locaçao imovel] 'Insere as Parcela na tbl2
rs.AddNew
rs("codTabCadastro") = Me.[novo codigo CADASTRO]
rs("Parcela") = I
rs("ValorAluguel") = ValorPac
'Calcula as datas de Vencto através da função DateAdd()
rs("Vencimento") = DateAdd("m", I - 1, Me.data)
rs.Update
Next
rs.Close
db.Close
Me.tbl2_subformulário.Requery 'Atualiza o SubForm
Me.parcelas.Locked = False
grato.