В обсуждаемой ранее аналогичной теме не нашел ответ на интересующий меня вопрос - а как быть в случае ПЕРЕКРЕСТНОГО запроса? Пробовал указывать в нем вместо PARAMETERS ссылки типа forms!такаято!поле - не катит... Почему-то ругается на невозможность найти, хотя форма открыта и соответствующие поля заполнены:(. С указанием в PARAMETERS'ах - запрашивает пользователя, а надо автоматом, в программе!

Помогите, пожалуйста, с моей проблеммкой.
Борис

Ну хорошо, а можно по-подробнее на примере?
Вот сам запрос:
---
PARAMETERS podrazd Text, godvar Long, mesyacvar Byte, nedelyavar 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.Подразделение)=[podrazd]) AND ((AllTime.god)=[godvar]) AND ((AllTime.mesyac)=[mesyacvar]) AND ((Календарь.Неделя)=[nedelyavar]))
GROUP BY [Фамилия] & " " & [Имя] & " " & [Отчество], Staff.Подразделение, Staff.ТабельныйНомер, AllTime.god, AllTime.mesyac
PIVOT Choose(Weekday([data],2),1 & ' (Пн)',2 & ' (Вт)',3 & ' (Ср)',4 & ' (Чт)',5 & ' (Пт)',6 & ' (Сб)',7 & ' (Вс)');
---
суть его такова, что по каждому сотруднику выводится колонки с днями недели (определенной) и с опред.значениями... А в самих таблицах хранится инфа 1) по числам месяца людей со значениями; 2) таблица соответствия дат и дней недели (Календарь). Как сделать отчет по данному запросу, задавая программно при его открытии значения, указанные в PARAMETERS'ах?

Помогите, пожалуйста!

Спасибо! Указал в PARAMETERS'ах и WHERE Forms!xxx!поле - сработало! Схавало и отчет запустился наконец-то. Но... При отсутствии некот. полей в запросе (например, в запрашиваемой неделе, например 5 за июль, есть только Пн, Вт, Ср и Чт... В отчете существуют все поля недели... А отчет ругается на непонятно пока что (при открытии)....
Помогите уж еще чуть-чуть.

Борис

Дополненьице:
Соответственно, в отчете стоят поля с сурсами:
[1 (ВС)], [2 (ВТ)] и так далее (см. в инструкции PIVOT выше...)

Так вот, при отсутвии в выборке некот. полей ругается нецензурно непонятной ошибкой, т.е. не пишет в самих полях типа #Ошибка или #Имя, а просто не открывается :(

Владимир, а ControlSource ставить можно при открытии (Превью, Печать) или только в конструкторе? У меня .mde, так что конструктор с последующем сохранением отпадает...
Спасибо!

Пишу на Открытие отчета следующее:
On Error Resume Next
[Пн] = [1 (Пн)]
[Вт] = [2 (Вт)]
[Ср] = [3 (Ср)]
[Чт] = [4 (Чт)]
[Пт] = [5 (Пт)]
[Сб] = [6 (Сб)]
[Вс] = [7 (Вс)]
Типа, как я себе представляю, не будет указанного справа поля в выборке - не отобразит... Но: Не открывается с такой же ошибкой - пишет @Имя отчета@ не распознается ядром Jet как допустимое имя поля/выражение". Других методов, кроме OnOpen, нет...

Что еще может быть?

В предыдущем топике конечно имелось ввиду:
[Пн].ControlSource=[1 (Пн)]

и т.д..

Вот, поставив строку If err.Number > 0 Then MsgBox err.Number & " (" & err.Description & ")": err.Clear после каждого присвоения получил следующее: ругается на невозможность найти указанные поля, но как же так? Они (названия их) указаны в соответсвии получаемых в PIVOT запроса!
Блин, где же грабли?

Да, отчет уже открывается, но соответственно с пустыми интересующими полями...

Спасибо за помощь.

Да, в конструкторе они конечно Свободные ;).
Теперь, после замены на "" (вместо []) опять не открывается...

Нет, так тоже вообще не открывается :(.
Вообще заметил, что как только ставлю [Пн].ControlSource = [1 (Пн)] открывается но со всеми (даже где есть данные) пустыми полями, в остальных случаях не открывается...

YES!!!!!
Получилось:
поставил "=[1 (Пн)]" !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1

Нет, поторопился...
Проверил только на выводимых в запросе полях :(.
На тех, кот. нет в выборке, спотыкается. Не открывается вообще...
Эх...

А как, кстати, пополнить данный запрос Union'ом? Куда его?

А что подставить на место * при таком раскладе?
---
Dim f As Field
For Each f In CurrentDb.QueryDefs("запрос")
*.ControlSource = "=[" & f.Name & "]"
Next
End Sub
---
Что не соображу сходу...

Сделал так (при условии, что все поля в отчете названы так, как должны получаться в запросе):
Dim f As Field
For Each f In CurrentDb.QueryDefs("запрос")
Me(f.Name).ControlSource = "=[" & f.Name & "]"
Next

Но... вылетает ошибка выполнения 3251 (операция не поддерживается для объектов данного типа) - на строчке For...

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

P.S.: сам запрос при этом показывает все правильно...

Нет, и другие (ВСЕ) поля пустые... Я просто забыл снять с Фамилий установленный ранее Сурс...:)

Проблемка не решилась...
Уж извините, что замучал, наверное... :)

Дык Сурсы тех полей, кот. есть в выборке, нормальны, а на строке присвоения полям несуществующих сурсов Access выдает ошибку и не открывает дальше :(. Debug-то ставится после следующего присвоения...

И это происходит даже при On error resume next...
Ошибка-то не понятная - ругается на невозможность найти поле, а название его и есть название самого запроса...

Дык Владимир, по Вашей формуле надо чтобы имена контролов в отчете должны совпадать с полями выборки...

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

Кстати ваша конструкция ошибок не выдает, но поля при этом все пустые...

>> А какой у Вас режим останова /по ошибкам/? - это где/как? извиняюсь...

А вот по поводу 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),'(Пн)','(Вт)','(Ср)','(Чт)','(Пт)','(Сб)','(Вс)');
---
Куда надо вставить предложенный текст?

Если не в лом, то вот ссылочка на папочку - в ней 3 файла. Может, прояснит что-то...:
ftp://temp:ftpin@ftp.agmedia.ru:21 (Только смотреть файлы там надо не Эксплорером, а любым ftp-клиентом...)

Очень прошу помочь!
Борис

P.S.: Перехват ошибок стоит "В модуле класса"...

Дык Владимир, а где ставить-то просмотр? В тех рисунках, кот. я выложил в папке на ФТП (см. мой пред-пред-пост) есть текст скрипта в отчете и запрос...