Careca2014 5/5/2017, 17:17
Obrigado pela atenção JPaulo, quando preciso copiar e colar todo o registro para um novo, eu uso estes comandos que peguei aqui no fórum mesmo
Private Sub btColaResponsavel_Click()
DoCmd.RunCommand acCmdSelectRecord ' seleciona registro
'DoCmd.RunCommand acCmdCopy ' copia registro
' na linha abaixo poderia ser colocado um comando para ir para um registro novo, por exemplo:
'DoCmd.GoToRecord , "", acNewRec ' vai para registro novo
DoCmd.RunCommand acCmdPaste ' cola registro
MsgBox "Todos os dados do Responsavel, foram colados com sucesso!"
DoCmd.Save
Me.btAvançaResponsaveis.SetFocus
End Sub
Private Sub btCopiaResponsavel_Click()
DoCmd.RunCommand acCmdSelectRecord ' seleciona registro
DoCmd.RunCommand acCmdCopy ' copia registro
' na linha abaixo poderia ser colocado um comando para ir para um registro novo, por exemplo:
'DoCmd.GoToRecord , "", acNewRec ' vai para registro novo
'DoCmd.RunCommand acCmdPaste ' cola registro
MsgBox "Todos os dados deste Responsavel foram copiados com sucesso e estão prontos para serem colados em um novo Cupom."
DoCmd.Save
Me.btAvançaResponsaveis.SetFocus
End Sub
O que preciso agora é colar apenas os campos cmpNome e cmpEnd