Visual Basic - Ayuda con sistema

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Ayuda con sistema

Publicado por Jesus gutierrez (8 intervenciones) el 22/01/2020 16:44:14
Buenas amigos me podrían ayudar con algo que quiero hacer, En un botón tengo que se guarden todos los datos de el empleado, pero quiero hacer que si el correo no esta bien escrito de forma que tenga @ y esas cosas no deje guardar los datos de el empleado
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.803
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Ayuda con sistema

Publicado por Andres Leonardo (1552 intervenciones) el 23/01/2020 15:05:54
no se el nivel de validacion pero si deseas puedes validar con una expresion regular de validacion de correos. o la simple que el text1 contenga "@" y un "."

Pero como te digo depende de que nivel de validaciones quieres llegar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda con sistema

Publicado por Jesus gutierrez (8 intervenciones) el 23/01/2020 15:10:35
Que quieres decir con nivel de validación? Podrías dar un ejemplo por favor
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.803
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Ayuda con sistema

Publicado por Andres Leonardo (1552 intervenciones) el 24/01/2020 20:48:47
Pues hay niveles de validacion

una validacion "simple"
podria ser

1
2
3
4
5
if  instr(txtcorreo.text , "@") > 0 and instr(txtcorreo.text , "@") > 0
 then msgbox "Correo Correcto"
else
 then msgbox "Correo Incorrecto"
End if

con esto valido que el correo tenga una @ y un .

cual es el problema que si me escriben en el texto "@." me va a salir correo valido pero @. no es una direccion.


Un nivel mucho mas exigente de formato de correo es llamar una funcion como las que estan aca

https://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/95.htm

O algo que ya es nivel profesional con expresiones regulares

https://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/302-comprobar-email-con-expresion-regular.htm
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda con sistema

Publicado por jesus gutierrez (8 intervenciones) el 29/01/2020 00:29:48
buenas amigo tengo un problema a ver si me puedes ayudar, estoy usando el codigo de el primer link y ya casi cumple el proposito que yo quiero, pero tengo un problema que aunque este la direccion de correo mal escrita se guardan los datos, como podria hacer para que solo se guarden cuando este bien escrito?

me explico:
no pudiera hacer una validacion para que cuando saliera no, no dejara guardar y tuviera que corregirlo?

MsgBox "La dirección de correo : " & Text6 & vbNewLine & _
Format(Validar_Email(Text6), "Yes/No") & " ... es válida ", vbInformation
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.803
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Ayuda con sistema

Publicado por Andres Leonardo (1552 intervenciones) el 29/01/2020 16:12:05
pues al presionar le boton guardar deberias hacer algo asi,

1
2
3
4
if Function Validar_Email(Text6.text) = false then
 
MsgBox "La dirección de correo : " & Text6.text & " ...no  es válida ", vbInformation
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Ayuda con sistema

Publicado por Jesus gutierrez (8 intervenciones) el 01/02/2020 13:36:59
Hola amigo cuando lo voy a correr me dice error de sintaxis, alguna solución? Puse el código igual al tuyo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de A. David
Val: 34
Ha aumentado su posición en 13 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Ayuda con sistema

Publicado por A. David (1 intervención) el 01/02/2020 14:50:36
El problema de ese código es la palabra Function en el if. Si se tiene una Función llamada Validar_Email que devuelve un valor de True o False, la condición de la línea 1 podría ser:

1
if Validar_Email(Text6.text) = false then

Eso si el texto donde se puso el correo electrónico está en algún cuadro de texto cuyo nombre sea Text6. Otra variante (un poco más elegante) sería como sigue:

1
If Not Validar_Email(Text6.Text) Then

Espero que te sea útil.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.803
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Ayuda con sistema

Publicado por Andres Leonardo (1552 intervenciones) el 03/02/2020 15:29:37
Excelente acotacion, A. David

SAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Jose Francisco
Val: 41
Ha aumentado su posición en 8 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Ayuda con sistema

Publicado por Jose Francisco (7 intervenciones) el 04/02/2020 16:04:54
buen dia. te paso un txt donde estan dos funciones que consegui en internet y funcionan bien...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar