[Resolvido]Limitar a quantidade de caracteres do capo memorando do access 2010

Olá pessoal, um grande abraço a todos,
esse fórum é o maior sucesso,

meus amigos minha dúvida é:
Tenho um campo no meu formulário do tipo Memorando, e quero limitar a quantidade de caracteres, pois o usuário só pode digitar no máximo uns 400 caracteres. Esclareço se o campo ficar sem limite, o usuário vai escrever o relatório muito grande e implicará em outras páginas.

Boa tarde,

Acho que este codigo no seu campo deve servir....

Private Sub "Seu campo"_Change()
If Len("Seu campo".Text) >= 400 Then '400 é o nº de letras
MsgBox "Demasiadas letras.", vbInformation, "Info"

End If
End Sub

mas vou dar mais uma olhada se encontro melhor.

apos pesquisa aki no forum encontrei o que precisa...

Autoria JPaulo

http://maximoaccess.forumeiros.com/t9412-resolvidolimite-de-caracteres-duas-acoes-caso-o-limite-seja-excedido-ou-nao


----EVENTO: Ao alterar----
Private Sub Contrato_Change()
Dim I As Integer, intSomaCarateres As Integer
If Len(Me.Contrato.Text) > 214 Then
Me.Contrato.Text = Left(Me.Contrato.Text, 214)
Me.Contrato.SelStart = 214
MsgBox "Limite de caracteres para este campo, excedido!", vbExclamation, "Aviso"
End If
intSomaCarateres = 0
For I = 1 To Me.Contrato.SelStart
intSomaCarateres = I
Next I
Me.txtTotalCarateresC.value = intSomaCarateres
If Me.txtTotalCarateresC.value = 0 Then
Me.txtTotalCarateresC.value = "0"
End If
End Sub

Gente é por isso que eu adoro esse Fórum,
Recebi o código e apenas escrevi no campo tipo memorando do formulário e pronto minha dor de cabeça estava resolvido,
que barato só vocês mesmo para fazer eu esquecer daquela derrota para a Alemnha,
Valeu galera,

Valeu então....    
Marque como [RESOLVIDO].

O Forum agradece...