День добрый, в VBA не спец, потому прошу извинить за возможно повторяемый вопрос.
Есть форма, в ней несколько полей со списками, каждый на основе запроса из таблиц.
Необходимо нажатием одной кнопки строить отчет (при этом выбраны могут быть как все поля, так и лишь некоторые.
Для построения отчета есть запрос, включающий в себя все возможные комбинации.
стандартно access позволяет делать отдельный запрос, отчет, и кнопку для каждого из возможных вариантов (а это не есть хорошо).
в VBA что либо подобное:
Private Sub buttom_Click()
Dim stDocName As String, strSQL As String
stDocName = "имя"
If Me!ЗначениеПоляВФорме Then .......
Else.....
End If
DoCmd.OpenReport stDocName, acPreview, strSQL
Но вот как программно оформить?
Чтобы был единый отчет и запрос для всех возможных вариантов не знаю

Это сообщение отредактировал(а) beliyadm - 3.12.2005, 22:29

Цитата(beliyadm @ 3.12.2005, 23:28)

как программно оформить? Чтобы был единый отчет и запрос для всех возможных вариантов не знаю

Тебе придется:
1) программно строить SQL-строку запроса, который будет источником данных отчета. Типа:

Код

' Extreme draft! strSQL = "SELECT * FROM MyTable" for each OneControl In Controls   where = ""   with OneControl     If .type = combobox and trim(.text)<>"" then       where = where & " " & .tag & " = " & .text & " AND"     end if     if where <> "" then       strSQL = strSQL & " WHERE " & left(where, len(where)-4)     end if   end with next

2) изготовить макет отчета со всеми полями вывода, менять его источник данных на созданную по п. 1 строку, а также скрывать поля, которые не выводятся и растягивать-двигать остальные, чтобы смотрелось нормально.

Спасибо за пояснение, но, ээээээээээээ........
отчет будет единый для всех вариантов, просто строить его надо на основе различных комбинаций выборок из полей со списками (в моем случае: район РФ и\или типШколы и \или специальность в даннойШколе и\или и так далее).
Программаня строка есть уже, но в ней что то вроде:

Код

SELECT типОУ.типОУ, ОКАТО.ОКАТО, ОУ.ОУ, ОУ.подчиненность, ОУ.орган, ОУ.программа, ОУ.уровень, ОУ.юридическийадрес, ОУ.фактическийадрес, ОУ.руководитель, ОУ.датарождения, ОУ.должность, ОУ.телефон, ОУ.факс, ОУ.[e-mail], ОУ.www FROM типОУ INNER JOIN (ОКАТО INNER JOIN ОУ ON ОКАТО.кодОКАТО = ОУ.ОКАТО) ON типОУ.кодтипаОУ = ОУ.типОУ [b]WHERE (((типОУ.кодтипаОУ)=[forms]![otchet]![tip]) AND ((ОКАТО.кодОКАТО)=[forms]![otchet]![okato]))[/b] ORDER BY ОКАТО.ОКАТО, ОУ.ОУ;

Отчет сформирован на основе этого запроса но без условия where.
Каким образом в VBA сделать условие where (чтобы только на нем строился отчет) при наличии значения в определенных полях формы?
Если несложно - скиньте образец, буду очень признателен, если есть у кого [removed by moderator]
В данный момент (заказчик очень просил для нчальства образец) есть следующее:

Код

Private Sub buttom_Click()     If Me!OKATO And Me!tip Then         DoCmd.OpenReport "okato_ou", acPreview     ElseIf Me!OKATO Or Me!tip Then         DoCmd.OpenReport "okato_ou1", acPreview     End If End Sub Но это же геморройно делать отдельный запрос и отчет на каждый из вариантов.......

Это сообщение отредактировал(а) Akina - 4.12.2005, 21:58

М	У нас не скидывают по почте - конфа для всех, а не для тебя одного.

Добавлено @ 21:59

Цитата(beliyadm @ 4.12.2005, 18:36)

Программаня строка есть уже, но в ней что то вроде

Вот к ней программно и добавляй требуемый WHERE

Цитата(Akina @ 4.12.2005, 21:58)

У нас не скидывают по почте - конфа для всех, а не для тебя одного. Добавлено @ 21:59 Цитата(beliyadm @ 4.12.2005, 18:36) Программаня строка есть уже, но в ней что то вроде Вот к ней программно и добавляй требуемый WHERE

Да я же не против, сдеайте раздел где будут лежать примеры на самые задаваемые вопросы!
А насчет того чтобы вот и сделать - говорю же, не спец я в VBA, другая у меня направленность, прошу дать пример кода на данную тему

Может пригодиться по аналогии

Спасибо, нашел там недостающий кусочек

Завсегда пожалуйста!