Transferir datos de un formulario de entrada de datos a una hoja de trabajo protegida

Función ValidEntry() Como Booleano

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

Entradas relacionadas

Deja una respuesta

Tu dirección de correo electrónico no será publicada.