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]Copiar e Colar Access Formularios

    Compartilhe

    infortech
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 20/01/2016

    [Resolvido]Copiar e Colar Access Formularios

    Mensagem  infortech em Qua 30 Mar 2016, 18:20

    Olá, eu estou com o seguinte problema, gostaria de colocar um comando para fazer o seguinte;
    Ao fazer uma busca num formulário que contenha a caixa de listagem, ao clicar no produto gostaria que ele copiasse o campo tipo (Ctrl+C)
    e ao clicar num outro campo ele colasse Tipo (CTRL+V)!

    EXEMPLO;

    CODIGO DESCRIÇÃO VALOR
    123456 MONITO 14" 280,00

    Quando clicar com o mouse sobre a linha ele copiasse o CODIGO (123456)
    Poderia ser no evento ao clicar

    Private Sub ListaClientes_Click()
    Copiar dados do campo codigo
    End Sub

    e ao clicar no campo que desejo
    ele colasse o código (123456)
    Se puderem me ajudar seria de bom grado!
    avatar
    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 11/12/2015

    Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  Gabriel Brunichaki em Qui 31 Mar 2016, 13:08

    Bom dia!

    Segue exemplo em anexo, veja se é isso.
    Anexos
    Copy_Paste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 22 vez(es)


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    infortech
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 20/01/2016

    Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  infortech em Qui 31 Mar 2016, 14:03

    Isso porém quero jogar para outro formulário!

    FORM_PRINCIPAL Abre o FORM_BUSCAR e ao clicar no FORM_BUSCAR ele fecha e cola no campo selecionado no FORM_PRINCIPAL!
    Mais acho que consigo aplicar essa seu exemplo, vou testar e retorno ok!
    avatar
    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 11/12/2015

    Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  Gabriel Brunichaki em Qui 31 Mar 2016, 14:05

    Beleza, vai ser praticamente o mesmo processo.

    Ao clicar no item: copia o código, fecha o formulário, foco no textbox que deseja, deleta o que tiver nele, cola.


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    infortech
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 20/01/2016

    Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  infortech em Qui 31 Mar 2016, 14:43

    Só para colaborar,
    Deus certo, fiz assim;

    No form de busca coloquei

    Caixa de Listagem
    Ao Clicar
    DoCmd.RunCommand acCmdCopy
    DoCmd.Close

    No outro form no campo CODIGO que eu queria colar a informação coloquei no evento ao "apertar tecla" o seguinte;

    Private Sub CODIGO_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 32 Then 'Comando para abrir o form busca 32 equivale a tecla Espaço
    DoCmd.OpenForm "F_BuscarProduto"
    Else
    If KeyCode = 13 Then ' Comando para colar o campo copiado 13 equivale a tecla enter
    Me.CODIGO.Value = Null
    DoCmd.RunCommand acCmdPaste
    End If
    End If

    Funcionou comigo, sei que há forma melhores mais como iniciante!
    Valeu Gabriel Brunichaki
    avatar
    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 11/12/2015

    Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  Gabriel Brunichaki em Qui 31 Mar 2016, 14:53

    Show!

    Não esqueça do "Resolvido"

    Abraço.


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    infortech
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 20/01/2016

    Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  infortech em Qui 31 Mar 2016, 15:35

    Bom dia

      Data/hora atual: Qui 19 Out 2017, 08:23