Есть ленточная форма, в записях которой присутствует флажок по полю "Вывод". Хочется при нажатии на кнопку закрытия формы подсчитать кол-во включенных флагов и сохранить их в переменной. Я пытался сделать фильтр и потом вывести RecordCount, но чой-то у меня с синтаксисом RecordSet-a не совсем выходит. Максимум, что мне удалось написать, так, чтобы оно ни объектов не запрашивало, ни ругалось, что не найти там ему таблицы... это вот:
Private Sub Кнопка14_Click()
Set rec = Me.Recordset
rec.Filter = "[Вывод]=False"
Set rec = rec.OpenRecordset
wer = rec.RecordCount
End Sub

Но ОНО что-то не то считает :) Хелп плииз.

Аммм... Я с этого и начал :) Хотел открыть recordset таблицы на основе которой сделан запрос. Но как-то синтаксис не удался. Как правильно будет выглядеть эта функция, если открывать таблицу "Детали". А форма называется "Вывод деталей". Использовал OpenRecordSet, но тщетно...

Поможите, люди умные! Подкиньте пару строчек плз.

Да, писал я так:

dim rec as recordset
rec=CurrentDb.OpenRecordSet ("Детали")

После чего пытался применить тот же фильтр, но он толком рекордсет не хотел открывать, не говоря уже о том, чтобы открыть с применением Where.

Сорри.

dim rec as recordset
Set rec=CurrentDb.OpenRecordSet ("Детали")

И ошибка была Type mismatch. Я убрал явное определение (конечно и Option Explicit пришлось убрать) и он прголотил эту строчку.

А как теперь правильно задать условия отбора Where или может все таки фильтр?

Сенкс. А как именно синтаксичеккм задать в VBA openrecordset c условием Where?

Уже даже запрос отдельный сделал - все работает, все фильтрует. Аж взял его SQL форму полностью, ничего не меняя. А RecordCount по прежнему равен единице, вне зависимости от того сколько я там флагов уберу или поставлю... Гмм... Та же самая единица у меня вылезала, огда я пользовался фильтром в форме, описанным в первом сообщении.

Set rec = CurrentDb.OpenRecordset("SELECT Детали.* FROM Детали WHERE (((Детали.Вывод)=True));")

и ничего... :(

Бальщёй спасиб, Вам господин GEO! Dcount сработал отлично.Как поговаривают: "А ларчик просто открывался". Жаль, конечно, что очередная моя попытка работы с RecordSet ничего не дала. (Вы можете себе представить - я никогда еще не исользовал RecordSet. Правда я пока только неделю вообще работаю с Access-ом)