MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Como copiar campos especificos do formulario

    Compartilhe

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 em Sex 05 Maio 2017, 15:52

    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?


    Última edição por Careca2014 em Ter 20 Jun 2017, 19:16, editado 1 vez(es)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  JPaulo em Sex 05 Maio 2017, 16:22

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 em Sex 05 Maio 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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Alexandre Neves em Dom 11 Jun 2017, 21:50

    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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 em Dom 11 Jun 2017, 23:18

    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

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 em Dom 18 Jun 2017, 23:59

    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!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  JPaulo em Seg 19 Jun 2017, 17:52

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Silvio em Seg 19 Jun 2017, 18:32

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 em Seg 19 Jun 2017, 21:55

    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

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  JPaulo em Ter 20 Jun 2017, 09:33

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 em Ter 20 Jun 2017, 14:13

    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!

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 em Ter 20 Jun 2017, 19:11

    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

    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  JPaulo em Qua 21 Jun 2017, 17:43

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 em Qui 29 Jun 2017, 04:44

    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?
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  JPaulo em Qui 29 Jun 2017, 10:35

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 em Qui 29 Jun 2017, 21:37

    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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  JPaulo em Qui 29 Jun 2017, 21:45

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Ter 21 Nov 2017, 21:03