Ver Mensaje Individual
  #12  
Antiguo 05-07-2004
simon simon is offline
Miembro
 
Registrado: jun 2004
Posts: 31
Reputación: 0
simon Va por buen camino
este es el codigo que estoy utilizando en el evento onchange del campo, en la tabla pedido la cual es la tabla encabezado.

Código:
procedure TFrm_Pedidos.Tbl_PedidoNumero_PedidoChange(Sender: TField);
begin
 ls_Pedido := Tbl_PedidoNumero_Pedido.Value;
  Qry_Pedidos.Close;
  with Qry_Pedidos do begin
  with sql do begin
  clear;
  add ('select * from Pedidos');
  add ('where numero_Pedido ='+IntToStr(ls_Pedido));
  open;
  if recordcount <> 0 then
   begin
   ShowMessage('@@@@@ El Numero ya Existe @@@@@');
   Abort;
   end;
	 end;
  end;
end;
en access en la opcion de indice, en la tabla peido el campo Numero_Peido esta definido como PrimaryKey, Principal si, Unica si, ignorar nulos no., en la de destalle el mismo campo esta PrimaryKey, Principal no, Unica no, ignorar nulos no
y siqueme disculpando es que esta muy estaño este error al meno que no este mal el codigo que utilizo.
gracias
Responder Con Cita