[steelha]

Buenos Días, ante todo
Siendo nuevo tanto en el foro como utilizando Delphi 7 (Solo 5 meses) he tratado de hacer una aplicación para mi y unos amigos que simplemente guarda unos datos en una tabla hecha en MS Access. El problema surge cuando trato de verificar si el campo clave existe, lo cual no pasa nada y se ejecuta la inserción de los registro provocando un error de duplicidad. Acá les paso los código haber que estoy haciendo mal. No es algo urgente, pero me ayudara a entender mis errores ya que recién empiezo. Gracias de ante manos por cualquier ayuda.


Conexion a la Tabla

Código Delphi [-]
Procedure TDm.DataModuleCreate(Sender: TObject);
var
  rutadata : String;
begin
  rutadata := GetCurrentDir;
  Dm.concndatafacebook.Connected := False;
  rutadata := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+GetCurrentDir+'\Data\DataCafeWorld.mdb'+';Persist Security Info=False';
  Dm.concndatafacebook.ConnectionString := rutadata;
  Dm.concndatafacebook.Connected := True;
end;

Botón Adicional

Código Delphi [-]
procedure Tfrmprincipal.rzbtbtn1Click(Sender: TObject);
begin
  //Verifiq if FID exist
  dm.qryfriend.Close;
  Dm.qryfriend.Open;
  Dm.qryfriend.First;
  Dm.qryfriend.Locate('IDF',Trim(edt9.Text),[]);
  if Dm.qryfriend.Found Then
    begin
      ShowMessage('This person its in you list ...');
    end
  else
    begin
      Dm.qryfriend.Insert;
      Dm.qryfriendName.Value  := Trim(edt7.Text);
      Dm.qryfriendEmail.Value := Trim(edt8.Text);
      Dm.qryfriendIDF.Value   := Trim(edt9.Text);
      Dm.qryfriend.Post;
      dm.qryfriend.Close;
      Dm.qryfriend.Open;
    end;

  edt7.Clear;
  edt8.Clear;
  edt9.Clear;
  edt7.SetFocus;
end;