Home‎ > ‎

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
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

 


SelectionFile type iconFile nameDescriptionSizeRevisionTimeUser
ċ

Descargar
Descargue el Ejemplo  33 kb v. 3 18 jun. 2009 17:04 Jefferson Jimenez
Comments