[Resolvido]Duplicar registro com quantidade escolhida pelo usuario

Bom dia !

Alguém me dá uma dica para duplicar registros com quantidade definida pelo usuário?

Ex:

Campo1: id_produto
Campo2: pr_nome

Duplicar por exemplo 10 registros do item cadastrado

Att

Fabiano

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

'https://www.maximoaccess.com/t26056-resolvidoduplicar-registro-com-numero-sequencial'

Código do Colega Fábio Paes

Código:



Set db = CurrentDb()
    Set rs = db.OpenRecordset("Gibis") 'Abre Gibis
 
    For i = 1 To Me.QntDuplicar  'Calcula o Loop  [b]'Neste campo deve instanciar o número de parcelas'[/b]
        '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


" Estou usando PC Com linux agora. Caso não consiga adaptar posto exemplo pra ti. Abraço bons estudos"

Olá!

Bom dia!

Funcionou corretamente.

Att

Fabiano