ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Источник данных для отчёта с фильтром в форме
25 сообщений из 27, страница 1 из 2
  1  все
Источник данных для отчёта с фильтром в форме
    #39096778
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Источник данных для формы - запрос на выбор записей по условию (на дату).
Источник данных для отчёта - тот же запрос.
При применении фильтра в форме, можно ли и в отчёте вывести данные в отчёт с учётом фильтра, применённого в форме?
--------------------------------------------------------------------------
СПС
...
Рейтинг: 0 / 0
06.11.2015, 16:03
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096797
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
час58Источник данных для формы - запрос на выбор записей по условию (на дату).

- Делай отвязанное поле в форме для даты, это же поле вставляй в запрос как условие отбора
- в событии после обновления поля делай обновление данных формы
- в отчете на базе этого запроса тоже всё будет ОК (пока открыта форма)
...
Рейтинг: 0 / 0
06.11.2015, 16:19
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096800
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
vmag,

Спасибо.
С датой проблем нет.
Есть проблемы с применением фильтров в форме и отображении только отфильтрованных данных в отчёте.
...
Рейтинг: 0 / 0
06.11.2015, 16:24
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096817
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
час58,

http://www.sql.ru/forum/444869/kak-peredat-filtr-formy-otchetu?
...
Рейтинг: 0 / 0
06.11.2015, 16:42
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096822
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
vmag,
спасибо, пошёл читать.
...
Рейтинг: 0 / 0
06.11.2015, 16:47
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096825
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
час58vmag,
спасибо, пошёл читать.

Особое внимание обрати там на ремарки Анатолия (Киев)...
...
Рейтинг: 0 / 0
06.11.2015, 16:54
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096842
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
При открытии отчета в процедуре обработки события
Код: vbnet
1.
2.
3.
4.
If <форма>.Filter <> "" And <форма>.FilterOn Then
 Me.Filter = <форма>.Filter
 Me.FilterOn = True
End If
...
Рейтинг: 0 / 0
06.11.2015, 17:06
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096843
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
__Michelle,
спасибо щас попробую
...
Рейтинг: 0 / 0
06.11.2015, 17:07
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096852
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
__MichelleПри открытии отчета в процедуре обработки события
Код: vbnet
1.
2.
3.
4.
If <форма>.Filter <> "" And <форма>.FilterOn Then
 Me.Filter = <форма>.Filter
 Me.FilterOn = True
End If



Да, Спасибо.
Вариант прекрасно работает,
даже если фильтрованная форма в данный момент является подчинённой.
...
Рейтинг: 0 / 0
06.11.2015, 17:21
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096896
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Итог таков
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Report_Open(Cancel As Integer)
' Фильтр в отчёте по фильтру формы
If Form_SERVIS_KKM_FRM.CHEKI_V_SMENU_FRM.Form.Filter <> "" And Form_SERVIS_KKM_FRM.CHEKI_V_SMENU_FRM.Form.FilterOn Then
 Me.Filter = Form_SERVIS_KKM_FRM.CHEKI_V_SMENU_FRM.Form.Filter
 Me.FilterOn = True
End If
End Sub
...
Рейтинг: 0 / 0
06.11.2015, 18:14
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096975
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
час58Итог таков
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Report_Open(Cancel As Integer)
' Фильтр в отчёте по фильтру формы
If Form_SERVIS_KKM_FRM.CHEKI_V_SMENU_FRM.Form.Filter <> "" And Form_SERVIS_KKM_FRM.CHEKI_V_SMENU_FRM.Form.FilterOn Then
 Me.Filter = Form_SERVIS_KKM_FRM.CHEKI_V_SMENU_FRM.Form.Filter
 Me.FilterOn = True
End If
End Sub

Делать так не рекомендуется.
...
Рейтинг: 0 / 0
06.11.2015, 20:01
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096978
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
\\\\час58Итог таков
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Sub Report_Open(Cancel As Integer)
' Фильтр в отчёте по фильтру формы
If Form_SERVIS_KKM_FRM.CHEKI_V_SMENU_FRM.Form.Filter <> "" And Form_SERVIS_KKM_FRM.CHEKI_V_SMENU_FRM.Form.FilterOn Then
 Me.Filter = Form_SERVIS_KKM_FRM.CHEKI_V_SMENU_FRM.Form.Filter
 Me.FilterOn = True
End If
End Sub

Делать так не рекомендуется.

А что делать?
...
Рейтинг: 0 / 0
06.11.2015, 20:03
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096980
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
час58, для примера посмотри 15814178
...
Рейтинг: 0 / 0
06.11.2015, 20:05
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096981
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
\\\\,

