[kryna]

gracias voy ha probarlo!!


sin embargo lo hice de la siguiente manera y me funciona bien..

 
if  codigo <> nil then
	qry1.Close;
	qry1.ParamByName('codigo').AsInteger := StrToInt(codigo.text);
	data1.dataset := qry1;
	qry1.open;

	  if qrybus.EOF then
	  begin
			   // aqui inserto 
	  end else
ShowMessage('EL CODIGO YA EXISTE!!');

Sin embargo ahora tengo otro problemilla.... cuando modifica en vez de sobre escribirme en el registro activo lo que me hace es que me agrega otro registro a mi tabla..

yo lo hago de sta forma

MessageDlg('ESTA SEGURO Q DESEA MODIFICAR ESTE REGISTRO???', mtCONFIRMATION, [mbOk], 0)
Tb1.Edit;
Tb1.FieldByName('especialidad').AsString := edit1.text;
Tb1.FieldByName('codigo).AsString := edit2.text;
Tb1.Post;
Tb1.Next;
Tb1.FlushBuffers;
Tb1.Close;
 
Tb2.Edit;
Tb2.FieldByName('especialidad').AsString := edit1.text;
Tb2.FieldByName('descripcion').AsString := edit3.text;
Tb2.post;
Tb2.Next;
Tb2.FlushBuffers;
Tb2.Close;
 
ShowMessage('EL REGISTRO FUE MODIFICADO CON EXITO!!');
end;

Donde tengo el error