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

2.0.51

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

Гость

Нов. | Гор. | Избр.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

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

17.07.2019, 16:36

#39838387

vklpt

Гость

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

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

Код: 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:43

#39838392

vklpt

Гость

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

Ну и так будет 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, 17:30

#39838414

zimkon

Гость

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

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

...

Рейтинг:

0 / 0

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

18.07.2019, 17:29

#39838886

vklpt

Гость

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

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

...

Рейтинг:

0 / 0

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

18.07.2019, 19:21

#39838922

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк
Сообщения: 5 486
Рейтинг: 0 / 0

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

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

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

19.07.2019, 15:24

#39839291

vklpt

Гость

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

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

...

Рейтинг:

0 / 0

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

19.07.2019, 15:28

#39839297

vklpt

Гость

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

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

Код: vbnet

1.
2.
3.

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

...

Рейтинг:

0 / 0

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

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

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

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

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

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

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

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

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

start [/forum/topic.php?fid=45&mobile=1&tid=1610583]:	0ms
get settings:	11ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	76ms
get topic data:	10ms
get forum data:	2ms
get page messages:	43ms
get tp. blocked users:	1ms
others:	374ms

total:	536ms