Проблема с командой Фильтр - Microsoft Office Access

tbe · 04.04.2011, 08:25

После переходе на Access 2007 (с Access 97) перестала работать команда
DoCmd.ApplyFilter.
Компилятор ошибок не выдает, но данные в форме не фильтруются. С чем это связано?

R Dmitry · 04.04.2011, 11:49

Цитата:

Сообщение от tbe

После переходе на Access 2007 (с Access 97) перестала работать команда
DoCmd.ApplyFilter.
Компилятор ошибок не выдает, но данные в форме не фильтруются. С чем это связано?

Добрый день
попробуйте так

Код:

Me.FilterOn = True' False

фильтр программно задается так

Код:

Me.Filter = "ID=" & Значение 'Где ID Ваше "поле", а значение - это значение фильтра

tbe · 04.04.2011, 13:10

Заменила DoCmd.ApplyFilter на Me.Filter
Добавила Me.FilterOn = True
Фильтр так и не работает

Me.Filter = "[N] = Forms![Список]![Порядковый_номер] and [Подразделение]=Forms![Список ]![Подразд]"
Me.FilterOn = True

shanemac51 · 04.04.2011, 13:59

надежнее

Код:

dim s1
s1="[N] = " & Forms![Список]![Порядковый_номер]  
s1=s1 & " and [Подразделение]=" & Forms![Список ]![Подразд]
debug.print s1   '''для просмотра в отладчике результата строки
Me.Filter = s1
Me.FilterOn = True

R Dmitry · 04.04.2011, 14:11

Цитата:

Сообщение от tbe

Заменила DoCmd.ApplyFilter на Me.Filter
Добавила Me.FilterOn = True
Фильтр так и не работает

Me.Filter = "[N] = Forms![Список]![Порядковый_номер] and [Подразделение]=Forms![Список ]![Подразд]"
Me.FilterOn = True

а фильтр случаем не в подчиненную форму ?
или проверьте типы данных, для разных типов данных - нужен разный синтаксис VBA

tbe · 04.04.2011, 14:42

Фильтр заработал только после добавления двойных ковычек, так как значение поля Подразделение строковое

Me.Filter = "[N] = " & Me![ПорядковыйN] & " and [Подразделение]= '" & Me![Подразд] & "'"

Спасибо за помощь

04.04.2011, 08:25	#1
tbe Новичок Джуниор Регистрация: 04.04.2011 Сообщений: 3	Проблема с командой Фильтр После переходе на Access 2007 (с Access 97) перестала работать команда DoCmd.ApplyFilter. Компилятор ошибок не выдает, но данные в форме не фильтруются. С чем это связано?

04.04.2011, 13:59	#4
shanemac51 Участник клуба Регистрация: 12.08.2010 Сообщений: 1,079	надежнее Код: `dim s1 s1="[N] = " & Forms![Список]![Порядковый_номер] s1=s1 & " and [Подразделение]=" & Forms![Список ]![Подразд] debug.print s1 '''для просмотра в отладчике результата строки Me.Filter = s1 Me.FilterOn = True` Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни Сфера интересов--word-excel-access-распознавание Последний раз редактировалось shanemac51; 04.04.2011 в 14:02.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Проблемы с командой else.	docbrain	Общие вопросы Delphi	5	28.04.2010 01:53
Проблема с командой CWD в TAsm	Mixim	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	1	16.12.2009 13:33
Создание формы командой из DLL	Alex Cones	Общие вопросы Delphi	12	29.09.2009 18:06
не копирует фаил командой copyfile	Dozent	Общие вопросы Delphi	3	21.06.2009 00:25

04.04.2011, 13:10	#3
tbe Новичок Джуниор Регистрация: 04.04.2011 Сообщений: 3	Заменила DoCmd.ApplyFilter на Me.Filter Добавила Me.FilterOn = True Фильтр так и не работает Me.Filter = "[N] = Forms![Список]![Порядковый_номер] and [Подразделение]=Forms![Список ]![Подразд]" Me.FilterOn = True

04.04.2011, 14:42	#6
tbe Новичок Джуниор Регистрация: 04.04.2011 Сообщений: 3	Фильтр заработал только после добавления двойных ковычек, так как значение поля Подразделение строковое Me.Filter = "[N] = " & Me![ПорядковыйN] & " and [Подразделение]= '" & Me![Подразд] & "'" Спасибо за помощь