Buenos días,

imaginemos formulario con 10 textbox, decirle que los valide todos para que no estén vacíos,  y que envíe un mensaje, se hacerlo.

Pero quiero que los valide todos, menos 1 que se llama txtapellido. Ese puede estar vacío.

Ya se que podía poner de uno en uno todos los restantes, pero sería algo para decirle..

Si alguno de estos textbox, está vacío, con excepción de txtapellido, lanza el mensaje.

Gracias

 

Prueba así:

For Each Control In Controls
   If TypeName(Control) = "TextBox" Then
      If Control.Name <> "txtapellido" Then '<----
         Control.BackColor = vbWhite
         If Trim(Control.Value) = "" Then
            Control.BackColor = vbYellow
            mensaje = mensaje & Control.Name & vbLf
         End If
      End If
   End If
Next
If mensaje <> "" Then
   MsgBox "Controles obligatorios:" & vbLf & mensaje
End If

 

Editado el el 9 de noviembre4 años por Antoni

Muchas Gracias, mira que era fácil