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

    Compartilhe
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton em Seg 30 Maio - 12: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 20 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  FabioPaes em Seg 30 Maio - 14: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!
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton em Seg 30 Maio - 14:54

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

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  FabioPaes em Seg 30 Maio - 16: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 6 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!
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton em Seg 30 Maio - 17: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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  FabioPaes em Seg 30 Maio - 17: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!
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton em Seg 30 Maio - 18:25

    Ok.
    Vou testar depois da janta.
    E respondo.
    Obrigado.
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]"Zoom" na Caixa Texto

    Mensagem  Mylton em Seg 30 Maio - 19: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 10 vez(es)

      Data/hora atual: Sex 18 Ago - 12:30