[Resolvido]Copy/Paste dentro do mesmo registo

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

Olá Carlos,

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

Abraço

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

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

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

Obrigado ahteixeira pela ajuda,

Está perfeito.

Abraço

Olá Carlos,

Obrigado pelo feedback, o fórum agradece.

Abraço