Mensajes de error en los textbox si están vacios
hola de nuevo apredendiendo de tu experiencia no se si recuerdas mi formulario el de registrar productos mi pregunta es la siguiente poseo un formulario para registrar datos con varios textbox y 2 combobox deseo que cuando vaya a registrar un producto si alguno de los campos están vacíos entonces me salga un mensaje de alerta y me informe que faltan campos por llenar y me coloque el cursor en el campo vacío para llenarlo me he creado esta subrutina pero no aplica como lo que me apasiona es de buscar la solución por mis propios medios le he creado colores por si me llegas a preguntar el por que de color osea son códigos de ensayo tratando de buscar la solución para lo que necesito este es el código de prueba que he hecho.
Public Sub validardatos(frm As Control)
Dim Errores As Integer, Campo As Control, Control As Control
For Each Control In Controls
If TypeOf Control Is MSForms.TextBox Then
Control.BackColor = vbWhite ''Color de fondo normal del TextBox
If Control.Value = Empty Then
If Campo Is Nothing Then
Set Campo = Control
End If
Control.BackColor = vbYellow
Errores = Errores + 1
End If
End If
Next
If Errores > 0 Then
Campo.SetFocus
MsgBox "Debe rellenar todos los campos", , "Depuración de datos"
Exit Sub
End If
agradezco tus aportes............