Contador de Texto
Tengo un formulario con un TextBox en el que tengo que ingresar 500 caracteres como máximo. Quiero saber como hacer que un control me despliegue el numero de caracteres ingresados (incluido espacios) y me advierta cuando llegue a los 500 (con un msgbox) y no me permita añadir más caracteres.
1 respuesta
Respuesta de ifrancoz
1
Text1.Maxlength=500
Private Sub Text1_Change()
If len(Text1) > 499
MsgBox = "Completó los 500 caracteres"
' aquí hago cualquier cosa
End Sub
End Sub
Suerte !
Private Sub Text1_Change()
If len(Text1) > 499
MsgBox = "Completó los 500 caracteres"
' aquí hago cualquier cosa
End Sub
End Sub
Suerte !
Muchas gracias pero me sale un mensaje al querer ingresar texto en el textbox. Este es:
Error de compilación:
No se ha definido Sub o Function
Error de compilación:
No se ha definido Sub o Function
Text1. Maxlength=500 ' Esto se coloca en tiempo de diseño en la propiedades del campo texto.
Que pena! me quedaron 3 errores faltó la clausula then , sobra el = y es End If (en lugar de End Sub) lo correcto es lo siguiente:
Private Sub Text1_Change()
If len(Text1) > 499 then
MsgBox "Completó los 500 caracteres"
' aquí hago cualquier cosa
End If
End Sub
Suerte !
Que pena! me quedaron 3 errores faltó la clausula then , sobra el = y es End If (en lugar de End Sub) lo correcto es lo siguiente:
Private Sub Text1_Change()
If len(Text1) > 499 then
MsgBox "Completó los 500 caracteres"
' aquí hago cualquier cosa
End If
End Sub
Suerte !
