ник: час
Я офигиваю
ALL_PRODUCTS = RST.RecordCount
RST.Filter = "[DATE_OTK]<> #01.01.01# "
' Создает динамический объект Recordset для отобранных записей.
Set RSTFiltered = RST.OpenRecordset
RSTFiltered.MoveFirst
RSTFiltered.MoveLast
ACTUAL_PRODUCTS = RSTFiltered.AbsolutePosition
|
AbsolutePosition - рулито вместе с MoveLast