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

    [Resolvido]Copy/Paste dentro do mesmo registo

    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 382
    Registrado : 28/10/2010

    [Resolvido]Copy/Paste dentro do mesmo registo Empty [Resolvido]Copy/Paste dentro do mesmo registo

    Mensagem  zcarloslopes 4/6/2019, 10:52

    Bom dia a todos,

    Desta vez venho pedir ajuda para o seguinte:

    Dentro do mesmo registo, num formulário, tenho vários grupos de 4 campos (2 String e 2 Integer).

    Cada grupo tem 1 botão Copy e 1 botão Paste.

    O que pretendo é fazer um Copy dos 4 campos num grupo e poder fazer o Paste para os 4 campos de qualquer um dos outros grupos.

    Alguma ideia?

    Obrigado


    Última edição por zcarloslopes em 6/6/2019, 14:03, editado 1 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7283
    Registrado : 15/03/2013

    [Resolvido]Copy/Paste dentro do mesmo registo Empty Re: [Resolvido]Copy/Paste dentro do mesmo registo

    Mensagem  ahteixeira 4/6/2019, 11:06

    Olá Carlos,

    Pode partilhar um exemplo simples para se verificar o ue se pode fazer.

    Abraço
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 382
    Registrado : 28/10/2010

    [Resolvido]Copy/Paste dentro do mesmo registo Empty Re: [Resolvido]Copy/Paste dentro do mesmo registo

    Mensagem  zcarloslopes 4/6/2019, 22:22

    Obrigado ahteixeira pelo retorno,

    Fiz um form simplificado para o efeito, que anexo.

    Basicamente o que eu pretendo é poder copiar as valores dos campos da área-1, e os mesmos ficarem disponíveis para serem colados na área 2 e/ou 3.

    Que ao copiar os valores dos campos da área-2, os mesmos fiquem disponíveis para colar nas áreas-1 e/ou 3.

    E que ao copiar os valores dos campos da área-3, os mesmos fiquem disponíveis para colar nas áreas-1 e/ou 2.

    Obrigado

    Abraço
    Anexos
    [Resolvido]Copy/Paste dentro do mesmo registo AttachmentCopyPaste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (17 Kb) Baixado 8 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7283
    Registrado : 15/03/2013

    [Resolvido]Copy/Paste dentro do mesmo registo Empty Re: [Resolvido]Copy/Paste dentro do mesmo registo

    Mensagem  ahteixeira 6/6/2019, 11:52

    Bom dia Carlos Lopes,

    Existe várias formas para o pretendido, veja um exemplo simples:
    cld.pt/dl/download/0f6e380b-a18c-40c4-a068-058fecad8086/CopyPaste_rev.zip

    Abraço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7283
    Registrado : 15/03/2013

    [Resolvido]Copy/Paste dentro do mesmo registo Empty Re: [Resolvido]Copy/Paste dentro do mesmo registo

    Mensagem  ahteixeira 6/6/2019, 12:30

    Olá Carlos,

    Agora o mesmo exemplo com função, veja:
    Código:
    Option Compare Database

    Function fncCopy(area As Integer)
        Me.tmpTexto1 = Me("sArea" & area & "Texto1")
        Me.tmpTexto2 = Me("sArea" & area & "Texto2")
        Me.tmpNum = Me("nArea" & area & "Num")
    End Function
    Function fncPaste(area As Integer)
        Me("sArea" & area & "Texto1") = Me.tmpTexto1
        Me("sArea" & area & "Texto2") = Me.tmpTexto2
        Me("nArea" & area & "Num") = Me.tmpNum
    End Function

    Na chamada, devemos indentificar a area, exemplo para a 1

    =fncCopy(1)

    Segue abaixo exemplo com função:
    cld.pt/dl/download/b5a31954-a7a6-4294-9588-5a9f1724aa24/CopyPaste_funcao.zip

    Abraço
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 382
    Registrado : 28/10/2010

    [Resolvido]Copy/Paste dentro do mesmo registo Empty Re: [Resolvido]Copy/Paste dentro do mesmo registo

    Mensagem  zcarloslopes 6/6/2019, 14:02

    Obrigado ahteixeira pela ajuda,

    Está perfeito.

    Abraço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7283
    Registrado : 15/03/2013

    [Resolvido]Copy/Paste dentro do mesmo registo Empty Re: [Resolvido]Copy/Paste dentro do mesmo registo

    Mensagem  ahteixeira 6/6/2019, 14:16

    Olá Carlos,

    Obrigado pelo feedback, o fórum agradece.

    Abraço

      Data/hora atual: 25/7/2021, 03:20