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


3 participantes

    [Resolvido]Formulario com Caixa de Texto e caracteres limitados

    darlansandro
    darlansandro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

    [Resolvido]Formulario com Caixa de Texto e caracteres limitados Empty [Resolvido]Formulario com Caixa de Texto e caracteres limitados

    Mensagem  darlansandro 13/5/2017, 18:57

    Olá gente,

    Tenho um formulário com uma caixa de texto vinculada a um campo de uma tabela. O campo da tabela é do tipo "Memorando" sem limitação de caracteres. No formulário após a atualização da caixa de combinação preciso que a informação constante na tabela, tenha sido disponibilizada na caixa de entrada do formulário. Neste momento funciona parcialmente, pois apesar da tabela origem o campo esta com tipo "Memorando" no momento da atualização para a caixa de entrada os caracteres estão limitados. A questão esta como não limitar a caixa de texto no formulário?



    Estou disponibilizando o banco para download.

    Grato,
    darlansandro
    darlansandro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

    [Resolvido]Formulario com Caixa de Texto e caracteres limitados Empty Re: [Resolvido]Formulario com Caixa de Texto e caracteres limitados

    Mensagem  darlansandro 14/5/2017, 14:28

    Olá,

    Pesquisando encontrei nos tutoriais disponibilizados pela Microsoft a informação abaixo. Entretanto não encontrei nas propriedades do access 2010 o campo para caixa de texto chamado "Can Grow". Alguém poderia me apontar? Acredito que o procedimento pode ajudar na solução do problema.


    Text Format:    Se a caixa de texto estiver acoplada a um campo Memorando, você pode definir o valor na caixa da propriedade Text Format como Rich Text. Ao fazer isso, você pode aplicar vários estilos de formatação ao texto contido na caixa de texto. Por exemplo, você pode aplicar negrito a uma palavra e sublinhado a outra.


    Can Grow:    Esta propriedade é particularmente útil em relatórios para caixas de textos acopladas a campos Texto ou Memorando. A configuração padrão é Não. Se houver muito texto a ser exibido na caixa de texto, o texto aparecerá truncado (cortado). Entretanto, se você definir o valor da propriedade Can Grow como Sim, a caixa de texto automaticamente ajusta o tamanho vertical para imprimir ou visualizar todos os dados que ela contiver.



    Grato por qualquer ajuda
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    [Resolvido]Formulario com Caixa de Texto e caracteres limitados Empty Re: [Resolvido]Formulario com Caixa de Texto e caracteres limitados

    Mensagem  Alexandre Fim 14/5/2017, 19:44

    Darlan boa tarde,

    Fiz uma sub no VBA que carrega o campo descrição do combo "Serviços"

    1 - Inclui uma coluna no txtContratosNivel3 e a largura das colunas ficaram: 0cm;2,544cm;0cm;0cm
    2 - A origem da linha deste combo traz na consulta o campo "IdNivel2" (que é a 4a. coluna do combo)
    3 - No evento Change do combo, inclui a seguinte instrução:

    Private Sub txtContratosNivel3_Change()
    Me.txtTextoNivel3 = Me.txtContratosNivel3.Column(2)
    'Me.txtTextoNivel3.Requery
    CarregaTextoNivel3

    End Sub

    Public Sub CarregaTextoNivel3()
    On Error GoTo trata_erro
    Dim DB          As DAO.Database
    Dim rsT         As DAO.Recordset
    Dim msql        As String

       Set DB = CurrentDb
       
       msql = "SELECT textoNivel3"
       msql = msql & " FROM tblContratosNivel3"
       msql = msql & " WHERE idNivel2 = " & txtContratosNivel3.Column(3) & ""
       Set rsT = DB.OpenRecordset(msql, dbOpenSnapshot)
       
       If Not rsT.EOF Then
           txtTextoNivel3.Value = rsT("textoNivel3").Value
       Else
           txtTextoNivel3.Value = Empty
       End If
       
       rsT.Close
       Set rsT = Nothing

       Exit Sub
       
    trata_erro:
       MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
       Exit Sub



    End Sub

    E ai funcionou !!!

    Abraços e boa sorte.
    darlansandro
    darlansandro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

    [Resolvido]Formulario com Caixa de Texto e caracteres limitados Empty Re: [Resolvido]Formulario com Caixa de Texto e caracteres limitados

    Mensagem  darlansandro 14/5/2017, 22:17

    Olá Alexandre,

    Obrigado pelo grande auxilio. Entendi a solução. Pensei que houvesse algo mais simples, como usar as propriedades da caixa de texto. Agradeço sua gentileza e ajuda, realmente não havia pensado na possibilidade apresentada pelo código. Problema resolvido.


    Muito obrigado e Deus o abençoe.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3217
    Registrado : 13/12/2016

    [Resolvido]Formulario com Caixa de Texto e caracteres limitados Empty Re: [Resolvido]Formulario com Caixa de Texto e caracteres limitados

    Mensagem  Alexandre Fim 16/5/2017, 02:39

    Olá Darlan,

    Em algumas situações é necessário o uso do VBA, e através do código vc também tem mais controle sobre as rotinas do sistema.
    As vezes, o uso excessivo de consultas e macro, pode atrapalhar no desempenho do Access e também para realizar alguma manutenção.
    Se vc puder migrar tudo para código, é bem melhor pois facilita muito a manutenção.

    Abraço
    mathusalmeida
    mathusalmeida
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 30/08/2011

    [Resolvido]Formulario com Caixa de Texto e caracteres limitados Empty puxando textos longos da tabela

    Mensagem  mathusalmeida 27/3/2024, 14:36

    SeuCampo = DLookup("campoDaTabela", "suaTabela", "seuCritério=" & Me!suaLista.Column(0))

    Conteúdo patrocinado


    [Resolvido]Formulario com Caixa de Texto e caracteres limitados Empty Re: [Resolvido]Formulario com Caixa de Texto e caracteres limitados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/4/2024, 05:16