[Resolvido]TEXT BOX Insuficiente NOVO ERRO

Boa tarde pessoas!

Estou com um problema no access 2010:
O texto contido em uma tabela memorando é muito grande para ser exibido em um TextBox convencional.Existe algum controle que suporta textos muito longos em um form do Acces 2010?

Desde já agradeço!!!

Muito grande? Ultrapassa 65 mil caracteres?

Não chega a tanto.
Deu problema com um campo de 3040 caracteres somente.

O estranho que para "Input" funciona perfeitamente ( O usuário copia e cola de um modelo de Word) mas quando desejo recuperar o texto para realizar uma alteração ocorre erro. se quiser posso puxar o log do erro amanhã. Mas acredito que o problema esta no TextBox. (sou aprendiz ainda ^^)

Campos memorandos podem ter até 65.000 caracteres. Por acaso não está pegando esse texto de uma consulta? Consultas não conseguem pegar mais que 255 caracteres. Se for esse o caso, melhor buscar diretamente na tabela.

O erro que esta acontecendo é 2176: A configuração desta propriedade está muito longa.

Acredito que o erro é este mesmo que você disse amigo, mas o app esta baseado em logicas para consulta nos botões, não existe outro meio sem usar tabela diretamente no form?

Você pode desvincular apenas esse campo da consulta e fazer ele buscar o dado da tabela com algo assim:

Me.NomeDoCampo = DLookup("NomeDoCampo", "NomeDaTabela", "Código=" & Me.Código)

Isso pode ser no evento "Ao carregar" e/ou "No atual" por exemplo.

Vou tentar amanha!! grato pela ajuda

Funcionou perfeitamente!!! grato pela resposta!!!

Agradecemos pelo retorno.

Ocorreu outro erro na inclusão de dados muito longos.
Existe método parecido com este Dlook para inclusão de informações?

O DLookup costuma trazer todo o texto do campo. Mas pode tentar tambem por Recordset:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT NomeDoCampo FROM NomeDaTabela WHERE Código = " & Me.Código & "")

Me.NomeDoCampo = rs!NomeDoCampo

rs.Close
Set rs = Nothing

Na verdade o Dlookup funcionou ara retornar o valor, to falando na hora de incluir valores na tabela.

Atualmente estamos usando o docmd.runsql com instrução de insert, existe outro modo?

Pode ser o mesmo exemplo acima ao contrário:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaTabela", dbOpenTable)

rs.AddNew

rs!NomeDoCampo1 = Me.NomeDoCampo1DoForm
rs!NomeDoCampo2 = Me.NomeDoCampo2DoForm

rs.Update

rs.Close
Set rs = Nothing

Tambem pode fazer assim:

CurrentDb.Execute "INSERT INTO NomeDaTabela(Campo1, Campo2, Campo3) VALUES('" & Me.Campo1 & "', '" & Me.Campo2 & "', '" & Me.Campo3 & "')'

Bem, por enquanto e em meus testes deu tudo certo!!
para curiosidade segue os códigos que alterei:

Classe Historico

Código:


Public Function fInsereMsg()
    DoCmd.SetWarnings False
  'DoCmd.RunSQL ("INSERT INTO tb_historico(historico_protocolo, historico_usuario, historico_horario, historico_data,historico_corpo) VALUES " & _
                                            "('" & getProtocolo & "','" & user.getNome & "', '" & Time & "', '" & Date & "', '" & getCorpo & "')") 
    Dim rs As dao.Recordset
    Set rs = CurrentDb.OpenRecordset("tb_historico")
   
    rs.AddNew
       
        rs!historico_protocolo = getProtocolo
        rs!historico_usuario = user.getNome
        rs!historico_horario = Time
        rs!historico_data = Date
        rs!historico_corpo = getCorpo
       
    rs.Update
   
    rs.Close
    Set rs = Nothing

   
    DoCmd.SetWarnings True
End Function


Código:



Public Function fAlteraMsg(txt_field As TextBox)
'    Dim rs As DAO.Recordset
'    Dim db As DAO.Database
'
'    Set db = CurrentDb
'    Set rs = db.OpenRecordset("SELECT * FROM tb_historico WHERE historico_codigo like '" & getHist_cod & "'")
'
'    txt_field.SetFocus
'    txt_field.Text = rs("historico_corpo")
'    rs.Close
'
    txt_field.Value = DLookup("historico_corpo", "tb_historico", "historico_codigo = " & getHist_cod & "")

       
End Function


Muito obrigado pela ajuda!!
=)