... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Botão Criar uma cópia

Usuário Jarbas:

Bom dia,

Preciso criar um botão "Criar uma Cópia". Por exemplo: tenho o registro 1 no formulário e quero incluir o mesmo registro, só mudando o número da revisão. 

Como eu poderia fazer esse botão?

Suporte:

Jarbas, experimente este código:

'seleciona o registro atual
DoCmd.RunCommand acCmdSelectRecord
'copia os dados
DoCmd.RunCommand acCmdCopy
'vai para o novo registro no formulário
DoCmd.GoToRecord , , acNewRec
'cola os dados no novo registro
DoCmd.RunCommand acCmdPaste
'limpa campo número da revisão
me!Revisão = null
'seleciona o foco para o campo revisão
me!Revisão.setFocus

Usuário Jarbas :

Muito Obrigado, Avelino!

O Botão funcionou!

 


 

 


Não há comentário

Envie seu comentário: