MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

    [Resolvido]Como copiar campos especificos do formulario

    avatar
    Careca2014
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 5/5/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 20/6/2017, 19:16, editado 1 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  JPaulo 5/5/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new Instruções SQL como utilizar...
    avatar
    Careca2014
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Alexandre Neves 11/6/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
    avatar
    Careca2014
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 11/6/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
    avatar
    Careca2014
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 18/6/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!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  JPaulo 19/6/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new Instruções SQL como utilizar...
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Silvio 19/6/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Careca2014
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 19/6/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

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  JPaulo 20/6/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new Instruções SQL como utilizar...
    avatar
    Careca2014
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 20/6/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!
    avatar
    Careca2014
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 20/6/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

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  JPaulo 21/6/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new Instruções SQL como utilizar...
    avatar
    Careca2014
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 29/6/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?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  JPaulo 29/6/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new Instruções SQL como utilizar...
    avatar
    Careca2014
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Careca2014 29/6/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.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  JPaulo 29/6/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como copiar campos especificos do formulario Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Como copiar campos especificos do formulario Empty Re: [Resolvido]Como copiar campos especificos do formulario

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:29