Некорректное кол-во строк в RecordSet и подчиненной форме

@GrayShadow · Регистрация: 08.10.2015

Author24 — интернет-сервис помощи студентам

Приветствую форумчане.
Всю голову сломал.

Есть таблица T_ABONEMENT
в ней 13 строк.

Если создать запрос типа "SELECT * FROM T_ABONEMENT" и открыть его в режиме таблицы показывает все строки

Если в VBA выполнить

Visual Basic

1 2	Set rst = CurrentDb.OpenRecordset("SELECT * FROM T_ABONEMENT") MsgBox rst.RecordCount

результат будет 1 строка

Если в VBA выполнить

Visual Basic

Set rst = CurrentDb.OpenRecordset("SELECT * FROM T_ABONEMENT")
rst.MoveLast
rst.MoveFirst
MsgBox rst.RecordCount

результат будет 13 строк

Если задать
Me.подчиненная.Form.RecordSource = "SELECT * FROM T_ABONEMENT"
Будет 1 строка в форме.

Причем в этой форме еще 6 подчиненных, которые обновляются довольно сложным запросами через VBA и все ок.
А эта как с цепи сорвалась, ничего не понимаю.

Вопросы
1) При каких обстоятельствах возникает проблема "1 строки рекордсета"
2) В отличие от OpenRecordset который можно лечить MoveLast-MoveFirst, как лечить RecordSource подчиненки?

mobile · 18.11.2015, 21:18

Для правильного подсчета записей в рекордсете необходимо пройти его на последнюю запись. Только тогда свойство RecordCount покажет верное значение. Поэтому когда вы задаете rst.MoveLast, то получаете точное количество строк. Иначе, если в рекордсете вообще есть записи, то 1.

@GrayShadow · 18.11.2015, 22:22 **[ТС]**

Это я понимаю, вопрос в том почему подчиненная форма при открытии главной показывает 13 записей, а когда ей в vba назначаешь RecordSource (даже тотже что и был), остается 1 запись.

Добавлено через 56 минут
Всем спасибо, нашел проблему. Оказывается, случайно вставил в рекордсет главной формы запрос из подчиненной и он каким-то одразом искал связь по полям и фильтровал результаты выборки подчиненной.

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	18.11.2015, 21:18	2
	Для правильного подсчета записей в рекордсете необходимо пройти его на последнюю запись. Только тогда свойство RecordCount покажет верное значение. Поэтому когда вы задаете rst.MoveLast, то получаете точное количество строк. Иначе, если в рекордсете вообще есть записи, то 1. 1

@GrayShadow 26 / 1 / 0 Регистрация: 08.10.2015 Сообщений: 13
	18.11.2015, 22:22 [ТС]	3
	Это я понимаю, вопрос в том почему подчиненная форма при открытии главной показывает 13 записей, а когда ей в vba назначаешь RecordSource (даже тотже что и был), остается 1 запись. Добавлено через 56 минут Всем спасибо, нашел проблему. Оказывается, случайно вставил в рекордсет главной формы запрос из подчиненной и он каким-то одразом искал связь по полям и фильтровал результаты выборки подчиненной. 1