Hola, No se si tal vez este repetido este aporte pero dejo pues un aporte sencillo que vale para cualquier formulario sin importar la cantidad de texbox o combobox que tengan, lo que hace es simplemente por medio de una UDF validar que todos los espacios del formulario estén llenos de lo contrario lanzara un mensaje con los espacios que faltan por llenar y los marcara en rojo.
En un modulo normal colocamos esto:
Function validar(form As Object) As String
Dim txt As Control, x As String
For Each txt In form.Controls
If TypeName(txt) = "TextBox" Or TypeName(txt) = "ComboBox" Then _
If txt.Value = "" Then x = x & Chr(10) & txt.Name: txt.BackColor = vbRed Else txt.BackColor = vbWhite
Next
validar = x
End Function[/CODE]
Y en el evento del botón con el que guardaremos la información colocamos esta condición:
[CODE]if not validar(Me) ="" Then '<< Validar(Me), utilizo el ME para indicar que actuara sobre este formulario
Msgbox "Falta la siguiente información:" & Validar(Me)
exit sub
else
'Aqui colocamos el codigo que queramos
end if [/CODE]
Dejo un pequeño ejemplo con la explicación del código paso por paso.
Saludos y espero que le sea de utilidad a alguien.
Hola, No se si tal vez este repetido este aporte pero dejo pues un aporte sencillo que vale para cualquier formulario sin importar la cantidad de texbox o combobox que tengan, lo que hace es simplemente por medio de una UDF validar que todos los espacios del formulario estén llenos de lo contrario lanzara un mensaje con los espacios que faltan por llenar y los marcara en rojo.
En un modulo normal colocamos esto:
Y en el evento del botón con el que guardaremos la información colocamos esta condición:
Msgbox "Falta la siguiente información:" & Validar(Me)
exit sub
else
'Aqui colocamos el codigo que queramos
end if [/CODE]
Dejo un pequeño ejemplo con la explicación del código paso por paso.
Saludos y espero que le sea de utilidad a alguien.
Validar espacios vacios.xls
Validar espacios vacios.zip