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

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


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