Filter cannot be opened

[BoozZzilla]

Delphi, ADOTable, БД Access

На ввод фильтра как

Table.Filter:='ZNom LIKE 'xxx*' '

ругается тем самым "Filter cannot be opened"

Проблема точно не в формате данных - ошибка другая.
На подстановку % вместо * говорит абсолютно то же самое.
И вообще когда я впихиваю что либо конкретное (без знака *) поиск проходит нормально, но хотелось бы сделать фильтр а не поиск.

Борожу просторы интернетов уже с неделю как и так и не нашёл ответа. Удивлен кстати тем что на этом форуме нету такой темы.
Хотелось бы совета, что не так я делаю, заранее всем благодарен.

И ещё - уже много раз натыкался на совет использовать OnFilterRecord, но почитав немного так и не понял что с ним делать, как с помощью него фильтровать? Киньте в меня ссылкой где понятно написано.

[Stilet]

А разве так можно ковычками окружать?
может так: Table.Filter:='ZNom LIKE '+QuotedStr('xxx*')

[Аватар]

К OnFilterRecord DataSet обращается последовательно для каждой записи из своего буфера. Если Accept вернулся True - запись доступна пользователю, иначе её просто не видно. Обращение к OnFilterRecord идет при Filtered=True в момент активизации датасета и после вставки или редактирования записи. В активном состоянии датасета изменив значение Filtered мы или заставляем отработать OnFilterRecord или отказываемся от фильтра. В самом обработчике Accept-у нужно присвоить логическое значение в зависимости от состояния данных текущей записи

[BoozZzilla]

Сообщение от Stilet

А разве так можно ковычками окружать?

И через двойные одинарные кавычки пробовал и через QuotedStr, сейчас через QuotedStr у меня все "окавычено" Я не уделил этому внимания так как пробовал множеством способов, и когда ошибался с кавычками ошибка обычно выскакивала что "Type mismatch", так тчо вот

upd:
Оказывается я просто протупил неделю, он ругается когда я так ищу в цифровых значениях, причём про Type mismatch ни слова зараза не говорит! Сейчас попробовал поискать в строковых - отлично находит все.

А как бы мне тогда искать по частичному совпадению в числовых значениях? Может подскажете легкий путь?

[Аватар]

Например так

procedure TForm1.TableFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  {только те у которых ZNom int и предпоследние 3 цифры 123, а последняя любая}
  Accept:=(DataSet.FieldByName('ZNom').AsInteger mod 10000 >= 1230) and
          (DataSet.FieldByName('ZNom').AsInteger mod 10000 <= 1239);
end;

[Stilet]

Ну попробуй в фильктре CAST() для преобразования в строку использовать

[BoozZzilla]

Сообщение от Аватар

Например так...

Ну не описывать же все случаи, для ввода от одного до девяти знаков, а так - вообще - спасибо

про CAST пошёл читать, спасибо

[Аватар]

Ну не описывать же все случаи, для ввода от одного до девяти знаков

та ладно, три переменные в Private формы, заменяющие соответственно 10000, 1230 и 1239, эти переменные вместо констант в OnFilterRecord. Всех делов: Filtered:=False; поменять значения переменных и Filtered:=True;

Сформировать Filter с помощью CAST программного кода не меньше потребует для вашего случая, чем сформировать новые значения в трех переменных. Кстати даже не знаю - съест ли дельфи CAST в Filter, никогда не пробовал