Olá,
Estou com dificuldade em gerar parcelas em um subformulário. Podem me ajudar, por favor.
Seguinte:
Estou utilizando o código abaixo, mas sempre retorna o erro apontando para "rs.Update" que fica amarelo, quando clico em gerar a parcela.
Percebi que, após o erro, depois de salvar e fechar o formulário, ao clicar em gerar parcela, o sistema gera. O que pode etar errado?
Set db = CurrentDb()
Set rs = db.OpenRecordset("TB_Cad_Parcelas_IPVA")
ValorParcela = Me.txt_valortotal / Me.QtdeParcelas
For I = 1 To Me.QtdeParcelas
rs.AddNew
rs("Codigo_TabelaIPVA") = Me.CodIPVA
rs("Parcelas") = I
rs("ValorParcela") = ValorParcela
rs("Data_Vencimento") = DateAdd("m", I - 1, Me.txt_1parcela)
rs.Update
Next
rs.Close
db.Close
Me.Frm_Cad_Parcelas_IPVA_subformulário.Requery
Estou com dificuldade em gerar parcelas em um subformulário. Podem me ajudar, por favor.
Seguinte:
Estou utilizando o código abaixo, mas sempre retorna o erro apontando para "rs.Update" que fica amarelo, quando clico em gerar a parcela.
Percebi que, após o erro, depois de salvar e fechar o formulário, ao clicar em gerar parcela, o sistema gera. O que pode etar errado?
Set db = CurrentDb()
Set rs = db.OpenRecordset("TB_Cad_Parcelas_IPVA")
ValorParcela = Me.txt_valortotal / Me.QtdeParcelas
For I = 1 To Me.QtdeParcelas
rs.AddNew
rs("Codigo_TabelaIPVA") = Me.CodIPVA
rs("Parcelas") = I
rs("ValorParcela") = ValorParcela
rs("Data_Vencimento") = DateAdd("m", I - 1, Me.txt_1parcela)
rs.Update
Next
rs.Close
db.Close
Me.Frm_Cad_Parcelas_IPVA_subformulário.Requery