Ошибка при формировании большого( более 200 позиций) отчета

@Lolshto74 · Регистрация: 04.10.2021

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

Добрый день , уважаемые коллеги!

Прошу помощи!

В базе более 60тыс позиций, отчет формируется по отфильтрованным данным в форме. Если позиций более 200 , то появляется ошибка: Run-time error ‘7769’:
Операция отбора данных прервана. Вероятно из-за слишком большой длины фильтра

и отчет не формируется. Может кто знает, как исправить?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Pivate sub Кнопка59_Click()
   Dim record As recordSet
   Set record = recordSet
 
   Dim filter As String
   If FilterOn And Not IsEmpty(filter) Then
               filter = “[Код] IN (“
               record.MoveFirst
               While Not record.EOF
               filter = filter & record! [Код]
                     record.MoveNext
                If Not record.EOF Then
                filter = filter & “, ”
                End If
                Wend
                filter = filter & “)”
                DoCmd.OpenReport “Отчет по документам”, acViewReport, , filter
    Else
    DoCmd.OpenReport “Отчет по документам”, acViewReport
    filter  = “”
    End If
End Sub

@Eugene-LS · 05.10.2021, 12:27

Сообщение от Lolshto74

Debug.Print filter это куда вставить?

Так ... ясно всё с вами
Почитатйте тут например: Как использовать отладочную печать в VBA (примеры)
Ещё: https://yandex.ru/search/?text... id=2186621

Думаю, проще будет разобраться увидев вашу задачку .

Доп. инфо:
Почитайте пожалуйста Правила раздела, и старайтесь, насколько это возможно, следовать им.

Если необходимо:
01. Создайте публикуемую версию вашего приложения, если там есть конфиденциальные данные - забейте их ничего не значащими, в достаточном для понимания объёме (несколько (сотен) записей).
02. Выполните сжатие БД стандартными средствами
03. Проверьте работоспособность публикуемого
04. Сожмите ваше приложение архиватором (Zip, RAR)
05. Опубликуйте полученное на форуме с описанием точки входа (как добраться до вашей траблы) + подробное описание (пара - тройка предложений) того чего вы хотите в результате.

Или просто:
Выкладывайте БД на форум. Попробуем разобраться. Только точно укажите куда смотреть, на что нажимать, что надо увидеть и как должно быть

@Capi · 05.10.2021, 12:34

Сообщение от Lolshto74

Debug.Print filter это куда вставить?

После того, как сформировали.
То есть, перед DoCmd.OpenReport.

А DoCmd.OpenReport пока закомментируйте.
Нужно сначала с формированием условия разобраться.

@Lolshto74 · 05.10.2021, 13:36 **[ТС]**

Capi

В Immediate нечего не пишет.

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

@Eugene-LS · 05.10.2021, 13:47

Сообщение от Lolshto74

слишком много конфиденциальной информации

Пост #21:

Если необходимо:
01. Создайте публикуемую версию вашего приложения, если там есть конфиденциальные данные - забейте их ничего не значащими, в достаточном для понимания объёме (несколько (сотен) записей).

А вы как думали !?

Все то данные не нужны только те что в отчёт попадают - имена, называния цены и суммы забейте туфтой и вперёд

@Lolshto74 · 05.10.2021, 14:26 **[ТС]**

Eugene-LS

Ок, спасибо, попытаюсь сделать такую базу

@Capi · 05.10.2021, 16:56

Сообщение от Lolshto74

В Immediate нечего не пишет.

Этого абсолютно не может быть.

Показывайте, куда поставили Debug.Print filter.

Процедуру полностью.

@Lolshto74 · 06.10.2021, 12:28 **[ТС]**

Capi

Вот база, во вложении скрины с порядком действий

@alvk · 06.10.2021, 12:30

реально всё красное? это вам к другому врачу

@Eugene-LS · 06.10.2021, 13:39

Сообщение от Lolshto74

Вот база, во вложении скрины с порядком действий

Ну наконец - то!

Добавлено через 59 минут
Lolshto74, а почему у вас нет учёта "секретных паспортов"? (ДСП)
Или вы это скрыли?
Или далеко от Мурманска живёте ...

Lolshto74, ваша задачка легко решаема, и решение "лежит на поверхности" ...
Но это не ко мне , к сожалению.
Паспортные столы умудрились сильно мне "насолить" по жизни, зарёкся.