смотрю.
...
Рейтинг: 0 / 0
06.11.2015, 20:06
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096986
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
час58, надо обращаться к экземпляру формы, а не к классу формы. И проверить наличие загруженной формы неплохо...
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Report_Open(Cancel As Integer)
' Фильтр в отчёте по фильтру формы

    If AllForms("SERVIS_KKM_FRM").IsLoaded then
        With Forms("SERVIS_KKM_FRM").CHEKI_V_SMENU_FRM.Form
            If Len(.Filter)>0  And .FilterOn Then
                Me.Filter = .Filter
                Me.FilterOn = True
            End If
        end with
    End If
End Sub
...
Рейтинг: 0 / 0
06.11.2015, 20:12
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096990
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
\\\\час58, надо обращаться к экземпляру формы, а не к классу формы. И проверить наличие загруженной формы неплохо...
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Report_Open(Cancel As Integer)
' Фильтр в отчёте по фильтру формы

    If AllForms("SERVIS_KKM_FRM").IsLoaded then
        With Forms("SERVIS_KKM_FRM").CHEKI_V_SMENU_FRM.Form
            If Len(.Filter)>0  And .FilterOn Then
                Me.Filter = .Filter
                Me.FilterOn = True
            End If
        end with
    End If
End Sub



работает,
только без этой проверки
If AllForms("SERVIS_KKM_FRM").IsLoaded then

говорит, что не знает что такое
AllForms
...
Рейтинг: 0 / 0
06.11.2015, 20:25
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096993
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
час58...фильтрованная форма в данный момент является подчинённой.И в данном случае, если не знаешь из какой формы будет открыт отчёт, формированием фильтра я бы занимался в форме, передавая его, как аргумент процедуры открытия формы ( WhereCondition или OpenArgs ). В этом случае не будет проблем с формой и ошибок...
...
Рейтинг: 0 / 0
06.11.2015, 20:28
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096995
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
\\\\,

да, второй вариант примера.
...
Рейтинг: 0 / 0
06.11.2015, 20:29
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39096998
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
час58работает,
только без этой проверки
If AllForms("SERVIS_KKM_FRM").IsLoaded then

говорит, что не знает что такое
AllFormsНу вообще-то это из библиотеки Access и полностью звучит так
Код: vbnet
1.
Application.CurrentProject.AllForms.Item("SERVIS_KKM_FRM").IsLoaded
...
Рейтинг: 0 / 0
06.11.2015, 20:33
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39097006
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
\\\\,

блин...
не хочет понимать строку
Код: vbnet
1.
Application.CurrentProject.AllForms.Item("SERVIS_KKM_FRM").IsLoaded
...
Рейтинг: 0 / 0
06.11.2015, 20:43
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39097013
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
час58, у тебя какой версии Access? ЕМНИП, эта коллекция форм есть во всех версиях (доисторические не рассматриваем). Что-то у тя не то в твоей базе, если Access не узнаёт свои объекты... Проверь, может я буквочками где описАлся.
...
Рейтинг: 0 / 0
06.11.2015, 20:51
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39097019
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
\\\\час58, у тебя какой версии Access? ЕМНИП, эта коллекция форм есть во всех версиях (доисторические не рассматриваем). Что-то у тя не то в твоей базе, если Access не узнаёт свои объекты... Проверь, может я буквочками где описАлся.

Access 2003/
А может не проверять форму на открытие?
Кнопка печати отчёта на ней лежит, она сто пудов открыта.
...
Рейтинг: 0 / 0
06.11.2015, 20:53
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39097022
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
час58...А может не проверять форму на открытие?...Хозяин-барин. Я своё мнение высказал...
...
Рейтинг: 0 / 0
06.11.2015, 20:56
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39097023
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
\\\\,
Спасибо за помощь.
...
Рейтинг: 0 / 0
06.11.2015, 20:57
| Ответить | Цитировать | Написать  
Источник данных для отчёта с фильтром в форме
    #39097025
\\\\
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
\\\\
Гость
час58, ты хоть посмотри в Object Browser'е присутствую ли эти объекты в библиотеке Access. Вдруг я обманул
...
Рейтинг: 0 / 0
06.11.2015, 21:00
| Ответить | Цитировать | Написать  
25 сообщений из 27, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Источник данных для отчёта с фильтром в форме
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39096993&tid=1614317]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 46ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 328ms
total:  474ms
созд. / загр.: 474ms
x
x
Закрыть


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