| Pregunta: | 55567 - LIMITAR EL INGRESO EN UN CAMPO MEMO |
| Autor: | Nicolás Pailhé |
| Buenas gente.. los molesto por lo siguiente:
Mi intención es limitar la cantidad de caracteres a un campo memo, normalmente la cantidad de caracteres supera ampliamente los 300 (por eso no usé un campo de texto) pero necesito limitarlo por ejemplo a 600 caractéres. Este primer paso ya lo pude resolver con el comando len.. pero no encuentro la manera de "avisarle" al usuario que se excedió con la escritura, mi intención es que al salir del campo mediante un mensaje se le informe al usuario del exceso y que luego el cursor se posicione en el carácter nro 600 para de alguna manera informarle al usuario hasta donde tendría "espacio" para escribir. (como si fuera un SetFocus pero dentro del campo memo). Muchas Gracias.. Nicolás | |
| Respuesta: | Nicolás Pailhé |
| Bueno les escribo para informarles que encontré una manera de resolverlo, les paso el dato por si alguno lo llegara a necesitar..
En este caso creo dos variables y cada vez que el usuario presiona una tecla aumenta en 1 el valor de la variable Y, al llegar al límite (en este caso le puse 1000) le va a avisar al usuario y no le va a permitir seguir escribiendo, sólo hace falta agregarle la validación para permitirle al usuario presionar la tecla "backspace" saludos ... Nicolás Option Compare Database Dim x As Integer Dim y As Integer Private Sub Form_Open(Cancel As Integer) DoCmd.GoToRecord , , acNewRec x = 0 y = 0 End Sub Private Sub Documentación_KeyPress(KeyAscii As Integer) If y > 1000 Then MsgBox "Ha llegado al límite de escritura" DoCmd.CancelEvent y = 100 Else x = y + 1 y = x End If End Sub | |