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]"Zoom" na Caixa Texto

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1007
    Registrado : 23/08/2010

    [Resolvido]"Zoom" na Caixa Texto Empty [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton 30/5/2016, 17:39

    Boa tarde a todos
    Garimpando aqui no forum, descobri esse excelente exemplo...
    https://www.maximoaccess.com/t12103-abrir-um-form-de-pesquisa-baseado-na-caixa-texto-clicada-com-as-mesmas-informacoes

    Cai como uma luva para o que to fazendo.
    Adaptei o código para 2 exemplos:
    1) Form processo - o sub form  funciona sozinho, todavia abrindo pelo for processo não.
    2) Form processo 1- coloquei 2 campos no form pesquisa 1 e não roda.

    Outra duvida.
    Como faço para permitir paragrafo nesses campos? Anulando o teclado. Já que a tecla enter e outras interferem?

    Anexo o projeto e o código original
    Obrigado
    Anexos
    [Resolvido]"Zoom" na Caixa Texto Attachmentteste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (100 Kb) Baixado 27 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]"Zoom" na Caixa Texto Empty Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  FabioPaes 30/5/2016, 19:32

    Item 1 (mude para isto)

    Private Sub btnAmpliarResposta_Click()
    DoCmd.OpenForm "Pesquisa", acNormal
    [Forms]![Pesquisa].[txtMemo] = Me.DecisaoJudicial
    End Sub


    Item 2:

    Mude os campos txtMemo e txtMemo2 para Nao Acoplado ( va na fonte de controle do campo e apague o tem la.) e coloque este Codigo na Lupa:

    Private Sub btnAmpliarResposta_Click()
    DoCmd.OpenForm "Pesquisa1", acNormal ' Abre o Formulario
    [Forms]![Pesquisa1].[txtMemo] = Me.DecisaoJudicial 'Passa o de um formulario para o outro
    [Forms]![Pesquisa1].[txtMemo1] = Me.RespostaDecisao
    End Sub


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1007
    Registrado : 23/08/2010

    [Resolvido]"Zoom" na Caixa Texto Empty Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton 30/5/2016, 19:54

    Fiz as mudanças sugeridas e não rolou.
    tem como permitir o paragrafo?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]"Zoom" na Caixa Texto Empty Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  FabioPaes 30/5/2016, 21:32

    Estranho não ter Funcionado... Veja aqui seu Exemplo.

    Agora Paragrafo eu não sei como amigo...
    Anexos
    [Resolvido]"Zoom" na Caixa Texto AttachmentTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (64 Kb) Baixado 16 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1007
    Registrado : 23/08/2010

    [Resolvido]"Zoom" na Caixa Texto Empty Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton 30/5/2016, 22:34

    Ok.
    Vou ver o que deu errado por aqui.
    irei comparar para aprender.
    Vou deixar em aberto, talvez alguém saiba como colocar paragrafo.
    Obrigado Fábio
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]"Zoom" na Caixa Texto Empty Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  FabioPaes 30/5/2016, 22:51

    Uma rápida pesquisa aqui no Fórum encontrei o que precisa amigo.

    Veja:

    [Resolvido]"Zoom" na Caixa Texto 2cs7vvl


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1007
    Registrado : 23/08/2010

    [Resolvido]"Zoom" na Caixa Texto Empty Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton 30/5/2016, 23:25

    Ok.
    Vou testar depois da janta.
    E respondo.
    Obrigado.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1007
    Registrado : 23/08/2010

    [Resolvido]"Zoom" na Caixa Texto Empty Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton 31/5/2016, 00:34

    Oi.
    Fábio.
    Sua dica foi ótima.
    Achei uma dica no fórum.

    https://www.maximoaccess.com/t4016-resolvidocomo-adicionar-um-novo-paragrafo-dentro-de-uma-caixa-de-texto


    Criei uma msg unindo sua dica com a do Críquio.
    Vou deixar para aqueles que precisarem.
    Muito obrigado por tudo.
    Abs
    Anexos
    [Resolvido]"Zoom" na Caixa Texto AttachmentTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (72 Kb) Baixado 24 vez(es)

    Conteúdo patrocinado


    [Resolvido]"Zoom" na Caixa Texto Empty Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:21