[Resolvido]Gerenciamento Financeiro Pessoal: repetir registro de lançamento com data de intervalo de 1 mes

Boa noite mestre! Se puder me ajudar agradeço imensamente.
Estou desenvolvendo meu próprio sistema de gerenciamento de contas.
Tenho
tbl_Lancamento
com seguintes campos: ID; DataLancamento; DatadRef; DataVencimento; DataPagamento; Valor; QuantidadeLancamento; TipoLancamento; ClienteFornecedor; Descriao.

frm_Lancamento: com todos esses campos.

Gostaria que quando colocasse um numero maior que 1 no campo ""QuantidadeLancamento"" ele repetisse os registros (o numero de vezes colocado no campo) nas mesmas datas acrescida de 1 mes .
Obrigado!!

Não foi muito claro sobre qual objeto quer trabalhar ?
Formulário ? Consulta ? Tabela ?
Repetir os registros para quê ? gerar parcelas ?

Creio que queira realizar isso em um formulário, mesmo que não seja para gerar parcelas o princípio me parece o mesmo veja os tópicos abaixo:


Este tópico gera parcelas : "https://www.maximoaccess.com/t4436-resolvidoinserir-parcelas-no-controle-de-pagamento"


[Resolvido]Inserir parcelas no controle de pagamento Empty Re: [Resolvido]Inserir parcelas no controle de pagamento
Mensagem FabioPaes Qui 14 Jul 2016, 3:24 pm

+
----
-
Sobre o Assunto:

https://www.maximoaccess.com/t26940-resolvidoformulario-de-parcelas

https://www.maximoaccess.com/t27142-resolvidoparcelador

https://www.maximoaccess.com/t26967-resolvidogera-parcelas

https://www.maximoaccess.com/t26331-resolvidogerar-parcelas

Vários Tópicos Com o Mesmo assunto, e todos solucionados.

Boa noite amigo, primeiramente obrigado pelo retorno.
Respondendo aos questionamentos.
Quero registrar contas a pagar e a receber, quando registro uma conta hoje quero que esteja registrado todo mês (no mesmo dia) para depois me lembrar que tenho que pagar ou receber . Todos os dias pesquiso contas a receber e a pagar,  seria tipo parcela mesmo.
Estou inserindo o código no capo de registro "quantidade"em um formulário. Estou tentando esse código conforme suas orientações, algo não deu certo o código já para no" tbl_Lancamento_DataLancamento"


Private Sub Quantidade_AfterUpdate()
Dim DB As Database
Dim rs As DAO.Recordset
Dim F As Integer

Set DB = CurrentDb()
   Set rs = DB.OpenRecordset("tbl_Lancamentos") 'Abre a tabela tbl_Lancamentos para lançamento dos dados
 
   For F = 1 To Me.Quantidade  'Calcula o Loop
       'Campos e valores a serem preenchidos
       rs.AddNew
       rs("tbl_Lancamentos_DataLancamento") = DateAdd("m", F, Format(Me.tbl_Lancamentos_DataLancamento, "dd/mm/yyyy"))
       rs("tbl_Lancamentos_DataVencimento") = DateAdd("m", F, Format(Me.tbl_Lancamentos_DataVencimento, "dd/mm/yyyy"))
       rs("tbl_Lancamentos_DataReferencia") = DateAdd("m", F, Format(Me.tbl_Lancamentos_DataReferencia, "dd/mm/yyyy"))
       rs("tbl_Lancamentos_Tipo") = Me.Combinaao17,Tipo.Column(0)
       rs("tbl_Lancamentos_Cliente") = Me.tbl_Lancamentos_Cliente
       rs("tbl_Lancamentos_Descricao") = Me.tbl_Lancamentos_Descricao
       rs("tbl_Lancamentos_ValorLanc") = Me.tbl_Lancamentos_ValorLanc
     
       rs("tbl_Lancamentos_Quantidade") = Format(F, "00") & "/" & Format(Me.Quantidade, "00") 'Insere as parcelas no formato 01/10, 02/10, 03/10...
       rs.Update
       'Move para o Proximo
   Next
   'Termina e encerra as conexoes
   rs.Close
   DB.Close
   
End Sub

Observando seu projeto observei que você não nomeia os controles caixa de texto etc, isso gera conflito no código porque existe com campo DataLançamento na tabela e no formulário vá até seu formulário e renomeie seus controles com nomes diferentes da tabela ,

Eu uso txt_NomeCaixaTexto , Comb_NomeCaixa de combinação e assim por diante.

Código:

rs("Lancamentos_Cliente") = Me.tbl_Lancamentos_Cliente

outra coisa no código você não precisa identificar o nome da tablea já que na hora de setar o banco de dados você já informou a tabela.

Código:

Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("tbl_Lancamentos") 'Abre a tabela tbl_Lancamentos para lançamento dos dados

Código:

Dim DB As Database
Dim rs As DAO.Recordset
Dim F As Integer




Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("tbl_Lancamentos") 'Abre a tabela tbl_Lancamentos para lançamento dos dados
 
    For F = 1 To Me.txt_Quantidade  'Calcula o Loop
   
   
        'Campos e valores a serem preenchidos
        rs.AddNew
        rs("DataLancamento") = Me.txt_DataLancamento
        rs("DataVencimento") = Me.txt_DataVencimento
        rs("DataReferencia") = Me.txt_DataReferencia
        rs("Tipo") = Me.Combinacao17
        rs("Cliente") = Me.txt_Cliente
        rs("Descricao") = Me.txt_Descricao
        rs("ValorLanc") = Me.txt_ValorLanc
        rs("Quantidade") = Me.txt_Quantidade
        'Insere as parcelas no formato 01/10, 02/10, 03/10...
        rs.Update
        'Move para o Proximo
    Next
    'Termina e encerra as conexoes
    rs.Close
    DB.Close

REalizei mudanças,  e consegui com esse codigo que é bem divulgado em videos tambem:

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!txtQtd
   
   For i = 1 To intParcelas
   rs.AddNew
   rs.Fields("Datalancamento") = DateAdd("m", i, Me!txtData)
   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("ValorRecebido") = Me!txtRecebido2
   rs.Fields("AReceber") = Me!txtAReceber
   
   rs.Update
Next i

rs.Close
bd.Close

Set rs = Nothing
Set bd = Nothing
End Sub

Agradeço a atenção, abraço!!!