Duplicar Registros com Quantidade de Veses definida pelo Usuário(a)!

Boa tarde, Caríssimos(a)!

Estou com uma dificuldade tremenda!

Tenho uma base de dados, que gerencio o estoque de produtos aqui da empresa(CAGECE), e tenho uma tabela chamada tbl_selos, onde é cadastrado a numeração dos selos recebidos por todas as equipes de campo. O fato é o seguinte, preciso duplicar os registros informando ao sistema, através de uma imputybox o número de veses que os campos seram duplicados.

Alguém pode me ajudar?

Cordialmente,

Netinho Sillva

Bom dia !
Não é algo tão difícil não, segue um exemplo ai...

Dim intQtde As Integer, I As Integer
intQtde = Me.txtQtdVezes.Value

For I = 1 To intQtde
'Faça aqui a captura dos dados de inserção e a própria inserção.
DoCmd.RunSQL "INSERT INTO Dados ( Selo )SELECT [Formulários]![Formulário1]![Selo] AS Selo;"
Next I
End Sub

Boa noite,

Meu caro colega, muito obrigado pelo retorno! É quase isso que preciso, estou postando o código que estou tentando implementar!

Preciso clonar todos os campos e perguntar ao usuário quantas vezes é para clonar os campos, sendo que no campo selo tenha o valor somado + 1!

Dim strQtde As Integer, I As Byte
On Error GoTo Erro
If MsgBox("Confirma clonagem do registro?", vbYesNo + vbQuestion, "Atenção!") = True Then
strQtde = InputBox("Clonar quantas vezes?", "Clonagem de Título.")
Set rsMov = currentdb.OpenRecordset("Sua_Tabela")
For I = 1 To strQtde
rsMov.AddNew
rsMov("CodPaciente") = Me.CodPaciente
rsMov("Paciente") = Me.Paciente
rsMov("DataRecebimento") = Me.DataRecebimento
rsMov("FornaPagamento") = Me.FormaPagamento
rsMov("Parcela") = I & "_" & strQtde ' [b]Não entendo essa parte! Não sei como fazer o valor do selo ser somada +1 durante N vezes, de acordo com o digitado pelo operador na imputybox!
rsMov("DataParcela") =DateAdd("m", I, Me.DataParcela)
rsMov("Descricao") = Me.Descricao
rsMov("TipoTratamento") = Me.TipoTratamento
rsMov("ValorParcela") = Me.ValorParcela
rsMov.Update
Next I
MsgBox "Registro clonado com sucesso.", vbInformation, strTitulo & strVersao
Set rsMov = Nothing
Else
MsgBox "Operação cancelada.", vbInformation, "Atenção!!"
Exit Sub
End If

Sai:
Set rsMov = Nothing
Exit Sub
Erro:
MsgBox "Erro ao clonar título.", vbInformation, "Atenção!!"
Resume Sai