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]Botão para copiar campo do formulário

    Compartilhe
    avatar
    sdiney_nsjr
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 22/05/2016

    [Resolvido]Botão para copiar campo do formulário

    Mensagem  sdiney_nsjr em 15/5/2017, 16:01

    Quero colocar um botão que copie os dados de alguns campos do formulário..

    Faço manualmente (Ctrl+C) com os dados busco informações em alguns sites..

    queria tirar o trabalho de copiar manualmente.. são muitos itens aproximadamente 400, chega no final do dia minha mão fica travada na posição Ctrl+C  =/
    só queria um botão ao lado do campo, que ao clicar já faz a copia do campo ao lado.

    Não sei se é assim tão simples..

    de qualquer forma, aguardo uma ajuda.

    Vou deixar minha base (aberta) aqui.

    Os campos que precisam do botão ao lado (para copiar) são:


    • Booking
      Master Waybill
      Container numbers

    e o campo que esta em amarelo abaixo, tem um número de processo..

    Desde já agradeço!
    Anexos
    Edit_events.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (85 Kb) Baixado 10 vez(es)

    Phillip_Junior
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 09/12/2016

    Botão para copiar campo do formulário

    Mensagem  Phillip_Junior em 27/5/2017, 19:16

    Olá sdiney_nsjr

    Creio que o que você precisa era isso:

    ' EXEMPLO COMANDO COPIAR TEXTO DO CAMPO

    Private Sub copy_Booking_Click()
    Me.Booking_.SetFocus
    DoCmd.RunCommand acCmdCopy
    End Sub


    Private Sub copy_Master_Waybill_Click()
    Me.Master_Waybill.SetFocus
    DoCmd.RunCommand acCmdCopy
    End Sub


    Private Sub copy_Containers_Numbers_Click()
    Me.Containers_Numbers.SetFocus
    DoCmd.RunCommand acCmdCopy
    End Sub



    Explicando:

    O acess já tem o comando definido para copiar texto
    DoCmd.RunCommand acCmdCopy

    Ocorre que para que ele realize esse comando através de um botão, você precisa informar no evento clicar desse botão de qual caixa de texto você quer copiar e armazenar esse texto em cache para colar.

    Acima fiz um exemplo como está no seu projeto no qual cada caixa de texto que você informou tem um botão ao lado e ao clicar ele copia o texto da caixa texto e armazena em cache para você colar.

    Obs: A função colar pode ser feita pelas teclas ctrl+v ou botão direito do mouse, onde aceitar, em um navegador, bloco de notas ou editores ou até mesmo caso você tenha algum campo especifico para colar dentro do seu projeto ou planilha através tbm linha de códigos.

    Segue seu projeto alterado. Dúvidas ! compartilhe conosco

    Abraços
    Anexos
    Edit_events.zip
    Usando CTRL+C dentro de um formulário
    Você não tem permissão para fazer download dos arquivos anexados.
    (119 Kb) Baixado 28 vez(es)
    avatar
    sdiney_nsjr
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 22/05/2016

    Re: [Resolvido]Botão para copiar campo do formulário

    Mensagem  sdiney_nsjr em 29/5/2017, 15:37

    Obrigado pelo retorno, pelo ajuste em minha base, fiquei muito satisfeito!

    Obrigado meu amigo!


    Deus abençoe =)

    Phillip_Junior
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 09/12/2016

    [Resolvido]Botão para copiar campo do formulário

    Mensagem  Phillip_Junior em 29/5/2017, 18:04

    O fórum agradece o retorno

    Abraços


    .................................................................................
    Phillip_Junior
    Analista de Sistemas

      Data/hora atual: 19/10/2018, 08:28