Validar y Cambiar de Color a CAMPOS VACÍOS En Formularios VBA (llenar Campos Obligatorios)

Aprende a validar campos vacíos. Campos Obligatorios en Formulario VBA. Si en caso el cuadro de texto esta vacío este cambiará de color y pedirá que se llene obligatoriamente con un mensaje.

Cambiar Color de Campo

Cambia el color de fondo de los cuadros de texto vacíos a RGB(255, 211, 151) para indicar que son obligatorios.

¿Cómo Buscar Colores RGB?

Los colores en VBA se especifican usando valores RGB (Rojo, Verde, Azul). Para encontrar el valor RGB de un color específico, puedes usar herramientas de selección de color en línea o en software de edición de imágenes.

 Registrar.Txt_Nombre.BackColor = VBA.RGB(255, 211, 151)

Contador de Campos Vacíos

Cuenta la cantidad de campos vacíos para mostrar un mensaje general.

 Contador = Contador + 1

Validar Campos

Validar Campos Nombre

'Validar Nombre If Registrar.Txt_Nombre.Value) = "" Then
Registrar.Txt_Nombre.BackColor = VBA.RGB(255,211,151)  Contador = Contador + 1
ElseRegistrar.Txt_Nombre.BackColor = VBA.vbWhite    End If

Validar Campo Apellido Paterno

' Validar Apellido Paterno
If Registrar.Txt_ApellidoPaterno.Value = "" Then
    Registrar.Txt_ApellidoPaterno.BackColor = VBA.RGB(255, 211, 151)
Contador = Contador + 1
Else
    Registrar.Txt_ApellidoPaterno.BackColor = VBA.vbWhite
End If

Validar Campo Apellido Materno

' Validar Apellido Materno
If Registrar.Txt_ApellidoMaterno.Value = "" Then
    Registrar.Txt_ApellidoMaterno.BackColor = VBA.RGB(255, 211, 151)
Contador = Contador + 1
Else
    Registrar.Txt_ApellidoMaterno.BackColor = VBA.vbWhite
End If

Validar Campo Correo

' Validar Correo
If Registrar.Txt_Correo.Value = "" Or Not EsCorreoValido(Registrar.Txt_Correo.Value) Then
    Registrar.Txt_Correo.BackColor = VBA.RGB(255, 211, 151)
Contador = Contador + 1
Else
    Registrar.Txt_Correo.BackColor = VBA.vbWhite
End If

Validar Campo Teléfono

' Validar Teléfono
If Registrar.Txt_Telefono.Value = "" Or Not IsNumeric(Registrar.Txt_Telefono.Value) Then
    Registrar.Txt_Telefono.BackColor = VBA.RGB(255, 211, 151)
Contador = Contador + 1
Else
    Registrar.Txt_Telefono.BackColor = VBA.vbWhite
End If

Validar Campo Fecha de Nacimiento

' Validar Fecha de Nacimiento
If Registrar.Txt_FechaNacimiento.Value = "" Or Not IsDate(Registrar.Txt_FechaNacimiento.Value) Then
    Registrar.Txt_FechaNacimiento.BackColor = VBA.RGB(255, 211, 151)
Contador = Contador + 1
Else
    Registrar.Txt_FechaNacimiento.BackColor = VBA.vbWhite
End If

Validar Campo Sexo (con ComboBox)

' Validar Sexo (ComboBox)
If Registrar.cbo_Sexo.ListIndex = -1 Then
Registrar.cbo_Sexo.BackColor = VBA.RGB(255, 211, 151)
Contador = Contador + 1
Else
Registrar.cbo_Sexo.BackColor = VBA.vb

Creación de un formulario con botones: Registrar, Modificar, Eliminar, Limpiar y Buscar.

• Video 01. Diseño de Formulario
• Video 02. Validar Email, Números y Textos
• Vide4. Insertar Calendario Flotante y Calcular Edad