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]Duplicar registos

    avatar
    joaquimcoiso
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 14/04/2016

    [Resolvido]Duplicar registos Empty [Resolvido]Duplicar registos

    Mensagem  joaquimcoiso 16/5/2016, 19:14

    VIVA!!
    Estou a fazer um BD e tenho uma consulta para ver pedidos mas quando quiser fazer esses pedidos quero que ele os guarde num histórico em outra tabela entao se me poderem ajudar digam qual o codigo em vba para eu ao carregar num butao ele copiar esse registo para outra tabela?
    obrigado!!
    xoxe
    xoxe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 27/03/2016

    [Resolvido]Duplicar registos Empty Re: [Resolvido]Duplicar registos

    Mensagem  xoxe 16/5/2016, 21:07

    Só criar uma consulta de acréscimo após a confirmação do pedido, no mesmo código.


    .................................................................................

    "Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein



    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Duplicar registos 001_1810 para agradecer a dica que solucionou seu problema.
    avatar
    joaquimcoiso
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 14/04/2016

    [Resolvido]Duplicar registos Empty Re: [Resolvido]Duplicar registos

    Mensagem  joaquimcoiso 16/5/2016, 21:27

    mas sem utilizar consulta de acrescimo e usar somente vba?
    deixem exemplo de codigo, por favor?
    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 registos Empty Re: [Resolvido]Duplicar registos

    Mensagem  FabioPaes 16/5/2016, 21:54

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

    Mensagem Nº03 Tem o codigo completo pra duplicar um registro XX vezes... Adapte pro seu caso


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    xoxe
    xoxe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 27/03/2016

    [Resolvido]Duplicar registos Empty Re: [Resolvido]Duplicar registos

    Mensagem  xoxe 16/5/2016, 21:55

    CurrentDb.Execute "INSERT INTO NOME DA TABELA A SER INSERIDA OS DADOS(Campo1, Campo2, Campo3...)Values('" & Me.Campo1 & "','" & Me.Campo2 & "','" & Me.Campo2 & "')"

    Campo1, Campo2, Campo3 = Nome dos campos de sua tabela
    Me.Campo1, Me.Campo2, Me.Campo3 = Nome das caixas de texto para inserir os dados.



    .................................................................................

    "Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein



    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Duplicar registos 001_1810 para agradecer a dica que solucionou seu problema.
    avatar
    joaquimcoiso
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 14/04/2016

    [Resolvido]Duplicar registos Empty Re: [Resolvido]Duplicar registos

    Mensagem  joaquimcoiso 16/5/2016, 21:57

    fabio e esse codigo vai copiar o registo e colá-lo numa outra tabela?
    avatar
    joaquimcoiso
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 14/04/2016

    [Resolvido]Duplicar registos Empty Re: [Resolvido]Duplicar registos

    Mensagem  joaquimcoiso 16/5/2016, 22:01

    xoxe isso vai fazer com que crie um novo registo na mesma tabela certo?
    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 registos Empty Re: [Resolvido]Duplicar registos

    Mensagem  FabioPaes 16/5/2016, 22:08

    Set rs = db.OpenRecordset("Gibis") 'Gibis é a Tabela que Receberá os Novos dados...

    rs("HQ") = Me.HQ
    rs("Formato") = Me.Formato ' HQ e Formato são os nomes dos Campos da tabela que receberão o valor que esta nas Caixas de texto do formulario me.HQ e Me.Formato


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    joaquimcoiso
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 14/04/2016

    [Resolvido]Duplicar registos Empty Re: [Resolvido]Duplicar registos

    Mensagem  joaquimcoiso 16/5/2016, 22:13

    hmm!! ok!
    Eu amanha vou experimentar e depois digo se resultou.
    muito obrigado aos 2 (fabio e xoxe).
    desculpem mas é que eu sou um iniciante em access e tenho ainda muitas duvidas.
    mais uma vez obrigado e amanha digo alguma coisa.
    avatar
    joaquimcoiso
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 15
    Registrado : 14/04/2016

    [Resolvido]Duplicar registos Empty Re: [Resolvido]Duplicar registos

    Mensagem  joaquimcoiso 17/5/2016, 19:14

    fabio resultou na perfeição muito obrigado por desponibilizar um pouco do seu tempo Very Happy Very Happy

    Conteúdo patrocinado


    [Resolvido]Duplicar registos Empty Re: [Resolvido]Duplicar registos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:40