[Resolvido]Parcelamento de Divida

Ola,meus Amigos Mestres

sou adepto do access e gosto de fazer meus projetos. Gostaria de no campo Parcela da Tabela fosse exibido o seguinte:
Campos da Tabela:

DataVencto         ValorDivida        Parcela
30/04/2023           190,00               1/3
30/05/2023           190,00               2/3
30/06/2023           190,00               3/3


Meus Amigos,por favor voces podem me ajudar. Deste ja agradeço muito

o codigo que estou usando é este:

Set db = CurrentDb()
  Set RS = db.OpenRecordset("tblParcelamento")
   ValorLanc = TxtValor / TxtParcela

For I = 1 To TxtParcela
RS.AddNew
RS("ValorLanc") = TxtValor
RS("Data") = TxtData
RS("Parcela") = I & "/" & TxtParcela
RS.Update
Next
RS.Close
db.Close

Boa tarde.
Só acrescendar o contador do FOR no formato da data (a letra M que referencia o Mês)

Código:

Dim acrescentarData As Date
Set db = CurrentDb()
Set RS = db.OpenRecordset("tblParcelamento")

For I = 1 To txtParcela
acrescentarData = DateAdd("m", I, Format(Me.txtData, "dd/mm/yyyy"))

RS.AddNew
RS("ValorLanc") = txtValor
RS("Data") = acrescentarData
RS("Parcela") = I & "/" & txtParcela
RS.Update
Next
RS.Close
db.Close
MsgBox "Lançamento feito com sucesso!"


At.te

Muitissimo obrigado, Amigo. Voce muito me ajudou.valeu mesmo

Sucesso