Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.07.2010, 12:31   #1
Kot9ra
Пользователь
 
Аватар для Kot9ra
 
Регистрация: 10.06.2010
Сообщений: 17
Лампочка Подстановка значений в строку отчета

Здравствуйте форумчане,
Подскажите как сделать :
есть отчет там должна быть подпись руководителя.
Охота чтобы при запуске отчета выскакивало окно с названием "Выберите подпись руководителя" в этом окне был раскрывающийся список с Ф.И.О. руководства. При выборе одного из перечисленных и нажатии кнопки "ОК". в отчете в строке "Надпись1" появлялись данные выбранного руководителя
С уважением,
Константин.
Kot9ra вне форума Ответить с цитированием
Старый 04.07.2010, 11:50   #2
Teslenko_EA
Участник клуба
 
Регистрация: 10.08.2009
Сообщений: 1,796
По умолчанию

Здравствуйте Kot9ra.
"..выскакивало окно.." - думаю подразумевается запуск отчета из формы с предварительно заданными в форме значениями для полей отчета.
Решение может быть таким:
1. объявите в модуле Вашего проекта текстовые переменные
Код:
Public s0$, s1$, s2$', ...
2. там же в модуле создайте подобную функцию
Код:
Function fReport(i%) As String
Select Case i
Case 0: fReport = s0
Case 1: fReport = s1
Case 2: fReport = s2
'...
End Select
End Function
3. в отчете разместите поля, не связанные с данными источника отчета:
Поле0, Поле1, Поле2,...
4. источником данных для этих полей будет служить функция с соответствующим аргументом, установите соответственно Данные полей:
=fReport(0), =fReport(1), =fReport(2), ...
5. "запускающая" форма должна содержать необходимые контролы - поле, поле со списком, кнопка, ... а код обработчика нажатия кнопки, может быть подобным:
Код:
Private Sub Кнопка1_Click()
    s0 = "Привет, сегодня " + Format(Date(), "d mmmm yyyy г.")
    s1 = Me.ПолеСоСписком1 & ""
    s2 = Me.Поле2 & ""
    DoCmd.OpenReport "Отчет1", acPreview
    ...
примерно так.
Евгений.
Teslenko_EA вне форума Ответить с цитированием
Старый 07.07.2010, 12:48   #3
Kot9ra
Пользователь
 
Аватар для Kot9ra
 
Регистрация: 10.06.2010
Сообщений: 17
По умолчанию

Здравствуйте Евгений.
Спасибо большое за помошь, все работает и все просто супер!!!
С уважением,
Константин.
Kot9ra вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сравнение столбцов в Excel и подстановка значений Oleg77 Помощь студентам 2 06.02.2010 03:09
Подстановка значений 1-го, 2-го и т.д. вхождения MaxxVer Microsoft Office Excel 9 03.12.2009 06:31
Подстановка значений в MS Access Vit@L БД в Delphi 12 04.09.2009 16:24
Подстановка значений при наборе kopoba БД в Delphi 4 02.06.2009 10:34
Подстановка значений в таблицу по условию mchip Microsoft Office Access 15 01.07.2008 09:54