Access - Campo memo delimitado

Que tal!

Mi pregunta es, ¿cómo puedo establecer un límite en un campo memo?

Es decir, tengo un campo de comentarios en un formulario, pero no puede pasar de 1000 caracteres de largo. Y quiero que cuando llegue al tope (1000) ya no pueda seguir escribiendo el usuario.

¿O de qué otra manera puedo controlarlo?

tengo esto en el evento keypress, pero no funciona

If (Len(COMENTARIOS.Value) > 1000) Then
COMENTARIOS.Value = Mid(COMENTARIOS.Value, 1, 1000)
End If

La propiead Value no cambia hasta después del event AfterUpdate, sin embargo la propiedad Text lo hace a medida que vas escribiendo. De paso, yo cambiaría el event KeyPress por el evento Change, que se produce a medida que va cambiando el texto.

Private Sub Comentarios_Change()
If (Len(COMENTARIOS.TEXT) > 1000) Then
COMENTARIOS.TEXT= Mid(COMENTARIOS.Value, 1, 1000)
End If

Saludos
José Bengoechea Ibaceta