Ver Mensaje Individual
  #2  
Antiguo 21-04-2010
Avatar de mightydragonlor
[mightydragonlor] mightydragonlor is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Medellín-Colombia
Posts: 587
Reputación: 20
mightydragonlor Va por buen camino
Buano les cuento que gracias a la ayuda de los chicos de http://www.delphiaccess.com, en concreto a enecumene y eduarcol
que me dijeron que pasos seguir, mi problema está solucionado, les dejo la solución:
En el evento BeforePost de TZTable se recorren todos los campos y se pregunta por aquellos que son requeridos, previamente se debe
poner la propiedad del campo en requerida y CustomMessageError el mensaje que queremos que salga.
Código Delphi [-]
Procedure TdmDATOS.TBL_CLIENTESBeforePost(DataSet: TDataSet);
  Var nIdx: Integer;
Begin
  For nIdx := 0 To DataSet.FieldCount -1 Do
  Begin
    If (DataSet.Fields[nIdx].Value = NULL) And (DataSet.Fields[nIdx].Required = True) Then
    Begin
       Showmessage(DataSet.Fields[nIdx].ConstraintErrorMessage);
       DataSet.Fields[nIdx].FocusControl;
       Abort;
    End;
  End;
End;
__________________
mas confundido que Garavito el día del Niño.
Responder Con Cita