Validar Campo

[vtdeleon]

Saludos

Validarlo donde?
Si existe donde?
Danos mas detalles, asi no conseguimos nada (por lo menos yo no).

[esimon]

esto es lo que estoy haciendo

procedure TFrm_Organizaciones.Tbl_OrganizacionesCodigo_OrganizacionChange(
  Sender: TField);
  var ls_CodigoOrganizacion : string;
begin
      ls_CodigoOrganizacion := Tbl_Organizaciones.fieldbyName('Codigo_Organizacion').Value;
      Qry_ValidarCodigoOrganizacion.Close;
      with
      Qry_ValidarCodigoOrganizacion do begin
      with sql do begin
      clear;
      Add('Select * From Organizaciones');
      Add('Where Codigo_Organizacion =' +intTostr(ls_CodigoOrganizacion));
      Open;
      if Recordcount <> 0 then
      begin
      ShowMessage('Este Registro ya Existe');
      Abort;
      end;
     end;
    end;

[luisgutierrezb]

en el campo, viene el evento OnValidate que te puede servir mejor, si lanzas una excepcion se cancela el post, o sea en lugar de:
ShowMessage('Este Registro ya Existe');
Abort;
puedes poner:
Raise Exception.Create('Este Registro ya existe');

[esimon]

mil gracias luis, por la informacion no me funciono, con la rutina que publique puedes decirme que estoy haciendo mal, en este caso el campo a validar que de texto.

con un campo numerico me funciona muy bien.

[[Lepe]]

donde pone:

intTostr(ls_CodigoOrganizacion))

sustituye por

QuotedStr(CampoDeTexto)

porque dentro del SQL necesita las comillas simples cuando es un texto.

Saludos

[esimon]

mil gracias a todos por su repuesta en es pecial a Lepe, esta funcionando perfectamente.


graciassssssssssss