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


3 participantes

    [Resolvido]Criar cópia do formulário (Duplicar)

    avatar
    diegoah
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 20/01/2014

    [Resolvido]Criar cópia do formulário (Duplicar) Empty [Resolvido]Criar cópia do formulário (Duplicar)

    Mensagem  diegoah 18/2/2014, 12:39

    Pessoal , gostaria de saber se é possível criar um botão em um formulário com um código para duplicar o registro atual, não teria problema ser uma nova ID.
    Grato !
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar cópia do formulário (Duplicar) Empty Re: [Resolvido]Criar cópia do formulário (Duplicar)

    Mensagem  Assis 18/2/2014, 13:21

    Diegoah

    A resposta deve ser sim, mas tem de postar o exemplo para analisar.


    .................................................................................
    *** Só sei que nada sei ***
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Criar cópia do formulário (Duplicar) Empty Re: [Resolvido]Criar cópia do formulário (Duplicar)

    Mensagem  Avelino Sampaio 18/2/2014, 14:44

    Olá!

    Experimente algo assim:

    Private Sub btCopiar_Click()
    dim strCampos as string
    strCampos = "nomeCampoA,nomeCampoB"
    CurrentDb.Execute "INSERT INTO NomeTabela (" & strCampos & ") SELECT " & strCampos & " FROM Nometabela WHERE id =" & Me!id & ";"
    End Sub


    Nota: Faça um backup antes de testar.

    Aguardamos
    avatar
    diegoah
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 20/01/2014

    [Resolvido]Criar cópia do formulário (Duplicar) Empty Re: [Resolvido]Criar cópia do formulário (Duplicar)

    Mensagem  diegoah 18/2/2014, 20:01

    Certinho, fiz campo por campo e deu certo...
    Obrigado !!

    Conteúdo patrocinado


    [Resolvido]Criar cópia do formulário (Duplicar) Empty Re: [Resolvido]Criar cópia do formulário (Duplicar)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 21:49