Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
12 / 12 / 0
Регистрация: 11.06.2011
Сообщений: 125
1

Не работает фильтрация данных в форме, где источник записей запрос

15.06.2017, 11:56. Показов 513. Ответов 2
Метки нет (Все метки)

Добрый день уважаемые программисты.
Делаю фильтр записей по фамилии. Необходимо чтобы отбирал любой введенный текст.
Данный код работает, если источник строк таблица, если источник строк - запрос, как у меня сейчас, при вводе НЕ существующей фамилии Access вылетает в ошибку - "невозможно обратиться к свойству или методу элемента управления". Выделяя строку:
PureBasic
1
2
Me.FIO.SelStart = Len(S0) + 1
End Sub
Сам код:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub fpoisk()
Dim s1, s2
Me.Refresh
s1 = "true "
 
s2 = "" & Me.FIO
If Len(s2) > 0 Then
s1 = s1 & " and  ФИО like '*" & s2 & "*'"
End If
''
Me.Filter = s1
Me.FilterOn = True
End Sub
_____________________________
 
Private Sub FIO_Change()
S0 = "" & Me.FIO
Call fpoisk
Me.FIO.SelStart = Len(S0) + 1
End Sub
Возможно ли как то адаптировать данный код, чтобы не вылетала ошибка?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2017, 11:56
Ответы с готовыми решениями:

SQL запрос как источник для данных в форме
Все. не могу больше. не допирает до меня, дятел я, пните в правильном направлении, плиз. Дано:...

Источник записей в форме
Подскажите пожалуйста, если я в форме Потребность в детали на план выпуска изделий посчитала по...

Фильтрация записей на форме
Добрый день, форумчане! Не получается задать фильтрацию на форме. И так пробовал Forms!!.Filter...

Фильтрация записей в отдельной форме
Не могли бы вы подсказать, как мне на отдельной еще форме сделать фильтрцию, меня интересует, нужно...

2
Модератор
Эксперт MS Access
10141 / 4142 / 673
Регистрация: 07.08.2010
Сообщений: 11,647
Записей в блоге: 4
15.06.2017, 12:09 2
видимо запрос необновляемый

Добавлено через 6 минут
я где выкладывала доработанный Call fpoisk, где не вылетает на ошибку при ненахождении нужной строки


---
если у вас не работает, хотя запись есть --выкладывайте базу, посмотрю
1
12 / 12 / 0
Регистрация: 11.06.2011
Сообщений: 125
16.06.2017, 11:21  [ТС] 3
Вот так все прекрасно работает.
PureBasic
1
2
3
4
5
6
Private Sub FIO_Change()
On Error Resume Next
S0 = "" & Me.FIO
Call fpoisk
Me.FIO.SelStart = Len(S0) + 1
End Sub
Хотел бы отдельно поблагодарить shanemac51. Пользуюсь вашим кодом по заполнению шаблонов(в другой теме тут на форуме) Word. Все отлично работает! Спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.06.2017, 11:21

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Фильтрация записей в форме по дате
Есть форма с 2-мя полями (TextBox) (где написаны начальная и конечная даты фильтрации записей) и...

Фильтрация записей в подчиненной форме
всем привет! подскажите, почему у меня не обновляется подчиненная форма после обновления поля со...

Фильтрация записей на подчиненной форме (MS Access)
Здравствуйте! Имеется база данных и необходимо настроить фильтрацию элементов, которые выводятся...

Фильтрация записей в подчиненной форме через VBA
Здравствуйте! Подскажите пожалуйста, как в данном случае в коде прописать применение фильтра в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.