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.