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

    avatar
    infortech
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar e Colar Access Formularios Empty [Resolvido]Copiar e Colar Access Formularios

    Mensagem  infortech 30/3/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!
    Gabriel Brunichaki
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar e Colar Access Formularios Empty Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  Gabriel Brunichaki 31/3/2016, 13:08

    Bom dia!

    Segue exemplo em anexo, veja se é isso.
    Anexos
    [Resolvido]Copiar e Colar Access Formularios AttachmentCopy_Paste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 46 vez(es)


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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar e Colar Access Formularios Empty Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  infortech 31/3/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!
    Gabriel Brunichaki
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar e Colar Access Formularios Empty Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  Gabriel Brunichaki 31/3/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
    avatar
    infortech
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar e Colar Access Formularios Empty Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  infortech 31/3/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
    Gabriel Brunichaki
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar e Colar Access Formularios Empty Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  Gabriel Brunichaki 31/3/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
    avatar
    infortech
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar e Colar Access Formularios Empty Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  infortech 31/3/2016, 15:35

    Bom dia

    Conteúdo patrocinado


    [Resolvido]Copiar e Colar Access Formularios Empty Re: [Resolvido]Copiar e Colar Access Formularios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 03:18