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]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 : 391
    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)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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 : 391
    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 11 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 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 : 391
    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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 6/6/2019, 14:16

    Olá Carlos,

    Obrigado pelo feedback, o fórum agradece.

    Abraço

      Data/hora atual: 27/9/2022, 18:07