[Resolvido]Como copiar campos especificos do formulario

Bom dia Pessoal! Eu preciso apenas copiar alguns campos do registro atual para o novo registro, dentro do mesmo formulário. O comando para copiar o registro todo eu tenho aqui, mas eu precisava apenas campos específicos, é possível?

Se você nos mostrar "O comando para copiar o registro todo eu tenho aqui", podemos adaptar.

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

Boa noite,
Tente

Código:

Private Sub btCopiaResponsavel_Click()
    Dim rst AS DAO.Recordset

    Set rst = Me.RecordsetClone
    do while not rst.eof
        If  Me.Bookmark = rst.Bookmark then
            rst.AddNew
            rst!cmpNome = Me.cmpNome
            rst!cmpEnd = Me.cmpEnd
            rst.Bookmark = me.LastModified
            rst.Update
            exit do
        End If
        rst.movenext
    loop
    rst.Close
End Sub

Boa noite Alexandre, tentei usar mas ta aparecendo uma mensagem de erro de compilação Tipos incompativeis.
e mostra o sinal de igual de bookmarks em azul

If Me.Bookmark = rst.Bookmark Then

agradeço a colaboração

em tempo eu uso o 2013, experimentei fuçar no codigo e mudei para

If Me.Bookmark = rst.Bookmarkable Then

ele passou, mas ai parou neste linha

rst.Bookmark = Me.LastModified

sublinhando me.lastmodifield , acusando erro de compilação metodo ou membro de dados nao encontrado

Boa noite pessoal, se mais alguem puder ajudar eu agradeço, to emperrado nisto faz dias, e ja vasculhei na internet e nao consigo resolver. Obrigado!

Porque você não tira a linha "rst.Bookmark = me.LastModified" para ver se passa ?

Boa tarde a todos e se me permitem um pitaco.

Fernando, posta no fórum partes do sistema para lhe ajudarmos....fica mais fácil e simples.

Grato.

Boa noite pessoal
Agradeço as tentativas de colaboração aqui vai um link para baixar o bd
O que preciso é apenas copiar para o proximo registro do mesmo formulario o nome e o endereço
Mais uma vez obrigado

https://www.dropbox.com/s/cv9eckpr4e016u1/Van.zip?dl=0

Faça o teste no currente do formulario;

Código:

Private Sub Form_Current()
    If Me.NewRecord Then
      Me.CmpResponsavel.Value = Nz(DLast("Responsavel", "TabPassageiros"), "")
      Me.CmpEndResponsavel.Value = Nz(DLast("EndResponsavel", "TabPassageiros"), "")
    End If
End Sub

Bom dia a todos!
JPaulo obrigado pela atenção, testei e funciona perfeitamente no current, deixa eu incomodar mais um pouco, fiz algumas tentativas aqui para colocar este codigo em um botao, porque nao sao todos os registros que preciso copiar campos, entao quero que apenas em alguns casos para diminuir a digitacao eu possa copiar, nao obtive sucesso, poderia me informar mais este detalhe?
Obrigado!

Boa tarde a todos!
JPaulo, desculpe eu tava dormindo quando olhei o codigo e tentei colocar em botão, agora depois de descansar foi tranquilo bastava acrescentar o comando para criar um novo registro, para quem possa interessar ai vai

Código:



Private Sub btnCopia_Click()
DoCmd.GoToRecord , "", acNewRec ' vai para registro novo
If Me.NewRecord Then
    Me.CmpResponsavel.Value = Nz(DLast("Responsavel", "TabPassageiros"), "")
  Me.CmpEndResponsavel.Value = Nz(DLast("EndResponsavel", "TabPassageiros"), "")
End If
End Sub



Obrigado pelo retorno o forum agradece.

Boa noite amigos
Desculpe, fiquei na duvida se devia abrir novo topico, ja que o assunto ainda é o mesmo. Se ao invés de copiar o ultimo registro eu quiser copiar o registro que esta aberto no momento, qual mudança eu teria que fazer?

Ola;

Veja o simples;

Código:

Private Sub btnCopia_Click()
Dim strResp$
Dim strEndResp$

strResp = Me.CmpResponsavel.Value
strEndResp = Me.CmpEndResponsavel.Value

DoCmd.GoToRecord , "", acNewRec
    If Me.NewRecord Then
        Me.CmpResponsavel.Value = strResp
        Me.CmpEndResponsavel.Value = strEndResp
    End If
End Sub

Valeu JPaulo! Desculpe mas é que sou um macaquinho, repito o que vejo mas sem saber exatamente a função de um parenteses ou um sifrao, por isso que as vezes o que simples e facil pra voce para mim é muito complicado, mas aos pouco de tanto repetir vou aprendendo truques novos.
Muito obrigado pela ajuda e aproveito para agradecer a todos os demais que sempre estao dispostos a ajudar a encontrar soluções.

Fico feliz por estar a ajudar no seu crescimento de conhecimentos.

O $ substitui a palavra String
A % substitui a palavra Integer

Serve apenas para indicar se a variavel é texto ou numerica, de forma a encurtar o proprio texto nos codigos.