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


2 participantes

    [Resolvido]Copiar um campo texto e colar num outro (Loop)

    avatar
    berninirobs
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 142
    Registrado : 14/09/2012

    [Resolvido]Copiar um campo texto e colar num outro (Loop) Empty [Resolvido]Copiar um campo texto e colar num outro (Loop)

    Mensagem  berninirobs 24/10/2023, 17:04

    Objetivo: No formulário copiar um texto do Campo1 para o Campo2 no mesmo registro.

    Tenho um código que roda corretamente que, clicando no botão de forma repetida, cópia e cola um registro por vez.
    O número de registro que o formulário apresenta é cada vez variável, assim eu queria que o loop fizesse o cópia e cola de forma automática do primeiro até o último registro.

    Eu tentei desta forma, mas o Gerador de Código fica muito zangado:  Smile

    For counter  =  start To end
    ......
    Next i

    -------------------------------- Meu Código, Muito Obrigado....

    Private Sub MeuBotao_Click()

    For i = 1 To 1
    Me.Campo1.SetFocus
    DoCmd.RunCommand acCmdCopy
    Me.Campo2.SetFocus
    DoCmd.RunCommand acCmdPaste
    DoCmd.RunCommand acCmdRecordsGoToNext
    Me.Campo1.SetFocus
    Next
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar um campo texto e colar num outro (Loop) Empty Re: [Resolvido]Copiar um campo texto e colar num outro (Loop)

    Mensagem  JPaulo 24/10/2023, 17:50

    Olá

    Acredito que seja um form continuo (continuos form), então fazemos assim num botão, que pode até estar no cabeçalho;

    Código:
    Private Sub SeuBotao_Click()
    Dim rst As DAO.Recordset
       
        Set rst = Me.Recordset
       
        rst.MoveFirst
       
        Do While Not rst.EOF
            If Not Me.Campo1.Value = "" Then
                Me.Campo2.Value = Me.Campo1.Value
            Else
                'não faz nada
            End If
            rst.MoveNext
        Loop
    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]Copiar um campo texto e colar num outro (Loop) Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Copiar um campo texto e colar num outro (Loop) Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Copiar um campo texto e colar num outro (Loop) Folder_announce_new Instruções SQL como utilizar...
    avatar
    berninirobs
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 142
    Registrado : 14/09/2012

    [Resolvido]Copiar um campo texto e colar num outro (Loop) Empty Re: [Resolvido]Copiar um campo texto e colar num outro (Loop)

    Mensagem  berninirobs 24/10/2023, 19:35

    Querido JPaulo.

    Queria perguntar uma coisa...
    Você quer casar comigo ????   Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy

    Você é impressionante.
    A próxima vez que eu viajar para o Portugal vou lhe dar de presente uma galinha caipira brasileira  Very Happy

    Eternamente Grato....
    avatar
    berninirobs
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 142
    Registrado : 14/09/2012

    [Resolvido]Copiar um campo texto e colar num outro (Loop) Empty Re: [Resolvido]Copiar um campo texto e colar num outro (Loop)

    Mensagem  berninirobs 24/10/2023, 19:42

    Resolvido....
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar um campo texto e colar num outro (Loop) Empty Re: [Resolvido]Copiar um campo texto e colar num outro (Loop)

    Mensagem  JPaulo 24/10/2023, 21:44

    Fico feliz em ajudar.
    Obrigado pelo retorno o fórum 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]Copiar um campo texto e colar num outro (Loop) Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Copiar um campo texto e colar num outro (Loop) Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Copiar um campo texto e colar num outro (Loop) Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Copiar um campo texto e colar num outro (Loop) Empty Re: [Resolvido]Copiar um campo texto e colar num outro (Loop)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2024, 08:46