[Resolvido]Erro ao gerar parcelas

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

da uma olhada neste link

https://www.maximoaccess.com/t29454-resolvidoatualizar-combobox-por-uma-textbox?highlight=atualizar

Agradeço pela resposta Tauron, mas ainda assim ficou difícil pra mim. Se pudesse me ajudar baseado no meu exemplo, penso que ficaria mais fácil. Estou em fase de aprendizado.

Pra tentar ficar mais claro, vou descrever o que é cada coisa abaixo.

"TB_Cad_Parcelas_IPVA" - Nome da minha Tabela que receberá as parcelas (que virou subformulário)
"ValorParcela" - Campo da tabela "TB_Cad_Parcelas_IPVA" que mostrará as parcelas
"Me.txt_valortotal" - Campo da Tabela e formulário Principal que contém o valor a ser parcelado
"Me.QtdeParcelas" - Campo da Tabela e formulário Principal que contém a quantidade de parcelas
"Codigo_TabelaIPVA", "Parcelas", "ValorParcela", "Data_Vencimento" - Campos da Tabela "TB_Cad_Parcelas_IPVA" subformulário
"CodIPVA" - código do formulário/tabela principal
"Frm_Cad_Parcelas_IPVA_subformulário" - Nome do subformulário que foi gerado da tabela TB_Cad_Parcelas_IPVA


Set db = CurrentDb()
Set rs = db.OpenRecordset("TB_Cad_Parcelas_IPVA") - Nome da minha Tabela que receberá as parcelas
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

Seria possivel postar seu bd?

Olá...
Só um palpite...

Será que esta linha rs("Parcelas") = I
Não seria isto: rs("Parcelas") = I & Me.QtdeParcelas
Ou isto: rs("Parcelas") = Me.QtdeParcelas

Abraços

Altere o vermelho pelo azul e faca o teste:

For I = 1 To Me.QtdeParcelas QtdeParcelas.Value
rs.AddNew
rs("Codigo_TabelaIPVA") = Me.CodIPVA
rs("Parcelas") = I Me.QtdeParcelas
rs("ValorParcela") = ValorParcela
rs("Data_Vencimento") = DateAdd("m", I - 1, Me.txt_1parcela)
rs.Update

Amigos,

Tentei realizar os palpites, mas não funcionou. Talvez eu tenha feito algo errado.
Segue meu banco de dados.

Segue o BD. Não tinha enviado na mensagem anterior. Desculpem.

boa noite Jeferson tente assim

Set db = CurrentDb()
Set rs = db.OpenRecordset("TB_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_Parcelas_IPVA_Sub.Requery

veja se era isso que pretendia:

Marcelo,

Continua dando erro ao clicar em inserir. Queria que o sistema gerasse as parcelas no subformulário ao clicar no botão. Estranho é que quando eu saiu do formulário e e clico em inserir após entrar novamente, ele gera.
Veja os prints no anexo

bom dia Jeferson Souza eu até fiz alguns teste fiz a mudança de quando você fizer um parcelamento e querer outra quantidade de parcela ao clicar no inserir ele apaga o parcelamento que ja foi inserido e cria outro parcelamento, olha eu não estou em casa mais vou enviar meu bd pra vc dar uma olhada, da uma olhada no relacionamento de seu bd


abraço

Olá..

Anexe uma cópia da bd na versão 2007

Aguardo

Amigo Celso, tentei salvar em uma versão anterior, mas não consegui. Aparece uma mensagem falando da impossibilidade porque o BD precisa de recursos que só tem na versão atual.

Caros amigos,

Fiz uma sequência de prints com uma observação que fiz. Por favor, vejam o anexo com a sequência de telas e me digam se tem algo haver o que eu disse ou estou enganado.
Acho que o problema está em o sistema abrir o subformulário.

Jeferson, olha se ajuda:

Amigo Tauron, ficou perfeito! Você entendeu exatamente o que quiz dizer. Muito Obrigado!
Poderia me dizer o que você fez, amigo.

Desde já gostaria de agradecer a todos que tentaram de ajudar. Vocês são fera! Esse forum é 10!

Entao Jeferson, compare os dois codigo (o primeiro o que vc implementou e depois o modificado)

Código:

Set db = CurrentDb()
Set rs = db.OpenRecordset("TB_Parcelas_IPVA")
ValorParcela = Me.txt_valortotal / Me.QtdeParcelas

For I = 1 To QtdeParcelas.Value
    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_Parcelas_IPVA_Sub.Requery


Código:

Me.Frm_Parcelas_IPVA_Sub.SetFocus
Set db = CurrentDb()
Set rs = db.OpenRecordset("TB_Parcelas_IPVA")
ValorParcela = Me.txt_valortotal / Me.QtdeParcelas

For I = 1 To QtdeParcelas.Value
    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
Me.Frm_Parcelas_IPVA_Sub.Requery

Ientifiquei as diferenças Tauron, mais um aprendizado. Obrigado!
Daqui um tempo já estarei dando dicas no grupo hehe. Vocês entendem muito.
Obrigado!

Vaou fechar como resolvido.

O Forum agradece pelo retorno.