Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Источник данных для отчёта с фильтром в форме / 25 сообщений из 27, страница 1 из 2
  1  все
06.11.2015, 16:03
    #39096778
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Источник данных для отчёта с фильтром в форме
Источник данных для формы - запрос на выбор записей по условию (на дату).
Источник данных для отчёта - тот же запрос.
При применении фильтра в форме, можно ли и в отчёте вывести данные в отчёт с учётом фильтра, применённого в форме?
--------------------------------------------------------------------------
СПС
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.11.2015, 16:19
    #39096797
vmag
vmag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Источник данных для отчёта с фильтром в форме
час58Источник данных для формы - запрос на выбор записей по условию (на дату).

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

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

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

Особое внимание обрати там на ремарки Анатолия (Киев)...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.11.2015, 17:06
    #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:07
    #39096843
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Источник данных для отчёта с фильтром в форме
__Michelle,
спасибо щас попробую
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.11.2015, 17:21
    #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, 18:14
    #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, 20:01
    #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:03
    #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:05
    #39096980
\\\\
\\\\
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Источник данных для отчёта с фильтром в форме
час58, для примера посмотри 15814178
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.11.2015, 20:06
    #39096981
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Источник данных для отчёта с фильтром в форме
\\\\,

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

да, второй вариант примера.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.11.2015, 20:33
    #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:43
    #39097006
час58
час58
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Источник данных для отчёта с фильтром в форме
\\\\,

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

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


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