Ver Mensaje Individual
  #4  
Antiguo 17-01-2005
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Reputación: 21
gluglu Va por buen camino
Gracias Roman,

Eso era precisamente lo que andaba buscando : donde validar el campo introducido.

Mi código utilizado es el siguiente :
Código Delphi [-]
procedure TMaster.IBQuery1CAMPO1Validate(Sender: TField);
begin
   IBQueryCheck.SQL.Clear;
   IBQueryCheck.SQL.Add('Select * from TABLA1');
   IBQueryCheck.SQL.Add('where CAMPO1 = ');
   If DBEdit1.Text = '' then
     IBQueryCheck.SQL.Add('-999999')
   else
     IBQueryCheck.SQL.Add(DBEdit1.Text);
   IBQueryCheck.SQL.Add('and CAMPO2 = ');
   If DBEdit2.Text = '' then
     IBQueryCheck.SQL.Add('-999999')
   else
     IBQueryCheck.SQL.Add(DBEDit2.Text);
   IBQueryCheck.Open;
   If IBQueryCheck.Eof then abort;
end;

Espero que esto sea lo correcto. Estoy por supuesto abierto a cualquier recomendación mejor.

Saludos
Responder Con Cita