[Resolvido]Dificuldades com INSERT INTO no sistema de parcelas

Ola pessoal,

onde estou errando ?

Código:

If Me.cbo_repeticao = "Parcelada" Then
StrValorParc = Me.Valor_conta
For I = 1 To Me.parcelas
StrDateAdd = DateAdd("m", I, Format(Me.Data_conta, "dd/mm/yyyy"))
StrParc = I & "/" & Me.parcelas
strSql = "INSERT INTO tbl_despesas (Data_conta,Descrição,Centro,Categoria,Conta_origem,"
strSql = strSql & "Valor_conta,Forma_pagamento,Documento,Observações,Conta_fixa) VALUES "
strSql = strSql & "(#& StrDateAdd &#," 'Tipo data
strSql = strSql & "'& Me.Descricao.Value & StrPar &'," 'Tipo String  (duvida sobre essa concatenação)
strSql = strSql & "'& Me.centro.Value &'," 'Tipo String
strSql = strSql & "'& Me.Categoria.Value &'," 'Tipo String
strSql = strSql & "' & StrValorParc &'," 'Tipo String
strSql = strSql & "'& Me.Descricao.Value &'," 'Tipo String
strSql = strSql & "'& Me.Forma_pagamento.Value &'," 'Tipo String
strSql = strSql & "'& Me.Documento.Value &'," 'Tipo String
strSql = strSql & "'& Me.Observações.Value &'," 'Tipo String
strSql = strSql & "'0'," 'Tipo Boleano
strSql = strSql & ");"
CurrentDb.Execute strSql
Next I
End If

Boa noite
Começou errando na explicação do que pretende solucionar.
Dá algum erro? Qual? Devia explicar o problema para se melhor procurar a solução
Suponho que seja assim
If Me.cbo_repeticao = "Parcelada" Then
StrValorParc = Me.Valor_conta
For I = 1 To Me.parcelas
StrDateAdd = DateAdd("m", I, Format(Me.Data_conta, "dd/mm/yyyy"))
StrParc = I & "/" & Me.parcelas
strSql = "INSERT INTO tbl_despesas (Data_conta,Descrição,Centro,Categoria,Conta_origem,Valor_conta,Forma_pagamento,Documento,Observações,Conta_fixa) VALUES "
strSql = strSql & "(#" & StrDateAdd & "#,'" & Me.Descricao.Value & StrPar & "','" & Me.centro.Value & "','" & Me.Categoria.Value & "','" & StrValorParc & "','" & Me.Descricao.Value & "','" & Me.Forma_pagamento.Value & "','" & Me.Documento.Value & "','" & Me.Observações.Value & "',0);"
CurrentDb.Execute strSql
Next I
End If

ola Alexandre, desculpe a falta de informação

preciso que quando selecionada "parcelada" na combo cbo_repetição, repita o registro pela quantidade de parcelas definidas em "parcelas", atualizando a data e a descrição.

sua sugestão funciona em partes, repete o registro ok, mas não atualiza a data.

Bom dia,
Sem dados é difícil adivinhar mas poderá ser por ter a data StrDateAdd como texto, em vez de data

ola Alexandre,

a data esta atualizando mas mesmo com o 'Format(Me.Data_conta, "dd/mm/yyyy")' ele atualiza as datas no formato americano
foi repetido por 5x

Data_conta
01/05/2020
06/01/2020
07/01/2020
08/01/2020
09/01/2020
10/01/2020

A formatação de datas é mais que complicada. Os sistemas deviam trabalhar todos com formato americano e acabava-se os problemas
Se ele quer ao contrário, experimente ao contrário Format(Me.Data_conta, "mm/dd/yyyy")

obrigado pela atenção Alexandre

tópico resolvido.