ник: Alex
Аргументы: strQuery - название сохраненного запроса или SQL запроса.
Назначение: Получить количество строк возвращаемое запросом или SQL выражением
Возвращает: Количество строк в запросе
Public Function QRCount(strQuery As String) As Long
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset(strQuery)
rst.MoveLast
QRCount = rst.RecordCount
rst.Close
End Function