powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос
3 сообщений из 3, страница 1 из 1
Запрос
    #32157149
audit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Кто может подскажите !
Имеется база данных с 1990 – 2003 годы из базы нужно сделать выборку
к примеру 10.11.95 по 10.11.98 . Для этой цели создаю отчет указываю начальную дату и конечную дату жмем клавишу просмотреть после чего он выдает список по порядку начиная с 1990 г.

Наверное я здесь что то нагородил :

Option Compare Database

Private Sub Report_Error(DataErr As Integer, Response As Integer)

End Sub

Private Sub Report_NoData(Cancel As Integer)
MsgBox "Отсутствуют данные для этого отчета. Отчет создан не будет..."
Cancel = -1
End Sub
Private Sub Report_Close()
DoCmd.Close acForm, "Период отчета"
End Sub
Private Sub Report_Open(Cancel As Integer)
DoCmd.OpenForm "Период отчета", , , , , acDialog, "Введите дату"
If Not IsLoaded("Период отчета") Then
Cancel = True
End If
End Sub

Private Sub ЗаголовокГруппы3_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub ЗаголовокОтчета_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)

End Sub
...
Рейтинг: 0 / 0
Запрос
    #32157199
Kriven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А где отчет ограничивается?
...
Рейтинг: 0 / 0
Запрос
    #32157337
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В самом деле ты не привел кода , который применяет фильтр по отчету, изменяет входные параметры или меняет его источник данных


явные ошибки

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Report_Open(Cancel As Integer) 
DoCmd.OpenForm  "Период отчета" , , , , , acDialog,  "Введите дату"  - если форму открываешь как диалог то пока диалог не закроешь - на этой строке будет останов
If Not IsLoaded( "Период отчета" ) Then  - если код дошел до этой строки то форма в режиме диалога уже закрыта.
Cancel = True 
End If 
End Sub 
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]