powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
25 сообщений из 75, страница 2 из 3
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267662
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
:^) Ура!
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267663
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
...Не ура. Секундочку...
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267669
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как, кстати, пополнить данный запрос Union'ом? Куда его?
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267670
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Dim f As Field
For Each f In CurrentDb.QueryDefs(...)
...ControlSource = "=[" & f.Name & "]"
Next
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267674
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
То, что я сейчас написал, позволит задать ControlSource только тем контролам, для которых есть поля.
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267692
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А что подставить на место * при таком раскладе?
---
Dim f As Field
For Each f In CurrentDb.QueryDefs("запрос")
*.ControlSource = "=[" & f.Name & "]"
Next
End Sub
---
Что не соображу сходу...
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267699
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сделал так (при условии, что все поля в отчете названы так, как должны получаться в запросе):
Dim f As Field
For Each f In CurrentDb.QueryDefs("запрос")
Me(f.Name).ControlSource = "=[" & f.Name & "]"
Next

Но... вылетает ошибка выполнения 3251 (операция не поддерживается для объектов данного типа) - на строчке For...
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267706
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
For Each f In CurrentDb.QueryDefs("запрос").Fields

- моя ошибка.
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267719
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Открылся без ошибки, но... ВСЕ поля ([1 (Пн)] и т.п.) пусты! Правда, другие при этом (Фамилии...) отображаются нормально... Эх... Может действительно подумать мне о дополнении недостающими в запросе... Но как?

P.S.: сам запрос при этом показывает все правильно...
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267731
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нет, и другие (ВСЕ) поля пустые... Я просто забыл снять с Фамилий установленный ранее Сурс...:)

Проблемка не решилась...
Уж извините, что замучал, наверное... :)
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267732
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Все-таки интересно посмотреть, какой ControlSource получается при его задании в конструкторе. См. мой пост от 13:03.
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267741
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дык Сурсы тех полей, кот. есть в выборке, нормальны, а на строке присвоения полям несуществующих сурсов Access выдает ошибку и не открывает дальше :(. Debug-то ставится после следующего присвоения...
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267743
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И это происходит даже при On error resume next...
Ошибка-то не понятная - ругается на невозможность найти поле, а название его и есть название самого запроса...
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267745
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
> а на строке присвоения полям несуществующих сурсов Access выдает ошибку и не открывает дальше

1. А как же Resume Next?

2. А как же мой For Each, который проходит только по существующим?
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267749
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
> а название его и есть название самого запроса...

WHAT???
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267751
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Можно переименовать контролы - дать им, скажем, какой-нибудь одинаковый префикс.
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267762
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дык Владимир, по Вашей формуле надо чтобы имена контролов в отчете должны совпадать с полями выборки...

А ошибка действительно не понятная...

Кстати ваша конструкция ошибок не выдает, но поля при этом все пустые...
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267780
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
все таки добейте сурсы. Оно менее геморно. :)

_
А юнион... - заведите себе опорную табличку из одного числового поля и (скажем) 10 значений [0-9]. (Для прочих целей, т.е. вывода больше чем 10 записей - можете создать запросы - прямые произведения таблички на себя). /это связано с тем, что в акс. требуется писать в select ... _FROM_ ... /Обзовите ее, скажем MSysN, поле N.
Тогда, к примеру:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Select # 01 / 01 / 2003 # & ms.N as date,
       Cdbl( 0 ) AS [vremya],
       ""  AS Фамилия,
       ...
 From MSysN
 Where MSysN.N< 7         
UNION
Select date,
       [vremya],
       Фамилия,
       ...
 From Q;

где Q - отобранный набор данных для свертки, и даст вам требуемый "полный" набор данных _для свертки_. Вот и все. Этой же таблой MSysN можете пользоваться в right/left join-ах, для выборки заданного наперед количества записей, даже если реально этих записей нет (т.е. выводить требуемое кол-во пустышек).
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267794
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
И ко мне лучше на ты. Я ведь один человек, а не два.
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267800
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>>И это происходит даже при On error resume next...

А какой у Вас режим останова /по ошибкам/?
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267805
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>>#01/01/2003# & ms.N as date,
тьфу, патарапилси
#01/01/2003# + ms.N as date,
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267814
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>> А какой у Вас режим останова /по ошибкам/? - это где/как? извиняюсь...

А вот по поводу UNION'а... Все-таки не до конца понял со временной табличкой - как, на примере моего запроса:
---
PARAMETERS [forms]![alltime_master]![Подразделение] Text, [forms]![alltime_master]![godvar] Long, [forms]![alltime_master]![Месяц] Byte, [forms]![alltime_master]![Неделя] Byte;
TRANSFORM nz(Sum(roundmy([vremya]/3600,2)),0) AS [Значение]
SELECT [Фамилия] & " " & [Имя] & " " & [Отчество] AS Сотрудник, Staff.Подразделение, Staff.ТабельныйНомер, AllTime.god, AllTime.mesyac, roundmy(Sum([vremya])/3600,2) AS [Итого за неделю]
FROM (AllTime INNER JOIN Staff ON AllTime.karta = Staff.НомерКарты) INNER JOIN Календарь ON AllTime.data = Календарь.Дата
WHERE (((Staff.Подразделение)=[forms]![alltime_master]![Подразделение]) AND ((AllTime.god)=[forms]![alltime_master]![godvar]) AND ((AllTime.mesyac)=[forms]![alltime_master]![Месяц]) AND ((Календарь.Неделя)=[forms]![alltime_master]![Неделя]))
GROUP BY [Фамилия] & " " & [Имя] & " " & [Отчество], Staff.Подразделение, Staff.ТабельныйНомер, AllTime.god, AllTime.mesyac
PIVOT Choose(Weekday([data],2),'(Пн)','(Вт)','(Ср)','(Чт)','(Пт)','(Сб)','(Вс)');
---
Куда надо вставить предложенный текст?
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267815
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>>Me(f.Name).ControlSource = "=[" & f.Name & "]"

В кач-ве брела: А не случится ли [[1 (Пн)]] ? - тогда - error - И пустышка в источниках.
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267832
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>>>> А какой у Вас режим останова /по ошибкам/? - это где/как? извиняюсь
меню Параметры вкладка Другие группа "перехват ошибок: останов" (Акс 97)

куда вставить:
- "поручик Ржевский, молчать!"
- если вы создали кросс таб, то переписать ему источник не составит труда. Главное - идея: Дополнить ваш набор записей 7-ю (или более) пустышками посредством юнион.

А [[ ]] - скорее всего.
...
Рейтинг: 0 / 0
В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
    #32267850
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если не в лом, то вот ссылочка на папочку - в ней 3 файла. Может, прояснит что-то...:
ftp://temp:ftpin@ftp.agmedia.ru:21 (Только смотреть файлы там надо не Эксплорером, а любым ftp-клиентом...)

Очень прошу помочь!
Борис
...
Рейтинг: 0 / 0
25 сообщений из 75, страница 2 из 3
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / В дополнение к вопросу по запуску отчета, основанного на запросе с параметрами..
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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