MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Duplicar registro com quantidade escolhida pelo usuario

    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 10/09/2012

    [Resolvido]Duplicar registro com quantidade escolhida pelo usuario Empty [Resolvido]Duplicar registro com quantidade escolhida pelo usuario

    Mensagem  fabianobilo em 22/4/2020, 16:02

    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
    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 08/09/2012

    [Resolvido]Duplicar registro com quantidade escolhida pelo usuario Empty Veja este Tópico

    Mensagem  Maicon em 23/4/2020, 04:09

    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"


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.
    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 10/09/2012

    [Resolvido]Duplicar registro com quantidade escolhida pelo usuario Empty Duplicar registro com quantidade escolhida pelo usuario

    Mensagem  fabianobilo em 28/4/2020, 13:05

    Olá!

    Bom dia!

    Funcionou corretamente.

    Att

    Fabiano
    Maicon
    Maicon
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 08/09/2012

    [Resolvido]Duplicar registro com quantidade escolhida pelo usuario Empty Re: [Resolvido]Duplicar registro com quantidade escolhida pelo usuario

    Mensagem  Maicon em 29/4/2020, 04:02

    O Fórun agradece o retorno.


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.

      Data/hora atual: 21/9/2020, 14:48