Impedir una Accion si hay un campo Vacio

El Codigo

Public Function CampoVacio(NomForm As Form, Cancel As Integer)

'****************** Creado por Jefferson Jimenez JJJT ***************

'************************ En Cabimas - Venezuela ********************

'********************************* Mayo 2009 ************************

' Codigo para impedir una accion . . . !!

' En este caso VistaPrevia de un Reporte

' si existiese algun campo vacio

On Error GoTo Err_CampoVacio_Click

Dim Campo As Control 'Variable tipo control

For Each Campo In NomForm 'Abro un Bucle

If TypeOf Campo Is TextBox _

Or TypeOf Campo Is ComboBox Then ' Inquido los tipos de campo _

que deseo recorrer para analizar

If Not IsNull(Campo) Then 'La condicion

'De no haber campo nulo dejo correr el codigo

Else

Campo.BackColor = vbYellow 'Le pongo color para diferenciarlo

Campo.SetFocus

MsgBox "Para realizar esta Accion " & vbCrLf & _

"se requiere que todos los" & vbCrLf & _

"campos esten completos", vbExclamation, "Campo Vacio"

Cancel = True

End

Exit Function

'Si lo encuentro, detengo el codigo, aviso con un Msgbox

'y Situo el setfocus al campo vacio

End If

Next Campo

'Si llegamos aqui es que no consigo campos nulos

'Y ejecuto el comando (Puedes colocar cualquiera)

'Abrir form, consultas, exportar a pdf, etc....

Exit_CampoVacio_Click: 'Tratamiento de errores

Exit Function

Err_CampoVacio_Click:

MsgBox Err.Description

Resume Exit_CampoVacio_Click

' Jefferson Jimenez (Venezuela)

End Function