Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час

Dim RST As Recordset       ' таблица изделий Dim db As Database Dim ALL_PRODUCTS As Long    ' ВСЕ ИЗДЕЛИЯ заказа Dim ACTUAL_PRODUCTS As Long ' изделия прошедшие ОТК Set db = CurrentDb Set RST = db.OpenRecordset("LIST_PRODUCT__DEFRAG") If RST.RecordCount <> 0 Then ALL_PRODUCTS = RST.RecordCount RST.Filter = "[DATE_OTK]" что то типа этого ACTUAL_PRODUCTS = RST.Filter.Count If ALL_PRODUCTS > ACTUAL_PRODUCTS Then