OnFilterRecord

Първо да се извиня за некомпетентността си.
Та...
с делфи 6 съм. Направих си една базичка с ассесс . Сложих DataSource1 - и го вързах с ConnectionString дето требе. После лепнах на формата Adotable1 i DbGrid1 и почнах да си гледам записите. (и да си се кефя). По некое време зех да филтрирам. Пуснах филтъра на "верно е бре" и ставах все по горд от постижението си! Обаче по некое време, зех че затрих данните на един запис. И сега кат филтрирам и стигне до него - изпушва процедурата за филтриране точно на него. Ще драсна част от кода за ориентация.
procedure TForm1.tablFilterRecord(DataSet: TDataSet; var Accept: Boolean);
Var s,s1:string;
ok:boolean;
begin
ok:=true;
s:=edit1.Text;
s:=Uppercase1(s);

if s<>'' then
begin
s1:=Dataset.FieldValues['IME'];
if s1<>'' then {на този ред ми избива ако е плазно полето ИМЕ}
begin
s1:=UpperCase1(s1); {процедура за големи букви}
ok:=(pos(s,s1)>0) or (s1='');
end;
end;
Accept:=ok;
end;

Разбира се, кода не е съвършен, но ако някой хелпне, че косата ми побеля от нерви и даже бира пия по-малко от обикновенно.

Опитай с s1:=VarToStr(Dataset.FieldValues['IME']);

Благодаря ти много!СТАНААААА!
Вече съм на третата бутилка бира! Отново има същия вкус, даже и без кубети!