powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Есть ли в подчиненной форме выведенные строки
5 сообщений из 5, страница 1 из 1
Есть ли в подчиненной форме выведенные строки
    #32128248
Till
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как определить: Есть ли в подчиненной форме выведенные строки?
Строка:
Forms("frm").Controls("fsfr").Form.Recordset.RecordCount
не прокатывает
Свойства ... .BOF и ... .EOF тоже

Единственно вижу:
сформировать Recordset где Select * From ИсточникДанныхПодчиненнойФормы Where ОтборПоMasterFieldОсновной формы
и дальше по свойствам ... .BOF и ... .EOF
Получается как то громоздко
...
Рейтинг: 0 / 0
Есть ли в подчиненной форме выведенные строки
    #32128253
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если нет ни одной записи
Forms("frm").Controls("fsfr").Form.currentrecord=0
...
Рейтинг: 0 / 0
Есть ли в подчиненной форме выведенные строки
    #32128258
Александр Спелицин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
См. RecordsetClone
if me!Subform1.Form.RecordsetClone.RecordCount > 0 then
...
end if
...
Рейтинг: 0 / 0
Есть ли в подчиненной форме выведенные строки
    #32128267
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не помню уже условия (помню только что проблемы были), но я отказался от использования свойства RecordsetClone в пользу currentrecord
...
Рейтинг: 0 / 0
Есть ли в подчиненной форме выведенные строки
    #32128281
Till
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо
Оба варианта работают
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Есть ли в подчиненной форме выведенные строки
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]