[Resolvido]Duplicar registro conforme necessidade do usuário

Olá,

Como faço para duplicar um registro no formulário pela quantidade que desejo.

Exemplo:
Loja: Minas / Contato: João.

Quero criar um botão de comando que solicite quantas vezes deseja repetir esse dados?

Segue em anexo o programa.

Boa tarde,

Dá uma olhada vê se ajuda, inseri um botão para duplicar no formulário.

Olá, Ismael Silva.

Ajudou sim, muito obrigado.

Mas eu quero clicar uma única vez no botão "duplicar registro" e escolher que esse registro se repita, por exemplo, 20 vezes.

Não quero ficar clicando 20 vezes no botão para repetir o registro.

É possível fazer isso para agilizar o processo de orçamento?

Tombr,

Entendi, porém eu realmente não sei uma forma de fazer isso, que no caso seria algo como duplicar com critérios, que seria um número, mas certamente algum colega mais experiente vai saber como resolver.

Ficamos no aguardo.

Olá, Ismael Silva

Mesmo assim muito obrigado pela dica.

Vou aguardar ajuda de outra pessoa e também pesquisar "como duplicar com critérios".

Retire a macro e use VBA.

Código:

Dim varQtd As Variant
Dim varContador As Variant

Do

    varQtd = InputBox("Informe quantas vezes duplicar:", "Duplicar")
    
    If StrPtr(varQtd) = 0 Then Exit Sub
    
    varQtd = Trim(varQtd)
    
    If IsNumeric(varQtd) And InStr(varQtd, ".") = 0 And InStr(varQtd, ",") = 0 Then
        If varQtd > 0 Then
            Exit Do
        Else
            Call MsgBox("Informe um valor maior que 0.", vbInformation, "Duplicar")
        End If
    Else
        Call MsgBox("Informe um valor maior que 0.", vbInformation, "Duplicar")
    End If

Loop

Call DoCmd.RunCommand(acCmdSelectRecord)
Call DoCmd.RunCommand(acCmdCopy)

For varContador = 1 To varQtd
    Call DoCmd.GoToRecord(acDataForm, Me.Name, acNewRec)
    Call DoCmd.RunCommand(acCmdSelectRecord)
    Call DoCmd.RunCommand(acCmdPaste)
    Call DoCmd.RunCommand(acCmdSaveRecord)
Next varContador


Olá, DamascenoJr.

Obrigado pela ajuda.

Coloquei seu código VBA, mas deu a seguinte mensagem:

"Erro em tempo de execução '2489':
O objeto '2' não está aberto.

Ao clicar em Depurar é sinalizado: → Call DoCmd.GoToRecord(acDataForm, Me.Loja, acNewRec)

Esse objeto '2' seria o Me.Contato, não sei aonde colocar,

Apague o que está em vermelho

...
Call DoCmd.GoToRecord(acDataForm, Me.Name, acNewRec)
...

Olá, DamascenoJr

Segui sua última orientação, mas infelizmente continua apresentando mensagem de erro.

Agora:
"Erro em tempo de execução '2489':
O objeto '5' não está aberto.

Segue em anexo o arquivo:

Uma vírgula apagada e tudo vai por água abaixo (risos)

...
Call DoCmd.GoToRecord(, , acNewRec)
...

Obrigado pela ajuda.

Tombr,

Com sua licença, gostaria de pedir ao colega Damasceno, se puder comentar o que cada comando do código faz, para estudos do mesmo.

Obrigado.

Primeiro a se fazer, declarar as variáveis

Código:

Dim varQtd As Variant
Dim varContador As Variant

Depois, preciso saber quantas vezes o usuário quer duplicar um registro. Para saber dessa informação, vou pedir que o usuário me diga isso através de uma caixa de entrada (inputbox). Só que em uma caixa de entrada o usuário pode informar qualquer coisa (letras, números, símbolos ou até mesmo nada), então vou criar um loop e só deixar o código seguir em frente se o usuário informar um valor aproveitável.

Estrutura do loop criado

Código:

Do 'ponto inicial do loop
...
Loop 'ponto final do loop, ou seja, chegando aqui, se eu não permitir, então o código vai voltar a ser executado novamente desde o ponto inicial

código do loop completo

Código:

Do 'ponto inicial do loop

    'salvando em uma variável a informação que o usuário fornecer
    varQtd = InputBox("Informe quantas vezes duplicar:", "Duplicar")
   
    'verificando se realmente foi passado alguma coisa pra variável
    'isto é, se o usuário clicou em cancelar então saia do código todo, ou seja, pare a execução deste procedimento
    If StrPtr(varQtd) = 0 Then Exit Sub
   
    'beleza, se não foi clicado em cancelar, para fins "estéticos" vou limpar
    'qualquer espaço que o usuário possa ter informado sem querer no início ou no final
    'lá na hora de capturar a informação na caixa de entrada. Só assim posso analisar corretamente o que ele informou
    varQtd = Trim(varQtd)
   
    'se o que ele informou é um número e não contém ponto e nem vírgula (ora bolas, não existirá registro fracionado) então
    If IsNumeric(varQtd) And InStr(varQtd, ".") = 0 And InStr(varQtd, ",") = 0 Then
        'nem todo número inteiro que ele informar vai valer, só é válido se for um número maior que zero
        If varQtd > 0 Then
            'saindo do loop, isto é, aqui é um buraco de minhoca
            'levando a execução do código imediatamente ao primeiro ponto final de um loop
            '(digo primeiro ponto final pois há casos de loop dentro de outro loop)
            Exit Do
        'senão, se o valor é menor ou igual a zero
        Else
            'mostro uma mensagem
            Call MsgBox("Informe um valor maior que 0.", vbInformation, "Duplicar")
        End If
    'senão, se o valor passado pelo usuário não é um número ou se contém ponto ou contém vírgula
    Else
        'mostro uma mensagem
        Call MsgBox("Informe um valor maior que 0.", vbInformation, "Duplicar")
    End If

Loop 'ponto final do loop

Restante do código a ser executado já de posse de um número maior que 0 que foi informado pelo usuário

Código:

'selecionando o registro ativo
Call DoCmd.RunCommand(acCmdSelectRecord)
'copiando o registro selecionado
Call DoCmd.RunCommand(acCmdCopy)

Estrutura de loop criado, é um loop do tipo "For... Next...". Esse tipo é melhor quando precisamos interagir com cada execução do loop ou já sabemos quantas vezes esse loop deve executado.

Código:

For varContador = 1 To varQtd
    ...
Next varContador

Código:

'ponto inicial do loop, executando de 1 até a quantidade de vezes que o usuário informou
'salvando o valor de cada volta na variável varContador
For varContador = 1 To varQtd
    'indo para a posição de novo registro no formulário ativo
    Call DoCmd.GoToRecord( , , acNewRec)
    'selecionando toda a posição de novo registro
    Call DoCmd.RunCommand(acCmdSelectRecord)
    'colando o registro copiado na posição de novo registro
    Call DoCmd.RunCommand(acCmdPaste)
    'salvando o registro colado
    Call DoCmd.RunCommand(acCmdSaveRecord)
Next varContador 'ponto final do loop, se não for a última volta, então retorna ao ponto inicial