Eu fiz da seguinte maneira:
procedure TFrmConfSimples.QyMovValesBeforePost(DataSet: TDataSet);
begin
QyPesqVales.Active := False;
QyPesqVales.SQL.Clear;
QyPesqVales.SQL.Add('Select * from MovVales Where Numero = "'+DbEdit3.Text+'"');
QyPesqVales.Active := True;
QyPesqVales.ExecSQL;
If not QyPesqVales.Eof then
begin
Sound(3000,1000);
MessageDlg('Este Vale já existe!'+#13+'Favor Conferir o Vale '+#13+' nº '+FrmConfSimples.Dbedit3.text,
MtError,[Mbok],0);
Abort;
Dbedit3.SetFocus;
Dbedit3.Clear;
end;
end;
end.
Mas acontece que existindo ou não o registro, o EOF sempre aparece TRUE.....
