Botão Criar uma cópia
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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 |
