Фильтр для отчета - Microsoft Office Access

raytek · 28.11.2011, 21:03

Доброго времени суток! Подскажите кто знает. Создал диалоговое окно для создания отчета: Флажок "Все" и поле со списком, как делается чтобы при установленном флажке "Все" поле со списком было недоступно а при снятии флажка поле со списком становилось доступным?

Swatch · 29.11.2011, 08:53

На событие "После обновления" прописать:

Код:

If Переключатель.Value=True then
Поле.Enabled=False
else
Поле.Enabled=True
end if

raytek · 29.11.2011, 19:47

Огромное спасибо, все работает! но появилась еще одна проблема.
Ранше отчет сортировался через ФормуДиалог где было ПолеСоСписком и я вставил в свойство отчета Фильтр следующее:

[Поле] = Forms![ФормаДиалог]![ПолеСоСписком]

и все работало, теперь, после добавления ФложокВсе чтобы можно было выбрать весь список сделал такой Код:

Private Sub Report_Current()
Me!Report.Filter = "[Поле] = Forms![ФормаДиалог]![ПолеСоСписком]"
End Sub

и теперь всегда отображается весь список в отчете, подскажите в чем ошибка?

Woodlin · 29.11.2011, 20:33

raytek, попробуйте так:
если Forms![ФормаДиалог]![ПолеСоСписком] - числовое значение

Код:

Me!Report.Filter = "[Поле] = " & Forms![ФормаДиалог]![ПолеСоСписком]

если Forms![ФормаДиалог]![ПолеСоСписком] - строковое значение

Код:

Me!Report.Filter = "[Поле] = '" & Forms![ФормаДиалог]![ПолеСоСписком] & "'"

raytek · 30.11.2011, 00:19

Woodlin - ничего не получилось
Форма - фВыборОборудованияПС
Отчет - оОборудованиеПС

raytek · 30.11.2011, 01:08

Забыл - Базу открывать с Shift_ом

Woodlin · 30.11.2011, 11:34

raytek, чего то я не помню у отчета событие Current... хотя у меня 2003 оффис (по этой причине не могу приложенный файл глянуть), может в более поздних версиях появилось.
Я бы сделал так: подвесил процедуру фильтрации на событие Report_Open, а потом собственно такой код:

Код:

Me.Filter = "[Поле] = " & Forms![ФормаДиалог]![ПолеСоСписком]
Me.FilterOn = True

т.е. после того как задали фильтр надо не забыть его применить Me.FilterOn = True

raytek · 30.11.2011, 22:48

woodlin, огромное спасибо, после долгих эксперементов заработал этот код:

If Forms![ФормаДиалог]![ПереключательВсе] = "-1" Then
Else
Me.Filter = "[Поле] = '" & Forms![ФормаДиалог]![ПолеСоСписком] & "'"
Me.FilterOn = True
End If

Работает и на событии Report_Open(Cancel As Integer) так пишет в А2007, и на событии Report_Load(), а событие Current - Текущая запись с ней почемуто не работает.
Что означает ' пока не добавил ничего не получалось, твой код с ' начал фильтровать по списку а при выборе Все выдавал пустой отчет

28.11.2011, 21:03	#1
raytek Пользователь Регистрация: 07.11.2011 Сообщений: 67	Фильтр для отчета Доброго времени суток! Подскажите кто знает. Создал диалоговое окно для создания отчета: Флажок "Все" и поле со списком, как делается чтобы при установленном флажке "Все" поле со списком было недоступно а при снятии флажка поле со списком становилось доступным? Последний раз редактировалось raytek; 28.11.2011 в 21:16.

29.11.2011, 08:53	#2
Swatch Форумчанин Регистрация: 05.07.2009 Сообщений: 209	На событие "После обновления" прописать: Код: `If Переключатель.Value=True then Поле.Enabled=False else Поле.Enabled=True end if`

29.11.2011, 20:33	#4
Woodlin Форумчанин Регистрация: 30.03.2010 Сообщений: 153	raytek, попробуйте так: если Forms![ФормаДиалог]![ПолеСоСписком] - числовое значение Код: `Me!Report.Filter = "[Поле] = " & Forms![ФормаДиалог]![ПолеСоСписком]` если Forms![ФормаДиалог]![ПолеСоСписком] - строковое значение Код: `Me!Report.Filter = "[Поле] = '" & Forms![ФормаДиалог]![ПолеСоСписком] & "'"`

30.11.2011, 11:34	#7
Woodlin Форумчанин Регистрация: 30.03.2010 Сообщений: 153	raytek, чего то я не помню у отчета событие Current... хотя у меня 2003 оффис (по этой причине не могу приложенный файл глянуть), может в более поздних версиях появилось. Я бы сделал так: подвесил процедуру фильтрации на событие Report_Open, а потом собственно такой код: Код: `Me.Filter = "[Поле] = " & Forms![ФормаДиалог]![ПолеСоСписком] Me.FilterOn = True` т.е. после того как задали фильтр надо не забыть его применить Me.FilterOn = True

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Выборка данных для отчета с группировкой	smoky	Microsoft Office Access	2	12.04.2011 22:13
кнопка в форме для создания отчета	Sinopsis	Microsoft Office Access	1	08.10.2010 04:27
Источник данных для отчета	Swatch	Microsoft Office Access	1	15.02.2010 20:02
выборка для отчета	hinku	БД в Delphi	10	03.09.2009 16:19
Запросы для создания отчета	John_chek	БД в Delphi	15	19.02.2007 08:55

29.11.2011, 19:47	#3
raytek Пользователь Регистрация: 07.11.2011 Сообщений: 67	Огромное спасибо, все работает! но появилась еще одна проблема. Ранше отчет сортировался через ФормуДиалог где было ПолеСоСписком и я вставил в свойство отчета Фильтр следующее: [Поле] = Forms![ФормаДиалог]![ПолеСоСписком] и все работало, теперь, после добавления ФложокВсе чтобы можно было выбрать весь список сделал такой Код: Private Sub Report_Current() Me!Report.Filter = "[Поле] = Forms![ФормаДиалог]![ПолеСоСписком]" End Sub и теперь всегда отображается весь список в отчете, подскажите в чем ошибка?

30.11.2011, 01:08	#6
raytek Пользователь Регистрация: 07.11.2011 Сообщений: 67	Забыл - Базу открывать с Shift_ом

30.11.2011, 22:48	#8
raytek Пользователь Регистрация: 07.11.2011 Сообщений: 67	woodlin, огромное спасибо, после долгих эксперементов заработал этот код: If Forms![ФормаДиалог]![ПереключательВсе] = "-1" Then Else Me.Filter = "[Поле] = '" & Forms![ФормаДиалог]![ПолеСоСписком] & "'" Me.FilterOn = True End If Работает и на событии Report_Open(Cancel As Integer) так пишет в А2007, и на событии Report_Load(), а событие Current - Текущая запись с ней почемуто не работает. Что означает ' пока не добавил ничего не получалось, твой код с ' начал фильтровать по списку а при выборе Все выдавал пустой отчет