[Resolvido]Repetir cadastro de despesa

Bom dia amigos, gostaria de uma ajuda para repetir cadastro de despesa em subformulario (subFormDESPESAS). acrescida de um mes, coloquei no codigo na primeira linha do rs.Fields , mas nao sei se está correto.


Private Sub btnGravar_Click()
Form_frm_Lancamentos_Despesas.txtDataLanc = Me.txtData
Form_frm_Lancamentos_Despesas.GravarDespesa

Dim bd As DAO.Database
Dim rs As DAO.Recordset


Dim intParcelas As Integer
Dim i As Integer

Set bd = CurrentDb
Set rs = bd.OpenRecordset("tbl_DESPESAS")

intParcelas = Me!txtParcelas

For i = 1 To intParcelas
rs.AddNew
rs.Fields("Datalancamento") = DateAdd("m", i, frm_Lancamentos_Despesas!subFormDESPESAS.Form! = Me!txtData)

rs.Fields("DataReferencia") = DateAdd("m", i, Me!txtDataReferencia)
rs.Fields("DataVencimento") = DateAdd("m", i, Me!txtDataVencimento)
rs.Fields("DataPagamento") = DateAdd("m", i, Me!txtDataPagamento)
rs.Fields("Proveniente") = Me!cboCliente
rs.Fields("Descricao") = Me!cboProdutos
rs.Fields("Qtd") = i
rs.Fields("ValorUnt") = Me!txtValorUnt / intParcelas
rs.Fields("SubTotal") = Me!txtSubTotal
rs.Fields("ValorPago") = Me!txtPago
rs.Fields("APagar") = Me!txtAPagar

rs.Update
Next i

rs.Close
bd.Close

Set rs = Nothing
Set bd = Nothing

DoCmd.Close
End Sub

rs.Fields("Datalancamento") = DateAdd("m", i, frm_Lancamentos_Despesas!subFormDESPESAS.Form!Me.txtData)

boa noite , obrigado pelo retorno, posto link para dar uma olhada.
https://www.dropbox.com/s/4hp7widzhl3pihj/Controle%20Financeiro%20Pessoal.accdb?dl=0

coloquei o codigo no botao gravar do formulario
frm_Datalanc_despesa

bom dia pessoal, postei o sistema , alguem poderia me dar uma luz? obrigado!

veja um modelo.

opa Ruben obrigado , tinha colocado esse codigo abaixo , na verdade tinha que colocar outros dados no sistema de vba nos RecordSource, obrigado!!!!
Private Sub btnSalvar_Click()

   Dim bd As DAO.Database
   Dim rs As DAO.Recordset
   Dim intParcelas As Integer
   Dim i As Integer
   
   Set bd = CurrentDb
   Set rs = bd.OpenRecordset("tbl_DESPESAS")
   
   intParcelas = Me!txtParcelas
   
   For i = 1 To intParcelas
   rs.AddNew
   rs.Fields("Datalancamento") = Me.txtDataLanc
   rs.Fields("Datalancamento") = DateAdd("m", i, Me!txtDataLanc)
   rs.Fields("DataReferencia") = DateAdd("m", i, Me!txtDataReferencia)
   rs.Fields("DataVencimento") = DateAdd("m", i, Me!txtDatavencimento)
   rs.Fields("Proveniente") = Me!cboCliente.Column(0)
   rs.Fields("Descricao") = Me!cboProdutos.Column(0)
   rs.Fields("Qtd") = Me!txtQtd
   rs.Fields("ValorUnt") = Me!txtValorUnt
   rs.Fields("SubTotal") = Me!txtSubTotal
   rs.Fields("ValorPago") = Me!txtPago
   rs.Fields("APagar") = Me!txtAPagar
   
   rs.Update
Next i

rs.Close
bd.Close

Set rs = Nothing
Set bd = Nothing
SomPreto

opa Ruben obrigado , tinha colocado esse codigo abaixo , na verdade tinha que colocar outros dados no sistema de vba nos RecordSource, obrigado!!!!
Private Sub btnSalvar_Click()

Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim intParcelas As Integer
Dim i As Integer

Set bd = CurrentDb
Set rs = bd.OpenRecordset("tbl_DESPESAS")

intParcelas = Me!txtParcelas

For i = 1 To intParcelas
rs.AddNew
rs.Fields("Datalancamento") = Me.txtDataLanc
rs.Fields("Datalancamento") = DateAdd("m", i, Me!txtDataLanc)
rs.Fields("DataReferencia") = DateAdd("m", i, Me!txtDataReferencia)
rs.Fields("DataVencimento") = DateAdd("m", i, Me!txtDatavencimento)
rs.Fields("Proveniente") = Me!cboCliente.Column(0)
rs.Fields("Descricao") = Me!cboProdutos.Column(0)
rs.Fields("Qtd") = Me!txtQtd
rs.Fields("ValorUnt") = Me!txtValorUnt
rs.Fields("SubTotal") = Me!txtSubTotal
rs.Fields("ValorPago") = Me!txtPago
rs.Fields("APagar") = Me!txtAPagar

rs.Update
Next i

rs.Close
bd.Close

Set rs = Nothing
Set bd = Nothing
SomPreto
GOSTONÃO GOSTO