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. Los campos obligatorios están marcados con *