Иногда не стоит пользоваться RecordCount, в виду его тонкой специфики:) Что бы голова не болела, лучше написать свою функцию, определяющую общее кол-во записей в объекте Recordset ...
Выдержки из HELP: Свойство RecordCount используется для определения числа записей объекта Recordset или TableDef, к которым проводилось обращение. Свойство RecordCount не показывает, сколько записей содержится в динамическом или статическом объекте Recordset до обращения ко всем записям. После обращения к последней записи набора значение свойства RecordCount становится равным полному числу неудаленных записей в объекте Recordset или TableDef. Для принудительного обращения к последней записи следует вызвать для объекта Recordset метод MoveLast. Вывод: Из всего вышесказанного следует вывод, что для определения общего кол-ва записей в объекте Recordset не стоит пользоваться свойством RecordCount в виду его тонкой специфики:) Что бы голова не болела, лучше написать свою функцию, определяющую общее кол-во записей в объекте Recordset : '************ Code Start ********** Function КоличествоЗаписей(r As Recordset) As Long '---------------------------------- ' Определяет общее кол-во записей ' в объекте Recordset '---------------------------------- ' '---------------------------------- Dim Закладка As String If r.Type = dbOpenTable Then КоличествоЗаписей = r.RecordCount Else If r.RecordCount = 0 Then КоличествоЗаписей = 0 Else Закладка = r.Bookmark r.MoveLast КоличествоЗаписей = r.RecordCount r.Bookmark = Закладка End If End If Exit Function End Function '************ Code End ********** Просмотров: 6951
Ваш коментарий будет первым | | |