Применить готовый RecordSet к другой форме / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Применить готовый RecordSet к другой форме

7 сообщений из 7, страница 1 из 1

Применить готовый RecordSet к другой форме

#39838387

vklpt

Гость

Есть форма с источником в виде тяжёлого запроса.
Нужно сделать красивую печатную форму с этими же данными.
Стандартный путь - делаем отчёт на основе такого же запроса, но это нужно будет снова подождать, пока запрос выполнится.
А есть ли способ скопировать готовый набор записей в отчёт?
Что-то вроде этого:

Код: vbnet

1.
2.
3.
4.
5.
6.

Private Sub Report_Open(Cancel As Integer)
    Dim RST As DAO.Recordset
    
    Set RST = Forms("форма_источник").RecordsetClone
    Set Me.Recordset = RST
End Sub

Приведённый код выдаёт ошибку: "Это свойство доступно только в файлах ADP"

MS Access 2010 x32, база в MDB.

...

Рейтинг:

0 / 0

17.07.2019, 16:36

| Ответить | Цитировать | Написать

Применить готовый RecordSet к другой форме

#39838392

vklpt

Гость

Ну и так будет Type mismatch

Код: vbnet

1.
2.
3.
4.
5.
6.

Private Sub Report_Open(Cancel As Integer)
    Dim RST As ADODB.Recordset
    
    Set RST = Forms("форма_источник").RecordsetClone
    Set Me.Recordset = RST
End Sub

...

Рейтинг:

0 / 0

17.07.2019, 16:43

| Ответить | Цитировать | Написать

Применить готовый RecordSet к другой форме

#39838414

zimkon

Гость

vklpt,
пример от Панурга

...

Рейтинг:

0 / 0

17.07.2019, 17:30

| Ответить | Цитировать | Написать

Применить готовый RecordSet к другой форме

#39838886

vklpt

Гость

Спасибо, работает для "Предварительного просмотра", но при печати (на виртуальный PDF) принтер выводит только начиная со второй страницы (добавил данных в таблицу). Что с этим можно сделать?

...

Рейтинг:

0 / 0

18.07.2019, 17:29

| Ответить | Цитировать | Написать

Применить готовый RecordSet к другой форме

#39838922

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

vklptЧто с этим можно сделать?строчку кода нужно добавить

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Private Sub secDetail_Print(Cancel As Integer, PrintCount As Integer)
    With m_rst
        If Not .EOF Then
...
        Else
            Me.PrintSection = False
            Me.NextRecord = True
            m_rst.MoveFirst
        End If
    End With
End Sub

...

Рейтинг:

0 / 0

18.07.2019, 19:21

| Ответить | Цитировать | Написать

Применить готовый RecordSet к другой форме

#39839291

vklpt

Гость

Понятно, при фактической печати это всё ещё раз отрабатывает. Спасибо.
Получается, чтобы реально распечатать, надо ещё и предпросмотр отмотать на последний лист, чтобы сработал movefirst на EOF.
И счётчик страниц правда не отрабатывает нормально (Страница 3 из 1), да и как-то слишком много костылей, видимо правильнее просто форму распечатать, пусть и некрасиво.

...

Рейтинг:

0 / 0

19.07.2019, 15:24

| Ответить | Цитировать | Написать

Применить готовый RecordSet к другой форме

#39839297

vklpt

Гость

Ну или добавить событие на печать заголовка, он же один раз печатается. Но всё равно слишком много костылей

Код: vbnet

1.
2.
3.

Private Sub ЗаголовокОтчета_Print(Cancel As Integer, PrintCount As Integer)
    RST.MoveFirst
End Sub

...

Рейтинг:

0 / 0

19.07.2019, 15:28

| Ответить | Цитировать | Написать

7 сообщений из 7, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Применить готовый RecordSet к другой форме

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39838392&tid=1610583]:	0ms
get settings:	9ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	83ms
get topic data:	11ms
get forum data:	3ms
get page messages:	47ms
get tp. blocked users:	1ms
others:	15ms

total:	191ms