MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Duplicar Registro com número sequencial

    Robystanley
    Robystanley
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 21/12/2015

    [Resolvido]Duplicar Registro com número sequencial Empty [Resolvido]Duplicar Registro com número sequencial

    Mensagem  Robystanley 25/3/2016, 06:37

    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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Duplicar Registro com número sequencial Empty Re: [Resolvido]Duplicar Registro com número sequencial

    Mensagem  FabioPaes 25/3/2016, 13:24

    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


    Última edição por fabiopaes em 25/3/2016, 16:40, editado 1 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Duplicar Registro com número sequencial Empty Re: [Resolvido]Duplicar Registro com número sequencial

    Mensagem  FabioPaes 25/3/2016, 13:28

    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)
    Robystanley
    Robystanley
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 117
    Registrado : 21/12/2015

    [Resolvido]Duplicar Registro com número sequencial Empty Re: [Resolvido]Duplicar Registro com número sequencial

    Mensagem  Robystanley 25/3/2016, 22:51

    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.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Duplicar Registro com número sequencial Empty Re: [Resolvido]Duplicar Registro com número sequencial

    Mensagem  FabioPaes 25/3/2016, 23:10

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

    Conteúdo patrocinado


    [Resolvido]Duplicar Registro com número sequencial Empty Re: [Resolvido]Duplicar Registro com número sequencial

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:42