Есть запрос, выдающий количество готовых договоров по районам за период:
1.
2.
3.
4.
SELECT [Контроль договоров].№района, Count([Контроль договоров].№района) AS [Count-№района]
FROM Сотрудники INNER JOIN [Контроль договоров] ON Сотрудники.№сотр = [Контроль договоров].№сотр
WHERE ((([Контроль договоров].[Договор оформлен]) Is Not Null
And ([Контроль договоров].[Договор оформлен]) Between [Forms]![Даты]![НачальнаяДата] And [Forms]![Даты]![КонечнаяДата])
GROUP BY [Контроль договоров].№района;
На его основе создан соот. отчет РайоныДата куда это все выводится + поля, где =[НачальнаяДата] и =[КонечнаяДата]
Свойства:
Открытие
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub Report_Open(Cancel As Integer)
' Открытие формы "Даты".
' Функция IsLoaded (из модуля "Служебные функции" ) определяет,
' открыта ли конкретная форма.
Dim strDocName As String
strDocName = "Даты"
' Задание для общей переменной значения True, чтобы
' сообщить форме, что для отчета выполняется событие
' "Открытие" (Open).
blnOpening = True
' Открытие формы.
DoCmd.OpenForm strDocName, , , , , acDialog
' Если форма не загружена, невозможен просмотр или печать отчета.
' (Пользователь нажал в форме кнопку "Отмена".)
If IsLoaded(strDocName) = False Then Cancel = True
' Задание для общей (public) переменной значения False,
' указывающее, что событие "Открытие" (Open) завершено.
blnOpening = False
End Sub
Закрытие
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Report_Close()
' Закрывает форму "ПоискДата" .
Dim strDocName As String
strDocName = "ПоискДата"
DoCmd.Close acForm, strDocName
End Sub
И есть форма Даты, где есть 2 поля в именах которых прописано соот. НачальнаяДата и Конечная дата
по кнопке ОК происходит:
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.
Private Sub Кнопка5_Click()
On Error GoTo Err_Кнопка5_Click
Dim strMsg As String, strTitle As String
Dim intStyle As Integer
' Если отчет о РайоныДата не был открыт для просмотра или печати,
' возникает ошибка. (Переменная blnOpening имеет значение True, только если
' для отчета произошло событие Open.)
If Not Reports![РайоныДата].blnOpening Then Err.Raise 0
' Скрытие формы.
Me.Visible = False
Exit_OK_Click:
Exit Sub
Err_Кнопка5_Click:
strMsg = "По ходу дела еще какую-н фигню нужно доработать! Удачи!"
intStyle = vbOKOnly
strTitle = "ВНИМАНИЕ!!! Подкрался северный пушной зверек!"
MsgBox strMsg, intStyle, strTitle
Resume Exit_Кнопка5_Click
End Sub
На текст Msg не обращайте внимание это для поднятия настроения, - потом уберу!
Модуль "Служебные функции" есть
Подскажите, пожалуйста, что именно здесь неправильно? Что нужно поправить чтобы все заработало? Т.е по запуску отчета выскакивала форма Даты, куда вписываются 2 даты, жмется оки оттбор записей в отчете соот. по заданному периоду.
