[Resolvido]Copiar ultimo registro para novo registro

Boa noite a todos, encontrei este código para copiar o ultimo registro para um novo registro, bom beleza ele realmente copia os dados que preciso para o novo registro, só que ele pede para depurar e os campos deste formulário que possuem setfocus ele acusa que não pode realizar o setfocus, mesmo ele estando no final do form. Alguem sabe qual é a chavinha? Obrigado

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

Experimenta colocar :

DoCmd.Save

Apos ele COLAR OS DADOS...

Se não der certo, posta o Comando Completo do Botão!

Código:


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
DoCmd.Save



Acrescentei o save, mas mesmo assim não deu, ele fica doidao, não tem nenhum setfocus neste botão, e sim nos outros campos do form



Private Sub OpSimRepeteResp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
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
DoCmd.Save
End Sub

Posta o seu BD pra dar uma olhada!

Deixa eu explicar para vc o que preciso, quem sabe vc tem uma outra saída para mim
é assim, executo transporte escolar, em alguns casos tem pais de alunos com 2 ou 3 filhos que transporto, já tentei trabalhar com 2 alunos no mesmo registro, funciona, mas não fica bom... aquele bd que vc me ajudou por exemplo se eu tiver com 2 alunos no mesmo registro e cada um for num período na van ele trará sempre os 2 na pesquisa, mesmo em turnos diferentes, então percebi que preciso fazer um registro para cada aluno mesmo que tenham o mesmo responsável.... e ai para não ter que copiar todos os dados do responsável para o irmão eu decidi colar em registro novo estes dados


pera ai vou postar

Posta seu BD, e me explique o que pretende com ele...

Ex: Eu todos os dias lanço um registro com todos os passageiros para cada veiculo...

Detalhe bem, que é pra eu entender o que pretende e ver a melhor solução!

Bom vamos la, primeiramente desculpe a demora, mas tenho 2 bebes de 77 anos que quando precisam precisam...retomando
uso este bd para controlar os passageiros do transporte escolar que faço, controlar pagamentos, emitir carne, contrato etc. Tenho alguns casos de pais que tem mais de um filho utilizando minha van... antes eu lançava 2 crianças no mesmo registro, como vc poderá ver no formPassageiros, nele lanço os dados das crianças.... hj depois de fazermos aquela consulta por placa e turno..... percebi que se as 2 crianças lançadas no mesmo registro estudarem em horários diferentes a pesquisa traz matutino e vespertino juntos por ex...... então decidi fazer um registro para cada criança mesmo sendo filhos do mesmo pai.... para não ter que digitar os dados do responsável no formResponsaveis tudo de novo para outro filho, eu gostaria de ao clicar jogar todos os dados do responsável em um novo registro.... o botão ta fazendo isto.... mas fica louco com os setFocus do resto do formulário
Agora com o bd na mao vc vai entender


https://www.dropbox.com/s/hbdhf0btiywkqaq/VanControle.rar?dl=0

Meu amigo, seu problema e que em cada Campo, no evento Apos atualizar vc move o Foco pro proximo campo....

Qual era a sua intenção em mover o Foco pro proximo campo? Pergunto pq nao vi mudanças, apos comentar a linha....

Se nao for necessario, basta comentar eles... em todos os campos...

a intenção é que ao digitar e dar enter ele já caia no campo seguinte, mas neste caso vou alterar então
Mais uma vez obrigado pela ajuda Fabio!

Ops esqueci de marcar
Abraço a todos

Nesse caso nao funciona... para isso, vc usa a propriedade INDICE DE TABULAÇÃO! Fica na Guia Outros... Começa do 0 ... dessa forma ao pressionar o tabe/enter ele vai proximo...

Bom dia Fabio
Eita que beleza nunca tinha ouvido falar na bichinha....... vlw mesmo, mais um socorro bem sucedido
Obrigado