Отчет через VBA

@Шарлотта Грэй · Регистрация: 20.10.2018

Здравствуйте, Форумчане! Помогите, пожалуйста, откорректировать код на открытие отчета с условием.

При нажатии на кнопку на Форме открывается Отчет, где проверяется 4 условия по полям выделенным желтым цветом: поле Требование(числовое), поле ПО(числовое), поле Категория(поле со списком). Соответственно если какое-то условие выполняется, то открывается нужный отчет.

Отчеты по Номен 100,500 печатаются как надо, а 300,400 начинается свистопляска, потому что проверка идет по Категория плюс подотчет к ним выводится тоже не правильно.

Буду Вам очень признательна и если не трудно объяснить почему такое происходит. Заранее спасибо!

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Кнопка68_Click()
    If [ПО] > 0 Then
    DoCmd.OpenReport "ОтчетПО", acViewPreview, , "[Номен]=" & Me.[Номен]
    End If
    If IsNull([ПО]) Then
    DoCmd.OpenReport "Отчет", acViewPreview, , "[Номен]=" & Me.[Номен]
    End If
    If [Комбинированная65] = 9 Then
    DoCmd.OpenReport "ОтчетПЭВМ", acViewPreview, , "[Номен]=" & Me.[Номен]
    End If
    If [Комбинированная65] = 10 Then
    DoCmd.OpenReport "ОтчетПрочее", acViewPreview, , "[Номен]=" & Me.[Номен]
    End If
        
End Sub

@Eugene-LS · 10.01.2020, 10:25

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

И галку на изменение обязательно.

Если бы! (мечтательно так)
Код (Long) со значением (Text) - не связать. Предстоит серьёзная перелопачивание изначально "криво" созданной БД.
Ей бы книжку почитать - так нет "методом научного тыка", а такие фокусы с БД не проходят, увы.

@alvk · 10.01.2020, 10:46

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

Код (Long) со значением (Text) - не связать.

ей срочно нужна дата

@Шарлотта Грэй · 11.01.2020, 17:45 **[ТС]**

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

Объединение - Все из таблицы ТМЦ и только те, которые совпадают из таблицы-справочника.
И галку на изменение обязательно.

Галки у меня все проставлялись, когда были Поля со списком, а сейчас не получится.

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

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

вы же время мне не прислали.

Что означает эта фраза?

Добавлено через 19 минут
Eugene-LS, почему Количество не суммируется, хотя в Запросе это есть?

@Kiriver · 11.01.2020, 18:49

Шарлотта Грэй, а если выполнится 2 условия, например, ПО пустое и комбинированная65 = 9, то, что должно открыться?

@Шарлотта Грэй · 11.01.2020, 20:08 **[ТС]**

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

Шарлотта Грэй, а если выполнится 2 условия, например, ПО пустое и комбинированная65 = 9, то, что должно открыться?

ОтчетПЭВМ. Проверено.

Добавлено через 5 минут
В ходе своего эксперимента обнаружила следующее: если поле Категория "компьютер", то открывается сразу два отчета - Отчет и ОтчетПЭВМ, потому что выполняется два условия. Тогда я скорректировала код:
было:

Visual Basic
1
If IsNull([ПО]) Then DoCmd.OpenReport "Отчет", acViewPreview, , "[Номен]=" & Me.[Номен]

стало:

Visual Basic
1
2
If IsNull(Me!ПО) And Me!Категория <> "компьютер" And Me!Категория <> "оргтехника" Then 
        DoCmd.OpenReport "ОтчетПЭВМ", acViewPreview, , "[Номен]=" & Me.[Номен]

@Шарлотта Грэй · 11.01.2020, 22:03 **[ТС]**

Исправила схему, поля Наименование, Ответственный, Категория, Состояние в таблице ТМЦ сделала числовыми-длинное целое, после этого смогла установить связь один-ко-многим.Но теперь в этой таблице вместо слов выводятся Коды, а на форме ТМЦ в поле Ответственный не могу из списка выбрать ФИО, система пишет "Введенное значение не подходит для данного поля".

