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 + 1Validar Campos
Validar Campos Nombre
'Validar Nombre If Registrar.Txt_Nombre.Value) = "" Then
Registrar.Txt_Nombre.BackColor = VBA.RGB(255,211,151) Registrar.Txt_Nombre.BackColor = VBA.vbWhiteValidar 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 IfValidar 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 IfValidar 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 IfValidar 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 IfValidar 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
Sería posible una explicación a fondo de cómo funciona la función ValidarTexto. Gracias.
Miguel me sale en Validar Vacios Bloque sin If o End If y yo lo tengo
¿Me puedes ayudar?
como esta.tio tech te pregunto. como podemos poner al código lectras y números me gustaria saver gracias y muy buen trabaja
Hola… No me acepta en el código la columna («B:B»)
:O
¿Qué alternativa tengo?
Miguel me sale en Validar_Campos_Vacios, error de compilación: se esperaba una variable o un procedimiento no un modulo.
me podrías ayudar
Tienes que cambiarle de nombre al método, porque, si le pones el mismo nombre que el módulo te saldrá ese error.
esto me sucedio cuando lleve al boton registrar
Buenas tardes Tio Tech
Estoy realizando la numeracion de codigo pero yo lo quiero sin letras, y se me queda fijo el numero 1 no me cambia y en dirección de habitación para coloocar letras y numero ejemplo casa numero (15) o apartamento 4 piso 3
Hola. ante todo, darte las gracias por estos curso.
Tengo un problema con el formulario. he seguido todos los pasos, pero al crear el código numérico «Me.Text_codigo.Value = WorksheetFunction.Max(Range(«B:B»)) + 1″ lo hace, pero no avanza. siempre sale el numero 1 y está puesto en el lugar que dice en el video.
y ya no sé que hacer para que avance.
He puesto un botón para que borre todos los datos excepto el del código. ¿puede ser eso?
Ya que no cierro el formulario. Pero aunque lo cierre y lo vuelva a abrir. sigue el 1.
Graicas
Amigo muchisimas gracias por todo este material, me ah sido de gran ayuda, en este momento estoy realizando un proyecto en mi lugar de trabajo (Hospital) y este material me ah servido muchisimo.
Quisiera hacerte una consulta ya que tengo un pequeño inconveniente, dentro de los datos que estoy almacenando se encuentra la edad de los pacientes atendidos, pero tengo alli un pequeño inconveniente ya que hay ocaciones en donde la edad es desconocida, por tal razon quisiera poder programar esta casilla de texto para que reconozca solamente numero y tambien este texto «DESC» ya que dentro de las estadisticas puedo contabilizar a estos pacientes. espero puedas ayudarme con eso.
Muchas gracias TioTech.
Muchas felicidades por el aporte.
Como sugerencia, valdría la pena hacer la rutina para dar códigos, pero con letras antes de números.
Saludos hasta donde estás.