ValidEntry = Cierto
Con frmDataEntry
‘Color predeterminado
.txtVisitDate.Color de espalda = vb Blanco
.txtVisitorName.Color de espalda = vb Blanco
.txtCompanyName.Color de espalda = vb Blanco
.txtMobile.Color de espalda = vb Blanco
.txtEmail.Color de espalda = vb Blanco
.txtReasonOfVisit.Color de espalda = vb Blanco
‘Validación de la fecha de la visita
Si Podar(.txtVisitDate.Valor) = «» Luego
MsgBox «La fecha de la visita está en blanco. Seleccione la fecha en el control de calendario»., vbOKOnly + vbInformación, «Fecha de visita»
.txtVisitDate.Color de espalda = vbRed
.txtVisitDate.Enfocar
ValidEntry = Falso
Salida Función
Fin Si
‘Validación del nombre del estudiante
Si Podar(.txtVisitorName.Valor) = «» Luego
MsgBox «Por favor ingrese el nombre del visitante»., vbOKOnly + vbInformación, «Nombre del visitante»
.txtVisitorName.Color de espalda = vbRed
.txtVisitorName.Enfocar
ValidEntry = Falso
Salida Función
Fin Si
Validando género
Si .optFemale.Valor = Falso Y .optMale.Valor = Falso Luego
MsgBox «Por favor seleccione el género.», vbOKOnly + vbInformación, «Género»
ValidEntry = Falso
Salida Función
Fin Si
Validación del nombre de la empresa
Si Podar(.txtCompanyName.Valor) = «» Luego
MsgBox «Por favor ingrese el nombre del padre»., vbOKOnly + vbInformación, «Nombre de empresa»
.txtCompanyName.Color de espalda = vbRed
.txtCompanyName.Enfocar
ValidEntry = Falso
Salida Función
Fin Si
‘Validación del número de móvil
Si Podar(.txtMobile.Valor) = «» O Len(.txtMobile.Valor) Yes; 10 O No IsNumeric(.txtMobile.Valor) Luego
MsgBox «Por favor, introduzca un número de móvil válido.», vbOKOnly + vbInformación, «Número de teléfono móvil»
.txtMobile.Color de espalda = vbRed
.txtMobile.Enfocar
ValidEntry = Falso
Salida Función
Fin Si
‘Validación de correo electrónico
Si Email valido(.txtEmail.Valor) = Falso Luego
MsgBox «Introduzca una ID de correo electrónico válida»., vbOKOnly + vbInformación, «Identificación de correo»
.txtEmail.Color de espalda = vbRed
.txtEmail.Enfocar
ValidEntry = Falso
Salida Función
Fin Si
‘Validación del motivo de la visita
Si Podar(.txtReasonOfVisit.Valor) = «» Luego
MsgBox «Por favor ingrese la dirección»., vbOKOnly + vbInformación, «Dirección»
.txtReasonOfVisit.Color de espalda = vbRed
.txtReasonOfVisit.Enfocar
ValidEntry = Falso
Salida Función
Fin Si
Fin Con
Fin Función