[Resolvido]Duplicar Registro com número sequencial

Olá Pessoal,

Gostaria de saber, se existe alguma maneira de duplicar um registro e, no campo que contém por exemplo, o número da edição de um livro, no momento em que eu escolher duplicar, possa também escolher qual o número da edição desejo cadastrar nesta duplicação, ou mesmo que seja um número sequencial?

Exemplo:
Quero duplicar o registro de uma HQ do Batman, que o número da edição é 20.
Eu já tenho um botão, que quando clico nele, me pergunta " Informe a quantidade de Cadastro a replicar"  eu digito o número de vezes e, tudo bem.
Porém ele deixa os campos com os mesmos valores, exatamente uma cópia.
Gostaria que, quando eu fosse replicar o registro, ele criasse uma sequencia numérica.
Vamos supor que, eu tenha que dar entrada em 20 revistas do Batman, então eu digito na InputBox, o valor "20" aí ele cria 20 Registros com o nome Batman no Campo "Título", porém no campo "Edição" o número teria que ter uma sequência, tipo Batman 01, 02, 03, 04 Até chegar no valor que informei para replicar, que seria 20 em questão. Desde já agradeço.

Segue Link para melhor visualização:

https://drive.google.com/file/d/0ByOnIRK3_8Brd3pmZFRFTlNhLUU/view?usp=sharing

Da forma como vc quer, não pode ser aquele comando simples de copiar e colar... Da pra fazer assim... Veja e ajuste as suas necessidades...

https://www.dropbox.com/s/f5o3cx74957fcuk/Duplicar%20ate%20xxx%20FabioPaes.zip?dl=0



Obs: Depois foi que percebi que vc ja tinha praticamente conseguido o que pretendia... Faltando apenas um detalhezinho....

No codigo do seu botao dupliccar ( o que vc ja havia criado) basta muda essa linha:

rs!Edição = Me.[Edição] + 1

Para esta:

rs!Edição = i

O Comando do Botão duplicar ficou assim:

Código:


 Set db = CurrentDb()
    Set rs = db.OpenRecordset("Gibis") 'Abre Gibis
  
    For i = 1 To Me.QntDuplicar  'Calcula o Loop
        'Campos e valores a serem preenchidos
        rs.AddNew
        rs("HQ") = Me.HQ
        rs("Formato") = Me.Formato
        'Para diferenciar ele ira criar Edição com dois zeros antes (001)
        rs("Edição") = "00" & i
        rs("Séries") = Me.Séries
        rs("História") = Me.História
        rs("Ano") = Me.Ano
        rs("Qtd") = Me.Qtd
        rs("Editora") = Me.Editora
        rs.Update
    Next
    rs.Close
    db.Close
    MsgBox Me.QntDuplicar & " Registos inseridos com sucesso!!!", vbInformation
    'Atualiza o formulario e vai para o Ultimo lançamento
    DoCmd.Requery
    DoCmd.GoToRecord acForm, "Cadastro_HQ", acLast



Ao lado do Botão duplicar tem uma Cx Texto onde digita-se a quantidade de registros a ser inseridos (Me.QntDuplicar)

Testado Fabião!!! fantástico, exatamente oque eu preciso, eu fico feliz de saber que eu estava no caminho certo também rsrsr, eu achei que colocando Me.[Edição] + 1, fosse dar certo, porém ele só acrescenta "mais um" número hehe; o seu código deu exatamente o encaixe da minha solicitação, agora vou adaptar nos outros forms que preciso, como sempre meu amigo, você acertou em cheio ,muito obrigado de coração pelo tempo que você disponibilizou para me ajudar. Fica na Paz do Senhor Jesus meu amigo, abraçosssss.

Grato pelo retorno! Ate a proxima se Deus quiser!!!