Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > Задание значений элементам отчета

Автор: Zahny 13.4.2005, 13:03

День добрый!
Даже не знаю, с чего начать... Мне надо перед открытием отчета задать значение одного из полей MoneySum. Менять значение свойств Value и Text в режиме разработки ViewDesign мне не разрешают. smile

Через ControlSource тоже не получается. Перед открытием отчета меня просят задать параметр (в данном случае "14"). 14, понятное дело, что-то вроде заглушки. Значение поля получается суммированием значений поля Meeting.Money. Я бы, конечно, впаяла Sum(M.Money) в SELECT, но что-то не получается. И даже с помощью мастера не получается написать нужный запрос. Не суммирует он, хоть ты тресни. Помогите, пожалуйста!

Код


Dim num As Integer

num = Form_Show_report.CName.Value

DoCmd.OpenReport "ClientsMeetings", acViewDesign
Reports!ClientsMeetings.RecordSource = "SELECT * FROM Clients as C, Meetings as M, SiemensCWs as S, MeetingsCWs as MC WHERE C.ID=M.CID AND MC.MID=M.ID AND MC.CWID=S.ID AnD C.ID=" & num

Reports!ClientsMeetings.Controls!MoneySum.ControlSource = 14
DoCmd.Save acReport, "ClientsMeetings"
DoCmd.OpenReport "ClientsMeetings", acViewPreview

Автор: Akina 13.4.2005, 13:18

Цитата(Zahny @ 13.4.2005, 14:03)

Мне надо перед открытием отчета задать значение одного из полей MoneySum.

Значит так - лезем в хелп, ищем пример кода с функцией IsLoaded и смотрим как и (главное) нахрена эта функция сделана.

Автор: Zahny 13.4.2005, 13:51

Честное слово не пойму, как мне это может помочь. Я и так знаю, открыт у меня отчет или нет.
И пример тоже не помогает раскрыть глаза. smile

И не надо, пожалуйста, в таком тоне отвечать. Мне и так тяжело. smile

Автор: Akina 13.4.2005, 15:07

Zahny
Ты не поняла идеи - а в примере как раз разбирается вариант, когда надо при формировании отчета задать некий параметр вручную.

Делается форма. Свободная, т.е. без источника данных. С полями, которые позволят ввести нужные параметры (текстбокс для свободного ввода или там листбокс для выбора значения из таблицы).
Отчет берет введенные данные непосредственно из контрола формы (типа в форме ФормаВводаДанных есть текстбокс MoneySum, в него юзер введет 14, а репорт при открытии сделает MoneySum=Forms("ФормаВводаДанных")!MoneySum.Value - т.е. эти введенные 14 запихнет в свою локальную переменную MoneySum и потом использует как ему требуется).
Однако надо чтобы форма была загружена - иначе отчету станет плохо, сложно получить значение из контрола, которого нет. Для этого проверяется, загружена ли форма (вот для чего IsLoaded, а совсем даже не для проверки загруженности отчета), и не в режиме ли она макета (из макета значение тоже не взять). Если загружена - она делается модально активной, и в нее можно вести данные, а если не загружена - предварительно загружается. По окончании ввода форма не закрывается, а просто делается невидимой - при этом управление передается обратно процедуре загрузки отчета, но форма есть, и процедура может получить значение в ее контроле и использовать.

Именно это тебе и надо сделать.

Автор: Zahny 13.4.2005, 15:18

Теперь поняла. Спасибо.
Неужели нет более простого способа? А то ради одного поля цЕлую форму городить. Но раз нет, то займусь формой...

Автор: Zahny 13.4.2005, 15:47

Всё работает. Сделала без IsLoaded. Просто добавила на форму, из которой вызываю отчет, невидимый техтбокс. Форма всегда открыта (когра надо) и не в конструкторе.
Спасибо

Автор: Akina 13.4.2005, 16:20

Цитата(Zahny @ 13.4.2005, 16:47)

добавила на форму, из которой вызываю отчет, невидимый техтбокс

Тогда лучше невидимый Label - он полегче... smile

а можно вообще не добавлять, а использовать Tag самой формы или любого ее контрола... а можно в форме просто объявить Public-переменную... а еще лучше в Common-модуле...

Автор: Zahny 13.4.2005, 16:35

Так я и знала, что есть 100 тыс. разных вариантов. Мой работает - и ладно. У меня теперь другая проблема. Но это, как говорится, уже совсем другая история.