Mascara de entrada con varios requerimientos
Saludos,
Mi duda es la siguiente, tengo un formulario para cambiar de contraseña con los campos contraseña actual, contraseña nueva y confirmación de la contraseña nueva, a estos en propiedades, datos, mascara de entrada seleccioné contraseña sin embargo necesito que además de esta mascara de entrada para esos textbox necesito que cumpla con la mascara que todas las letras que se tecleen sean mayúsculas y que se puedan meter máximo 8 caracteres.
Hay alguna opción para lograr lo requerido.
1 Respuesta
Como limitar la cantidad de caracteres con una función
En un módulo estándar pegas esta función
----------------------------------------------------------------
Public Function MaxChar(nChar As Long)
With Screen.ActiveControl
' si el número de caracteres supera
' el límite impuesto por el usuario
If Len(.text) > nChar Then
' eliminamos todos los caracteres
' que excedan del número
.text = Left$(.text, nChar)
' ponemos el cursor al final
.SelStart = nChar
' sonido de alarma
Beep
' si se quiere dar un mensaje...
msgbox "Longitud máxima " & nChar & " caracteres"
End If
End With
End Function
--------------------------------------------------------------------------
Esto es para que te sirva en mas de una ocasión .
En el evento "al cambiar" del cuadro pones = maxchar(8) y eso limitara la cantidad de caracteres a 8 .
en cuanto a ponerlos en mayúsculas usando la función Upcase en el evento antes de actualizar podrías usar me.nombredelcuadro= Upcase ( me.nombredelcuadro)
