MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]"Zoom" na Caixa Texto

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton em Seg 30 Maio 2016, 17:39

    Boa tarde a todos
    Garimpando aqui no forum, descobri esse excelente exemplo...
    [Você precisa estar registrado e conectado para ver este link.]

    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
    teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (100 Kb) Baixado 18 vez(es)

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  FabioPaes em Seg 30 Maio 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton em Seg 30 Maio 2016, 19:54

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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  FabioPaes em Seg 30 Maio 2016, 21:32

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

    Agora Paragrafo eu não sei como amigo...
    Anexos
    Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (64 Kb) Baixado 5 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton em Seg 30 Maio 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
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  FabioPaes em Seg 30 Maio 2016, 22:51

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

    Veja:

    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    _____________________________________________________________________
    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
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton em Seg 30 Maio 2016, 23:25

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

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton em Ter 31 Maio 2016, 00:34

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

    [Você precisa estar registrado e conectado para ver este link.]


    Criei uma msg unindo sua dica com a do Críquio.
    Vou deixar para aqueles que precisarem.
    Muito obrigado por tudo.
    Abs
    Anexos
    Teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (72 Kb) Baixado 8 vez(es)

      Data/hora atual: Sex 09 Dez 2016, 03:51