domingo, 26 de junio de 2011

Introducir Datos: Comprobación de correo electrónico

Vamos a introducir un pequeño código para comprobar que la dirección de correo electrónico esta bien escrita. Comprobamos que tenga una “@” y “.”, aunque eso no implica de que exista esa dirección.



PUBLIC SUB TextBoxCorreo_LostFocus()
'comprobar si el “@” y el “.” está en el textboxcorreo
IF InStr((TextBoxCorreo.text), ("@")) = 0 or InStr((TextBoxCorreo.text), (".")) = 0 THEN
Message.info("escriba una dirección de correo válida,falta @ o .")
TextBoxCorreo.SetFocus
ELSE
ENDIF
END


Lo coloqué en el evento lostfocus para que lo compruebe apenas pases a editar otro campo.
Añadiendo luego de la salida del mensaje, TextBoxCorreo.SetFocus hago que vuelva a editar el campo.


No hay comentarios:

Publicar un comentario en la entrada