Ver Mensaje Individual
  #8  
Antiguo 13-04-2005
kryna kryna is offline
Miembro
 
Registrado: mar 2005
Posts: 46
Reputación: 0
kryna Va por buen camino
Hola!

Probe con la instruccion y cuando trato de incluir un registro aunq no este agregado en la tabla me aparece el mensaje que le codigo ya exite

Código:
if Mitabla.locate('codigo',codigo.Text,[]) then
ShowMessage('EL CODIGO YA EXISTE!!')
else begin
mitabla.insert
mitabla.FieldByName(codigo).AsString := codigo.Text;
.
.
.
mitabla.Post;
mitabla.Next;
mitabla.FlushBuffers;
mitabla.Close;
 
mitabla2.insert
mitabla2.FieldByName(codigo_d).AsString := codigo_d.Text;
.
.
.
mitabla2.Post;
mitabla2.Next;
mitabla2.FlushBuffers;
mitabla2.Close;
end;
como puedo resolverlo?
Responder Con Cita