@АЕ · 11.01.2020, 22:09

Сообщение от Шарлотта Грэй

теперь в этой таблице вместо слов выводятся Коды

Откройте таблицу для редактирования и подправьте подстановку значений для поля с кодом (можно через построитель) указав ширину поля с кодом 0, а наименование вторым. Далее во всех вновь созданных формах и отчетах все будет как "надо"

@Шарлотта Грэй · 11.01.2020, 22:17 **[ТС]**

Сообщение от АЕ

Откройте таблицу для редактирования и подправьте подстановку значений для поля с кодом (можно через построитель) указав ширину поля с кодом 0, а наименование вторым.

Это возможно для Поля со списком, а у меня это Поле. Ранее было сказано, что в главной таблице не должно быть Полей со списком, поэтому я все переделала.

@АЕ · 11.01.2020, 22:30

Сообщение от Шарлотта Грэй

поэтому я все переделала

А вы им не верьте! Они все работают со старыми версиями акцесса во первых, старая школа во вторых и в вашем случае кроме пользы никакого вреда не будет. Вы же не планируете переводить все на SQL и продавать готовое решение и т.п.
Вам только на пользу пойдет.

shanemac51 · 11.01.2020, 22:34

и теперь в каждой форме/отчете вы должны прописать заново удаленные подстановки(для форм ввода) или делать отчеты/формы_просмотра на запросах, которые реализуют присоединение справочников(для отчетов и экспорта в ексель)

все требует учета особенностей задачи
- сетевая/локальная
- тысяча/другая записей или миллионы
- только просмотр или есть и корректировка несколькими пользователями
- нужен ли экспорт таблиц/запросов в ексель

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

Сообщение от Шарлотта Грэй

поэтому я все переделала.

все хорошо в меру, но разумно и с учетом конкретики

@Шарлотта Грэй · 11.01.2020, 23:03 **[ТС]**

Сообщение от АЕ

Вы же не планируете переводить все на SQL и продавать готовое решение и т.п.
Вам только на пользу пойдет.

Я делаю это исключительно для себя, хочу получать удовольствие от работы и быть более полезней для коллег.

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

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

и теперь в каждой форме/отчете вы должны прописать заново удаленные подстановки(для форм ввода) или делать отчеты/формы_просмотра на запросах, которые реализуют присоединение справочников(для отчетов и экспорта в ексель)

призадумалась.

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

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

все требует учета особенностей задачи
- сетевая/локальная
- тысяча/другая записей или миллионы
- только просмотр или есть и корректировка несколькими пользователями
- нужен ли экспорт таблиц/запросов в ексель

Компьютер автономный, не стала его подключать по локальной сети, работаю на нем только я, записей почти 5тыс. Экспорт делаю в Эксель.

shanemac51 · 11.01.2020, 23:07

Сообщение от Шарлотта Грэй

исключительно для себя, хочу получать удовольствие от работы

даже в этом случае вы должны оценить
- примерное количество записей в неделю/месяц/год
- проанализировать входные документы, чтобы правильно нормализовать таблицы(короче -понять какие нужны справочники)
- подумать о том, что вы хотите получить в итоге(экспорт в ексель, жесткие отчеты в аксесс , заполнение шаблонов ВОРД, отчеты в ексель)
- насколько подвижны отчеты, насколько часто требуется изменять формы отчетов
....

@АЕ · 11.01.2020, 23:08

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

@Шарлотта Грэй · 11.01.2020, 23:12 **[ТС]**

shanemac51, хочу еще раз поблагодарить Вас за помощь в создании Поиска в моей БД, постоянно ей пользуюсь и она меня очень выручает, безгранично Вам благодарна!!!!!!!!!!!

@alvk · 12.01.2020, 01:53

Сообщение от Шарлотта Грэй

а сейчас не получится.

какой должен быть тип поля для связи с одной стороны и тип поля с другой стороны?
Если вы даже этого не знаете, то не вижу никакого смысла в дальнейшем общении.

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

