Обработка события Open для отчета. Синтаксис VB

@chum · Регистрация: 19.01.2010

Студворк — интернет-сервис помощи студентам

Добрый вечер, форумчане!

Создала форму, на неё положила элемент "Поле со списком",
В запросе в условии отбора сделала указала эту форму. На основании этого запроса с параметром
создала отчет.
На форму, где было "Поле со списком, добавила кнопку "Открыть отчет".

Всё работает, но как-то неудобно: надо сначала открывать форму, чтоб посмотреть отчет.

Выход - сделать, чтоб при открытии отчета, Access сначала запускал процедуру, присоединенную к его событию Open, и лишь потом выполнял запрос, заполняющий этот отчет данными.

В книге авторов П. Литвина, К. Гетца и М. Гунделой нашла похожий пример (в нем в процедуре обработки события Open отчета происходит следующее:если форма frmSortOrder еще не открыта, то процедура открывает её, а затем проверяет, открыта ли она. Если форма все еще открыта, то процедура считывает значения её пользовательских свойств SortField и SortOrder и присваивает их свойствам ControlSource и SortOrder двух уровней группировки отчета).

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Report_Open(Cancel As Integer)
    ' This is the only event where you can work
    ' with GroupLevel properties at run-time
    ' (that is, without opening the report in Design view).
    
    Dim strField As String
    Dim frm As Form
    
    ' Open the selection form (frmSortOrder), and get
    ' information from it.
    If Not IsOpen(adhcSortOrderForm) Then
        DoCmd.OpenForm adhcSortOrderForm, _
         WindowMode:=acDialog, OpenArgs:=Me.Name
    End If
            
    ' Is it still open? If so, set things up here.
    If IsOpen(adhcSortOrderForm) Then
        Set frm = Forms(adhcSortOrderForm)
        strField = frm.SortField
        txtName.ControlSource = strField
        txtLetter.ControlSource = _
         "=Left$([" & strField & "], 1)"
        Me.GroupLevel(0).ControlSource = strField
        Me.GroupLevel(1).ControlSource = strField
        Me.GroupLevel(0).SortOrder = frm.SortOrder
        Me.GroupLevel(1).SortOrder = frm.SortOrder
        DoCmd.Close acForm, adhcSortOrderForm
    End If
    
End Sub

Опыта работы в VB у меня нет, поэтому прошу помочь мне разобраться с этим кодом.
Вот, например, в строках:

Visual Basic
1
2
3
4
If Not IsOpen(adhcSortOrderForm) Then
        DoCmd.OpenForm adhcSortOrderForm, _
         WindowMode:=acDialog, OpenArgs:=Me.Name
    End If

используется в функцию IsOpen, в которую параметром передается adhcSortOrderForm.
Сама форма, которую проверяют "на открытость" называется frmSortOrder. По какому принципу появляется конструкция "adhc.......Form"?
Пробовала переделать под себя этот код, убрать группировки/сортировки и добавить считывание данных из поля со списком из моей формы. Но, блин, видимо, я еще "слаба в коленках" в плане синтаксиса в VB........

Добавлено через 4 часа 23 минуты
Простите за корявость изъяснения, но смысл моей просьбы таков: как правильно составить процедуру обработки события Open для отчета, которая передаёт параметры запросу, на основании которого строится отчет?

@ironegg · 20.03.2011, 23:58

выложил бы кусок БД с инструкцией (типо, какую форму запускать, что вводить, что должно получится). было бы понятнее

@chum · 21.03.2011, 11:25 **[ТС]**

Сообщение от ironegg

выложил бы кусок БД с инструкцией (типо, какую форму запускать, что вводить, что должно получится). было бы понятнее

Уже с заданным вопросом разобралась, всё Ok: при попытке открыть отчет, у меня выскакивает форма, где пользователю предлагается выбрать название компании из поля со списком, а потом уже собственно открывается сам отчет, где содержится информация только по выбранной компании. Если же пользователь ничего не выбрал, то ему показываю сообщение "не выбрана ни одна компания".

