[Resolvido]Formulario com Caixa de Texto e caracteres limitados

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,

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

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.

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.

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

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