Сообщение от АЕ

А вы им не верьте! Они все работают со старыми версиями акцесса во первых, старая школа во вторых и в вашем случае кроме пользы никакого вреда не будет.

я так понимаю от безысходности это было сказано.

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

Сообщение от АЕ

Ну а удовольствие однозначно получите

Сообщение от Шарлотта Грэй

Экспорт делаю в Эксель.

Безусловно с вашей помощью она получит неописуемое удовольствие

Сообщение от АЕ

Откройте таблицу для редактирования и подправьте подстановку значений для поля с кодом (можно через построитель) указав ширину поля с кодом 0, а наименование вторым.

@Шарлотта Грэй · 12.01.2020, 18:30 **[ТС]**

alvk, Ваши издёвки здесь не уместны. Всего доброго.

@Kiriver · 12.01.2020, 18:33

Шарлотта Грэй, чем история с отчетами-то закончилась?)

@Шарлотта Грэй · 12.01.2020, 18:40 **[ТС]**

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

Шарлотта Грэй, чем история с отчетами-то закончилась?)

Все отчеты открываются по условию, правильно, пытаюсь разобраться почему нет суммирования количества в отчете?

@Kiriver · 12.01.2020, 19:39

Шарлотта Грэй, не могу найти что с чем с должно суммироваться? По ранее выложенным проблемам, вроде, все нормально.

@alvk · 13.01.2020, 04:43

Сообщение от Шарлотта Грэй

Ваши издёвки здесь не уместны. Всего доброго.

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

Новые блоги и статьи Все статьи Все блоги /
Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 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 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .

@Kiriver 431 / 239 / 86 Регистрация: 09.04.2018 Сообщений: 1,023
	11.01.2020, 18:49
	Шарлотта Грэй, а если выполнится 2 условия, например, ПО пустое и комбинированная65 = 9, то, что должно открыться? 0

@Шарлотта Грэй 5 / 5 / 0 Регистрация: 20.10.2018 Сообщений: 93
	11.01.2020, 22:03 [ТС]
	Исправила схему, поля Наименование, Ответственный, Категория, Состояние в таблице ТМЦ сделала числовыми-длинное целое, после этого смогла установить связь один-ко-многим.Но теперь в этой таблице вместо слов выводятся Коды, а на форме ТМЦ в поле Ответственный не могу из списка выбрать ФИО, система пишет "Введенное значение не подходит для данного поля". Миниатюры 0

@АЕ ᴁ © 4179 / 2464 / 513 Регистрация: 13.12.2016 Сообщений: 8,374 Записей в блоге: 5
	11.01.2020, 23:08
	Шарлотта Грэй, в любом случае про схему данных и связи таблиц вам абсолютно правильно сказали - это фундамент. Ну а удовольствие однозначно получите, когда своими руками, преодолевая ошибки получите желаемый результат. Удачи! 1

@Шарлотта Грэй 5 / 5 / 0 Регистрация: 20.10.2018 Сообщений: 93
	11.01.2020, 23:12 [ТС]
	shanemac51, хочу еще раз поблагодарить Вас за помощь в создании Поиска в моей БД, постоянно ей пользуюсь и она меня очень выручает, безгранично Вам благодарна!!!!!!!!!!! 0

@Шарлотта Грэй 5 / 5 / 0 Регистрация: 20.10.2018 Сообщений: 93
	12.01.2020, 18:30 [ТС]
	alvk, Ваши издёвки здесь не уместны. Всего доброго. 0

@Kiriver 431 / 239 / 86 Регистрация: 09.04.2018 Сообщений: 1,023
	12.01.2020, 18:33
	Шарлотта Грэй, чем история с отчетами-то закончилась?) 0

@Kiriver 431 / 239 / 86 Регистрация: 09.04.2018 Сообщений: 1,023
	12.01.2020, 19:39
	Шарлотта Грэй, не могу найти что с чем с должно суммироваться? По ранее выложенным проблемам, вроде, все нормально. 0