Теперь у меня задумка такая: как программно убрать параметр из запроса?
Чтоб, если пользователь не выберет ни одно название организации из поля со списком, то в отчет выводилась бы информация по всем организациям....

@ironegg · 21.03.2011, 11:55

какая то у тебя философия не правильная. пользователь не должен открывать отчет через окно БД. для этого существуют формы.
при запуске открывается кнопочная форма, из нее запускается форма с выбором параметров отчета, в свою очередь эта форма открывает отчет(параметр передается в отчет из этой формы). код при этом тривиален, пара строк, и чаще всего может быть сгенерирован мастером.
вот какая схема действий заложена дядей билли. а ты велосипед изобретаешь. можно, конечно, как угодно загнуть на VBA, только зачем?

@chum · 21.03.2011, 12:11 **[ТС]**

Сообщение от ironegg

какая то у тебя философия не правильная. пользователь не должен открывать отчет через окно БД. для этого существуют формы.
при запуске открывается кнопочная форма, из нее запускается форма с выбором параметров отчета, в свою очередь эта форма открывает отчет(параметр передается в отчет из этой формы). код при этом тривиален, пара строк, и чаще всего может быть сгенерирован мастером.
вот какая схема действий заложена дядей билли. а ты велосипед изобретаешь. можно, конечно, как угодно загнуть на VBA, только зачем?

У меня все именно так и есть:
то есть и кнопочная при запуске, и из нее запускается форма для параметров отчета, и т.д, и т.п.
Просто если, форма для параметров закрыта, теперь её можно вручную не открывать, т.к. она автоматически откроется при попытке открыть отчет.

Да, в принципе, это мои заморочки.
Вот сейчас читаю всякую информацию, чтоб если пользователь не выберет на форме значение из поля со списком, то чтоб запрос выполнялся без параметра.

@yulianna2501 · 21.03.2011, 12:18

Visual Basic
1
2
DoCmd.OpenForm adhcSortOrderForm, _
         WindowMode:=acDialog, OpenArgs:=Me.Name

эта строка открывает форму с отображение информации только по выбранному имени??или она открывает форму со всей информацией по всем позициям, просто фокусируется на выбранном имени??

@chum · 21.03.2011, 12:28 **[ТС]**

Этот код был приведен как пример открытия формы, при попытке открыть отчет, а сама задача этого примера другая (там на форме две кнопки, на одной написано "Сортировать по фамилиям, а на второй "сортировать по "компаниям" ).
То, какой вопрос я задала в первом сообщении, я уже сделала.

@yulianna2501 · 21.03.2011, 12:33

это я для себя вопрос задаю..мне что-то наподобе нужно.посмотрите пожалуйста мою тему-может сможете помочь.
Открытие формы данного (выбранного) элемента

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	20.03.2011, 23:58
	выложил бы кусок БД с инструкцией (типо, какую форму запускать, что вводить, что должно получится). было бы понятнее 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	21.03.2011, 11:55
	какая то у тебя философия не правильная. пользователь не должен открывать отчет через окно БД. для этого существуют формы. при запуске открывается кнопочная форма, из нее запускается форма с выбором параметров отчета, в свою очередь эта форма открывает отчет(параметр передается в отчет из этой формы). код при этом тривиален, пара строк, и чаще всего может быть сгенерирован мастером. вот какая схема действий заложена дядей билли. а ты велосипед изобретаешь. можно, конечно, как угодно загнуть на VBA, только зачем? 0

@chum 111 / 51 / 5 Регистрация: 19.01.2010 Сообщений: 139
	21.03.2011, 12:28 [ТС]
	Этот код был приведен как пример открытия формы, при попытке открыть отчет, а сама задача этого примера другая (там на форме две кнопки, на одной написано "Сортировать по фамилиям, а на второй "сортировать по "компаниям" ). То, какой вопрос я задала в первом сообщении, я уже сделала. 0

@yulianna2501 26 / 28 / 0 Регистрация: 28.01.2011 Сообщений: 530
	21.03.2011, 12:33
	это я для себя вопрос задаю..мне что-то наподобе нужно.посмотрите пожалуйста мою тему-может сможете помочь. Открытие формы данного (выбранного) элемента 0