[Resolvido]Limpar caixa de texto

Olá, no meu form faço uma filtragem de registros em um listbox; seleciono um item; e seus dados(significados), que no caso da palavra selecionada, é exibido abaixo em uma caixa de texto. Depois necessito que antes do usuário efetuar nova filtragem, os controles sejam restaurados, inseri um button: voltar o listbox para exibição inicial e limpar as caixas de texto. Ocorre que a caixa de texto que o usuário vai digitando e filtrando o listbox (txtProcurar) limpa normalmente. Entretanto a segunda caixa de texto (txtDefinicao), que exibe os significados, não. Dá erro 3326 "Este recordset não pode ser atualizado" e não restaura a caixa de texto.
O mestre JPaulo me ajudou ontem com os limites de caracteres acima de 255 desta caixa de texto, conforme tópico do link abaixo.

https://www.maximoaccess.com/t33307-resolvidomais-de-255-caracteres

https://www.dropbox.com/s/xovbukamxhew80u/BdSilmaril_OLD.zip?dl=0

Em anexo é a posição atual do BD, com a funcionalidade de classificar o listbox pelas colunas.

ALAN

Isso Ocorre pq o Campo está Vinculado a um Campo da tabela, e como o formulário possui como origem dos dados uma consulta Agrupada apresenta esse Erro.

Para resolver seu Problema, desvincule o Campo txtDefinição. E aplique o Valor nele a medida que clicar na Caixa de Listagem!

FabioPaes, realmente o que estava provocando o erro era a vinculação. Exclui a caixa de texto e inclui uma nova desvinculada. Com essa modificação tive de fazer umas alterações no evento click do listbox para continuar carregando os dados conforme o registro clicado pelo usuário. Sendo assim tudo resolvido, segue como ficou:

'codigo compartilhado anteriormente pelo colega JPaulo
'-------------------------------------------------------
Private Sub ListBox1_Click()

Dim Linha As Integer

Linha = Me.listBox1.ListIndex + 1

Dim MeuFiltro
MeuFiltro = "Codigo =" & Me.listBox1.Column(0, Linha)
Me.Filter = MeuFiltro

DoCmd.ApplyFilter , MeuFiltro
Me.Recalc

Me.txtDefinicao = listBox1.Column(2, Linha) ' adicionei essa linha para exibir os dados na caixa de texto
' e adicionei txtDefinicao = empty no botão Restaurar
End Sub

ALAN