Access - limite de texto en cuadro de texto

hola, quiero limitar a 500 los caracteres dentro de un cuadro de texto, cuando llege a 500 que me salga un aviso diciendo que llego al limite.....buscando en internet encontre este codigo que me permite hacer el limite:

esto se pone a parte en el codigo:

Sub LimitFieldSize (KeyAscii, MAXLENGTH)
Dim C As Control
Dim CLen As Integer

Set C = Screen.ActiveControl

' Exit if a non-printable character is typed.
If KeyAscii < 32 Then Exit Sub

' Exit if typing replaces a selection.
If C.SelLength > 0 Then Exit Sub

' Fetch length of current contents + 1 for the character typed.
CLen = Len(C.Text & "") + 1

' Are there trailing spaces to contend with?
If C.SelStart + 1 > CLen Then CLen = C.SelStart + 1

' Is length of string greater than max?
If CLen > MAXLENGTH Then
Beep
KeyAscii = 0
End If

End Sub


y esto otro en el cuadro de texto, donde 50 es el limite
Sub (nombrecuadrotexto)_KeyPress (KeyAscii As Integer)
LimitFieldSize KeyAscii, 50
End Sub

este es el enlace:
http://support.microsoft.com/kb/152050/es

ahora bien, no logro hacer que me muestre el mensaje que deseo, se me ocurrio esto:

Private Sub texto2_KeyPress(KeyAscii As Integer)
LimitFieldSize KeyAscii, 500
If texto2 = 500 Then
MsgBox "Llego al limite de caracteres"
End If

End Sub

pero no funciona ¿que puedo hacer?

Hola!

El código de tu KeyPress del texto2 sólo debería decir:

...
Private Sub texto2_KeyPress(KeyAscii As Integer)
LimitFieldSize KeyAscii, 500
End Sub
...

Y en el sub tienes que cambiar la línea del beep por tu mensaje. Es decir (te pongo algunas líneas anteriores y posteriores para que te sitúes):
...
'Todo el código anterior del sub
' Is length of string greater than max?
If CLen > MAXLENGTH Then
MsgBox "Llego al limite de caracteres"
KeyAscii = 0
End If
...

A ver si así te funciona.

Un saludo,


http://neckkito.siliconproject.com.ar

hola, funciono, de echo, deje tambien la linea de beep, el msgbox lo puse debajo
gracias