Не по теме:

Не-на-вижу!

shanemac51 · 06.10.2021, 13:47

Сообщение от Lolshto74

Вот база

не работает почти все -имена полей в формах/отчетах не соответствуют запросам/таблицам

@Eugene-LS · 06.10.2021, 13:50

Lolshto74, чего вы на форум вылезли - у вас там своих (блатных) разрабов "как грязи"!

@Capi · 06.10.2021, 14:10

Сообщение от Eugene-LS

Паспортные столы умудрились сильно мне "насолить"

И при чем тут паспортные столы?

У ТС совсем другие паспорта в БД - на изделия.

Сообщение от Eugene-LS

Lolshto74, чего вы на форум вылезли

Аккуратнее.
А то могут спросить, чего на форум вылезли Вы.

@Eugene-LS · 06.10.2021, 14:33

Сообщение от Capi

У ТС совсем другие паспорта в БД - на изделия.

Принято!
Lolshto74, Извините пожалуйста, увидев таблицу "Паспорта" - вскипел (взорвался), почём зря.
Продолжим... (попытаемся)

Добавлено через 9 минут
Lolshto74, изучаю материал ....
https://www.youtube.com/watch?... MM&index=3

shanemac51 · 06.10.2021, 15:10

Сообщение от Eugene-LS

изучаю материал

музыкальная пауза .........

@Eugene-LS · 06.10.2021, 16:01

Сообщение от shanemac51

музыкальная пауза ...

Да! - Всё как в жизни!
В отличии от Capi - я живой человек ... со своими "тараканами" ...
...
Опередить можно - а торопить меня не нужно ....

Добавлено через 8 минут

Не по теме:

Сообщение от Eugene-LS

а торопить меня не нужно ...

Только что дефчёнки из Фререзениус отзвонились ...
Уф...
Отчётность в ФОМС (по новым условиям) принята!
Дело сделано. Можно ... и на форуме ...

Добавлено через 22 минуты
Lolshto74 чё-то уж слишком легко, как не бывает,
я правильно понимаю :
Вам в отчёте нужны те-же записи, что видимы (после фильтрации) в форме списка?
...

Код вы пишите очень стилизовано однако ....
Исправил уже 8 ошибок.

@Lolshto74 · 06.10.2021, 16:20 **[ТС]**

Eugene-LS,

Да, те же записи!

@Eugene-LS · 06.10.2021, 16:51

Сообщение от Lolshto74

Да, те же записи!

Ну тогда могли бы и сами догадаться ...

@Eugene-LS · 06.10.2021, 17:19

Lolshto74, исправил ещё пару ошибок ...

@Lolshto74 · 06.10.2021, 17:26 **[ТС]**

Eugene-LS,

Спасибо, но если сделать фильтр по Вид документации- Новая, то выдает ошибку

@alvk · 07.10.2021, 01:49

Выкладывать фото монитора - дурной тон!

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .

@Lolshto74 0 / 0 / 0 Регистрация: 04.10.2021 Сообщений: 13
	05.10.2021, 13:36 [ТС]
	Capi В Immediate нечего не пишет. Сспасибо за советы. Не уверен , что получится скинуть базу, слишком много конфиденциальной информации( а без этого похоже никак 0

@Lolshto74 0 / 0 / 0 Регистрация: 04.10.2021 Сообщений: 13
	05.10.2021, 14:26 [ТС]
	Eugene-LS Ок, спасибо, попытаюсь сделать такую базу 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	06.10.2021, 12:30
	реально всё красное? это вам к другому врачу 0

@Eugene-LS 13229 / 5913 / 1520 Регистрация: 05.10.2016 Сообщений: 16,562
	06.10.2021, 13:50
	Lolshto74, чего вы на форум вылезли - у вас там своих (блатных) разрабов "как грязи"! 0

@Lolshto74 0 / 0 / 0 Регистрация: 04.10.2021 Сообщений: 13
	06.10.2021, 16:20 [ТС]
	Eugene-LS, Да, те же записи! 0

@Lolshto74 0 / 0 / 0 Регистрация: 04.10.2021 Сообщений: 13
	06.10.2021, 17:26 [ТС]
	Eugene-LS, Спасибо, но если сделать фильтр по Вид документации- Новая, то выдает ошибку Миниатюры 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	07.10.2021, 01:49
	Выкладывать фото монитора - дурной тон! 0