Ver Mensaje Individual
  #2 (permalink)  
Antiguo 25/11/2003, 02:59
Teri
 
Fecha de Ingreso: abril-2003
Ubicación: Madrid
Mensajes: 707
Antigüedad: 21 años, 7 meses
Puntos: 0
Puestos a comprobar, lo mejor sería tener en cuenta, que además de nulos, puede haber blancos, que también pueden ser errores, pero sobretodo si está grabando algo, porque si está en un registro ya existente de la base de datos, no le vas a obligar a completar la información, no???

entonces, lo primero es comprobar si está en edición.

If Me.Dirty Then
' está modificando o introduciendo información, ahora a comprobar que ha puesto todos los datos
if nz(me.campo1,"") = "" then
' campo1 está sin completar mensaje de error
msgbox "debes completar campo1",vbexclamation
' mandar el foco a campo1
me.campo1.setfocus
elseif nz(me.campo2, "") = "" then
' campo2 está sin completar mensaje de error
msgbox "debes completar campo2",vbexclamation
' mandar el foco a campo2
me.campo2.setfocus
elseif nz(.......
.
.
.
.
.
.
End If

Espero que te sirva de ayuda, Un saludo